Classe: TWorkSpaceFolder
Cria um objeto do tipo pasta que recebe um objeto do tipo TWorkSpace.
TSrvObject -> TControl -> TWorkSpaceFolder
New
Método construtor da classe.
TWorkSpaceFolder(): New ( [ oWnd], [ nLeft], [ nTop], [ nWidth], [ nHeight], [ uParam6] ) --> oObjeto
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. |
-
oObjeto(objeto)
- Retorna o objeto criado.
oWSpaceFolder := TWorkspaceFolder():New(oDlg,0,0,260,184)
SetOption
Muda a aba selecionada.
TWorkSpaceFolder(): SetOption ( < nAba> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nAba | Numérico | Indica o número da aba que será selecionada. | X |
oWSpaceFolder:SetOption(2)
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 |
#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
Exemplo da classe TWorkSpaceFolder
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas