Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Amarrar documentação com o comando @ .. FOLDER
portuguese
Composition Setup
import.css=/download/attachments/327912/newLayout.css
HTML
<link type="text/css" rel="stylesheet" href="http://tdn.totvs.com/download/attachments/6062824/tecnologia.css" >

Pagetitle

...

...

Classe TFolder
Classe

...

TFolder

Cria

...

um

...

objeto

...

para

...

exibir

...

pastas.

Hierarquia

...

...

    • TFolder

Construtores

Inclusão de trecho
Classe TFolder - Construtores
Classe TFolder - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe TFolder - Propriedades
Classe TFolder - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe TFolder - Métodos
Classe TFolder - Métodos
nopaneltrue

Exemplos

#include "TOTVS.CH"

  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
Return
 
Preview
  Return
Bloco de código
languagecpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
  

New

Método construtor da classe.

TFolder(): New ( [ nTop], [ nLeft], [ aPrompts], [ aDialogs], [ oWnd], [ nOption], [ nClrFore], [ nClrBack], [ lPixel], [ uParam10], [ nWidth], [ nHeight], [ cMsg], [ uParam14] ) --> oObjeto

 

NomeTipoDescriçãoObrigatórioReferência
nTopNuméricoIndica a coordenada vertical em pixels ou caracteres.  
nLeftNuméricoIndica a coordenada horizontal em pixels ou caracteres.  
aPromptsVetorIndica o título das pastas.  
aDialogsVetorIndica o nome do diálogo.  
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.  
nOptionNuméricoIndica a pasta selecionada.  
nClrForeNuméricoIndica a cor de frente da pasta.  
nClrBackNuméricoIndica a cor de fundo da pasta.  
lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).  
uParam10LógicoCompatibilidade.  
nWidthNuméricoIndica a largura em pixels do objeto.  
nHeightNuméricoIndica a altura em pixels do objeto.  
cMsgCaracterIndica a mensagem, do tipo dica de contexto (tooltip/hint), que será apresentada ao posicionar o ponteiro do mouse sobre o objeto.  
uParam14LógicoCompatibilidade.  

 

oObjeto
    (objeto)
  • Retorna o objeto criado.
oTFolder := TFolder():New( 0,0,aTFolder,,oDlg,,,,.T.,,260,184 )

AddItem

Inclui uma pasta.

TFolder(): AddItem ( [ cItem], [ lVisible] ) -->

 

NomeTipoDescriçãoObrigatórioReferência
cItemCaracterIndica a título da pasta.  
lVisibleLógicoIndica se a pasta está (.T.) ou não (.F.) visível.  

 

oTFolder:AddItem("Nova Aba", .T.)
Exemplo do método AddItem
Image Removed

aEnable

Habilita/Desabilita uma pasta.

TFolder(): aEnable ( [ nItem], [ lEnable] ) --> lOk

 

NomeTipoDescriçãoObrigatórioReferência
nItemNuméricoIndica a pasta que será habilitada/desabilitada.  
lEnableLógicoIndica se habilita(.T.)/desabilita(.F.) a pasta.  

 

lOk
    (logico)
  • Retorna verdadeiro (.T.), se o processo ocorrer com sucesso; caso contrário, retornará falso (.F.).

A pasta continuará visível, porém não será possível selecioná-la.

oTFolder:aEnable(2, .F.)

HidePage

Oculta uma pasta.

TFolder(): HidePage ( < nItem> ) -->

 

NomeTipoDescriçãoObrigatórioReferência
nItemNuméricoIndica a pasta que será oculta.X 

 

oTFolder:HidePage(2)

SetOption

Seleciona a pasta desejada.

TFolder(): SetOption ( [ nOption] ) -->

 

NomeTipoDescriçãoObrigatórioReferência
nOptionNuméricoIndica a pasta que será selecionada.  

 

oTFolder:SetOption(2)

ShowPage

Apresenta uma pasta.

TFolder(): ShowPage ( < nItem> ) -->

 

NomeTipoDescriçãoObrigatórioReferência
nItemNuméricoIndica a pasta que será apresentada.X 

 

oTFolder:ShowPage(2)

 

PropriedadeDescriçãoTipo
aDialogsIndica o nome dos diálogos.Array of Record
aPromptsIndica o título da pasta.Array of Record
bSetOptionIndica o bloco de código que será executado quando a pasta for selecionada.Bloco de código
nOptionIndica a pasta selecionada.Numérico
Bloco de código
themeEclipse
languagecpp
titleExemplo
linenumberstrue

Exemplo da classe TFolder

Image Modified

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