TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Próxima »

Classe: TFolder

Cria um objeto para exibir pastas.


Hierarquia

TSrvObject -> TControl -> TFolder


Construtores
New

New

Método construtor da classe.


Sintaxe

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


Parâmetros
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.
Retorno
    oObjeto(objeto)
  • Retorna o objeto criado.

Exemplos 
oTFolder := TFolder():New( 0,0,aTFolder,,oDlg,,,,.T.,,260,184 )

Métodos
AddItem

AddItem

Inclui uma pasta.


Sintaxe

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


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

Exemplos 
oTFolder:AddItem("Nova Aba", .T.)

Preview
Exemplo do método AddItem
aEnable

aEnable

Habilita/Desabilita uma pasta.


Sintaxe

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


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nItemNuméricoIndica a pasta que será habilitada/desabilitada.
lEnableLógicoIndica se habilita(.T.)/desabilita(.F.) a pasta.
Retorno
    lOk(logico)
  • Retorna verdadeiro (.T.), se o processo ocorrer com sucesso; caso contrário, retornará falso (.F.).

Observações

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


Exemplos 
oTFolder:aEnable(2, .F.)
HidePage

HidePage

Oculta uma pasta.


Sintaxe

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


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

Exemplos 
oTFolder:HidePage(2)
SetOption

SetOption

Seleciona a pasta desejada.


Sintaxe

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


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

Exemplos 
oTFolder:SetOption(2)
ShowPage

ShowPage

Apresenta uma pasta.


Sintaxe

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


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

Exemplos 
oTFolder:ShowPage(2)

Propriedade
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

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
Exemplo da classe TFolder

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • Sem rótulos