Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
TSplitter
TSplitter

Classe: TSplitter

Cria um objeto do tipo barra de divisão.

TSrvObject -> TControl -> TSplitter


Create

Método construtor da classe.


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


 

NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde objeto será criado.  

 

oObjeto
    (objeto)
  • Retorna o objeto criado.

oSplitter := TSplitter():Create( oDlg )

New

Método construtor da classe.


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


 

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.  

 

oObjeto
    (objeto)
  • Retorna o objeto criado.

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

MovToFirst

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


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


 

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

 


oSplitter:MoveToFirst( oPanel2 )

Exemplo do método MoveToFirst

MovToLast

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


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


 

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

 


oSplitter:MoveToLast( oPanel2 )

Exemplo do método MoveToLast

SetChildCollapse

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


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


 

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

 


oSplitter:SetChildCollapse(.T.)

SetCollapse

Define qual objeto será fechado (Collapsible).


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


 

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

 


oSplitter:SetCollapse( oPanel2, .T. )

SetOpaqueResize

Define se o redimensionamento (resize) será opaco.


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


 

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

 


oSplitter:SetOpaqueResize( .T. )

SetOrient

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


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


 

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

 


oSplitter:SetOrient( 1 )

Exemplo do método SetOrient

SetResizeMode

Define a maneira de redimensionar (resize) o objeto.


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


 

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.  

 


oSplitter:SetResizeMode( oPanel2, 1 )

#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

Exemplo da classe TSplitter

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server