Árvore de páginas

Versões comparadas

Chave

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

...

Portuguese

Pagetitle
TWorkSpaceFolder
TWorkSpaceFolder

Classe: TWorkSpaceFolder

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


TSrvObject -> TControl -> TWorkSpaceFolder


New

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