TWorkSpaceFolder

Atenção

Atenção: Essa classe é de uso interno.

Por favor use a classe TFolder

Classe: TWorkSpaceFolder

Cria um objeto do tipo pasta que recebe um objeto do tipo TWorkSpace.

Hierarquia

TSrvObject -> TControl -> TWorkSpaceFolder

Construtores

New

Método construtor da classe.

Sintaxe

TWorkSpaceFolder(): New ( [ oWnd], [ nLeft], [ nTop], [ nWidth], [ nHeight], [ uParam6] ) --> oObjeto

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
oWnd	Objeto	Indica a janela ou controle visual onde o objeto será criado.
nLeft	Array of Record	Indica a coordenada horizontal.
nTop	Array of Record	Indica a coordenada vertical.
nWidth	Array of Record	Indica a largura em pixels do objeto.
nHeight	Array of Record	Indica a altura em pixels do objeto.
uParam6	Lógico	Compatibilidade.

Retorno

oObjeto

Retorna o objeto criado.

Exemplos

oWSpaceFolder := TWorkspaceFolder():New(oDlg,0,0,260,184)

Métodos

SetOption

Muda a aba selecionada.

Sintaxe

TWorkSpaceFolder(): SetOption ( < nAba> ) -->

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
nAba	Numérico	Indica o número da aba que será selecionada.	X

Exemplos

oWSpaceFolder:SetOption(2)

SetTabIcon

Insere icone em uma determinada aba da WorkSpace.

Sintaxe

TWorkSpaceFolder(): SetOption ( < nAba>, <cIcon> ) -->

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
nAba	Numérico	Indica o número da aba que será selecionada.	X
cIcon	Alfanumérico	Indica o nome da imagem (recurso)	X

Exemplos

oWFolder:SetTabIcon(2, "ws_play.png")

Propriedade

Propriedade	Descrição	Tipo
bCaptionChanged	Indica o bloco de código que será executado a cada troca de pasta retornando o próprio objeto ativo e seu respectivo texto (caption).	Bloco de código

Exemplos

#include "TOTVS.CH"

User Function TWorkSpaceFolder()

DEFINE DIALOG oDlg TITLE "Exemplo TWorkSpaceFolder" FROM 180,180 TO 550,700 PIXEL

oWSpaceFolder := TWorkspaceFolder():New(oDlg,0,0,260,184)
oWSpaceFolder:bCaptionChanged := {|x,c| Iif( empty( c ), ConOut( "Empty!" ), ConOut( c ) ) }

oWSpace1 := TWorkSpace():New( " Totvs 10-Aba 01 ", oWSpaceFolder )
oWSpace1:SetStatusBarText("Texto da barra de status 01")

ACTIVATE DIALOG oDlg CENTERED

Return

Preview

Exemplo da classe TWorkSpaceFolder