Á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

« Anterior Versão 4 Próxima »

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


 

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.  

 

oObjeto
    (objeto)
  • Retorna o objeto criado.

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

SetOption

Muda a aba selecionada.


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


 

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

 


oWSpaceFolder:SetOption(2)

 

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

 


#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

 

  • Sem rótulos