Á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

Versão 1 Próxima »

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

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

  • Sem rótulos