Á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/3279126062824/newLayouttecnologia.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

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

AddItem

Inclui uma pasta.

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

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

aEnable

Habilita/Desabilita uma pasta.

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

    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> ) -->

oTFolder:HidePage(2)

SetOption

Seleciona a pasta desejada.

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

oTFolder:SetOption(2)

ShowPage

Apresenta uma pasta.

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

oTFolder:ShowPage(2)
Bloco de código
languagecpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
  #include "TOTVS.CH"

  
New

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.
NomeTipoDescriçãoObrigatórioReferência
cItemCaracterIndica a título da pasta.lVisibleLógicoIndica se a pasta está (.T.) ou não (.F.) visível.
NomeTipoDescriçãoObrigatórioReferência
nItemNuméricoIndica a pasta que será habilitada/desabilitada.lEnableLógicoIndica se habilita(.T.)/desabilita(.F.) a pasta.
NomeTipoDescriçãoObrigatórioReferência
nItemNuméricoIndica a pasta que será oculta. X
NomeTipoDescriçãoObrigatórioReferência
nOptionNuméricoIndica a pasta que será selecionada.
NomeTipoDescriçãoObrigatórioReferência
nItemNuméricoIndica a pasta que será apresentada. X
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
#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

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