Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
Portuguese |
Pagetitle | ||
---|---|---|
|
...
|
...
|
Cria
...
um
...
objeto
...
para
...
exibir
...
pastas.
Hierarquia
...
...
- TFolder
Construtores
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Propriedades
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Métodos
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Exemplos
Bloco de código | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
#include "TOTVS.CH"
User Function TFolder()
NewMétodo construtor da classe.TFolder(): New ( [ nTop], [ nLeft], [ aPrompts], [ aDialogs], [ oWnd], [ nOption], [ nClrFore], [ nClrBack], [ lPixel], [ uParam10], [ nWidth], [ nHeight], [ cMsg], [ uParam14] ) --> oObjeto
oObjeto
oTFolder := TFolder():New( 0,0,aTFolder,,oDlg,,,,.T.,,260,184 ) AddItemInclui uma pasta.TFolder(): AddItem ( [ cItem], [ lVisible] ) -->
oTFolder:AddItem("Nova Aba", .T.) Exemplo do método AddItem aEnableHabilita/Desabilita uma pasta.TFolder(): aEnable ( [ nItem], [ lEnable] ) --> lOk
lOk
A pasta continuará visível, porém não será possível selecioná-la. oTFolder:aEnable(2, .F.) HidePageOculta uma pasta.TFolder(): HidePage ( < nItem> ) -->
oTFolder:HidePage(2) SetOptionSeleciona a pasta desejada.TFolder(): SetOption ( [ nOption] ) -->
oTFolder:SetOption(2) ShowPageApresenta uma pasta.TFolder(): ShowPage ( < nItem> ) -->
oTFolder:ShowPage(2)
User Function TFolder() DEFINE DIALOG oDlg TITLE "Exemplo TFolder" FROM 180,180 TO 550,700 PIXEL // Cria a Folder aTFolder := { 'Aba 01', 'Aba 02', 'Aba 03' } oTFolder := TFolder():New( 0,0,aTFolder,,oDlg,,,,.T.,,260,184 ) // Insere um TGet em cada aba da folder cTGet1 := "Teste TGet 01" oTGet1 := TGet():New( 01,01,{||cTGet1},oTFolder:aDialogs[1],096,009,; "",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, ) cTGet2 := "Teste TGet 02" oTGet2 := TGet():New( 01,01,{||cTGet2},oTFolder:aDialogs[2],096,009,; "",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet2,,,, ) cTGet3 := "Teste TGet 03" oTGet3 := TGet():New( 01,01,{||cTGet3},oTFolder:aDialogs[3],096,009,; "",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet3,,,, ) ACTIVATE DIALOG oDlg CENTERED ReturnPreview
Return
|
Exemplo da classe TFolder
Abrangência
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10,
...
TOTVS Application Server 11
Referências
A construção de um componente da classe TFOLDER também pode ser feita através do comando AdvPL @ .. FOLDER