TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

Classe: TWorkSpaceFolder

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


Hierarquia

TSrvObject -> TControl -> TWorkSpaceFolder


Construtores
New

New

Método construtor da classe.


Sintaxe

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


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
nLeftArray of RecordIndica a coordenada horizontal.
nTopArray of RecordIndica a coordenada vertical.
nWidthArray of RecordIndica a largura em pixels do objeto.
nHeightArray of RecordIndica a altura em pixels do objeto.
uParam6LógicoCompatibilidade.
Retorno
    oObjeto(objeto)
  • Retorna o objeto criado.

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

Métodos
SetOption

SetOption

Muda a aba selecionada.


Sintaxe

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


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nAbaNuméricoIndica o número da aba que será selecionada. X

Exemplos 
oWSpaceFolder:SetOption(2)

Propriedade
PropriedadeDescriçãoTipo
bCaptionChangedIndica 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

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Veja Também
TWorkSpace

  • Sem rótulos