TOTVSTEC

Árvore de páginas

Atenção

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

Por favor verifique a classe TFolder e os componentes padrões, como TGet, TButton e etc... 

Cria um objeto que permite receber janelas do tipo tDialog.

Hierarquia

  • TSrvComponent
    • TSrvObject
      • TCustomWindow
        • TWorkspace

Construtores

Propriedades

Métodos

Exemplos

Exemplo 1
 #include "TOTVS.CH"

 USER FUNCTION TWorkSpace()

 DEFINE DIALOG oDlg TITLE "Exemplo TWorkSpace" FROM 180,180 TO 550,700 PIXEL
 oWSpaceFolder := TWorkspaceFolder():New(oDlg,0,0,260,184)

 oWSpace1 := TWorkSpace():New( " Totvs 10-Aba 01 ", oWSpaceFolder)
 oWSpace1:SetStatusBarText("Texto da barra de status 01")

 oWSpace2 := TWorkSpace():New( " Totvs 10-Aba 02 ", oWSpaceFolder )
 oWSpace2:SetStatusBarText("Texto da barra de status 02")

 ACTIVATE DIALOG oDlg CENTERED ON INIT LoadForm()

 RETURN


 STATIC FUNCTION LoadForm()

 oDlg1 := TDialog():New(0,0,200,200,"Window",,,,,,,,oWSpace2,.T.)
 oDlg1:Activate(,,,.T.,{||.T.},,{||} )

 RETURN

Abrangência

TOTVS Application Server

Veja também

TWorkspaceFolder

  • Sem rótulos