Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Nota
titleAtenção

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

Por favor use a classe TFolder

Composition Setup
import.css=/download/attachments/327912/newLayout.css
 
Portuguese

Pagetitle
TWorkSpaceFolder
TWorkSpaceFolder

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)

Métodos

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)

SetTabIcon

SetTabIcon

Insere icone em uma determinada aba da WorkSpace.


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



 

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

cIconAlfanuméricoIndica o nome da imagem (recurso)X
 
 



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

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