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: TSplitter

Cria um objeto do tipo barra de divisão.


Hierarquia

TSrvObject -> TControl -> TSplitter


Construtores
Create

Create

Método construtor da classe.


Sintaxe

TSplitter(): Create ( [ oWnd] ) --> oObjeto


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde objeto será criado.
Retorno
    oObjeto(objeto)
  • Retorna o objeto criado.

Exemplos 
oSplitter := TSplitter():Create( oDlg )
New

New

Método construtor da classe.


Sintaxe

TSplitter(): New ( [ nRow], [ nCol], [ oWnd], [ nWidth], [ nHeight], [ nOrientation] ) --> oObjeto


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical em pixels ou caracteres.
nColNuméricoIndica a coordenada horizontal em pixels ou caracteres.
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
nWidthNuméricoIndica a largura em pixels do objeto.
nHeightNuméricoIndica a altura em pixels do objeto.
nOrientationNuméricoIndica a posição que a barra de divisão será criada, sendo 0 = Horizontal e 1 = Vertical.
Retorno
    oObjeto(objeto)
  • Retorna o objeto criado.

Exemplos 
oSplitter := TSplitter():New( 01,01,oDlg,260,184 )

Métodos
MovToFirst

MovToFirst

Define qual objeto será o primeiro das divisões.


Sintaxe

TSplitter(): MovToFirst ( [ oObj] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica qual objeto será o primeiro da divisão.

Exemplos 
oSplitter:MoveToFirst( oPanel2 )

Preview
Exemplo do método MoveToFirst
MovToLast

MovToLast

Define qual objeto será o último das divisões.


Sintaxe

TSplitter(): MovToLast ( [ oObj] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica qual objeto será o último da divisão.

Exemplos 
oSplitter:MoveToLast( oPanel2 )

Preview
Exemplo do método MoveToLast
SetChildCollapse

SetChildCollapse

Define se os elementos serão fechados (Collapsibles).


Sintaxe

TSplitter(): SetChildCollapse ( [ lColl] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
lCollLógicoIndica se habilita(.T.)/desabilita(.F.) a opção de fechar (Collapsibles) os elementos.

Exemplos 
oSplitter:SetChildCollapse(.T.)
SetCollapse

SetCollapse

Define qual objeto será fechado (Collapsible).


Sintaxe

TSplitter(): SetCollapse ( [ oObj], [ lColl] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica o objeto que será fechado (Collapsed).
lCollLógicoIndica se habilita(.T.)/desabilita(.F.) a opção de fechar.

Exemplos 
oSplitter:SetCollapse( oPanel2, .T. )
SetOpaqueResize

SetOpaqueResize

Define se o redimensionamento (resize) será opaco.


Sintaxe

TSplitter(): SetOpaqueResize ( [ lOpaq] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
lOpaqLógicoIndica se habilita(.T.)/desabilita(.F.) o redimensionamento opaco.

Exemplos 
oSplitter:SetOpaqueResize( .T. )
SetOrient

SetOrient

Especifica a posição (horizontal ou vertical) do objeto.


Sintaxe

TSplitter(): SetOrient ( [ nOrient] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nOrientNuméricoIndica a posição do objeto, sendo 0 = Horizontal e 1 = Vertical.

Exemplos 
oSplitter:SetOrient( 1 )

Preview
Exemplo do método SetOrient
SetResizeMode

SetResizeMode

Define a maneira de redimensionar (resize) o objeto.


Sintaxe

TSplitter(): SetResizeMode ( [ oObj], [ nMode] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oObjObjetoIndica o objeto que será redimensionado.
nModeNuméricoIndica a maneira que o objeto será redimensionado, sendo: 0 = Stretch, 1 = KeepSize, 2 = FollowSizeHint e 3 = Auto.

Exemplos 
oSplitter:SetResizeMode( oPanel2, 1 )

Exemplos 
#include "TOTVS.CH"User Function TSplitter() DEFINE DIALOG oDlg TITLE "Exemplo TSplitter:SetOrient" FROM 180,180 TO 550,700 PIXEL	  oSplitter := tSplitter():New( 01,01,oDlg,260,184 )  oPanel1:= tPanel():New(322,02," Painel 01",oSplitter,,,,,CLR_YELLOW,60,60)  oPanel2:= tPanel():New(322,02," Painel 02",oSplitter,,,,,CLR_HRED,60,80)  oPanel3:= tPanel():New(322,02," Painel 03",oSplitter,,,,,CLR_HGRAY,60,60) ACTIVATE DIALOG oDlg CENTERED Return

Preview
Exemplo da classe TSplitter

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

  • Sem rótulos