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

Versão 1 Próxima »

Classe: TTrackMenu

Cria um objeto do tipo menu vertical customizável.


Hierarquia
  TSrvObject -> TControl -> TTrackMenu

Construtores
New

New

Método construtor da classe.


Sintaxe

TTrackMenu(): New ( < oDlg>, [ nRow], [ nCol], [ nWidth], [ nHeight], < bAction>, [ nHeigthBtn], [ cColorBackGround], [ cColorSeparator], [ cGradientTop], [ cGradientBottom], [ oFont], [ cColorText] ) --> oObjeto


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oDlgObjetoIndica o controle visual onde o componente será criado. X
nRowNuméricoIndica a coordenada vertical.
nColNuméricoIndica a coordenada horizontal.
nWidthNuméricoIndica a largura em pixels do objeto.
nHeightNuméricoIndica a altura em pixels do objeto.
bActionBloco de códigoIndica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão.Este bloco de código receberá o próprio objeto e o ID do botão selecionado.Para mais detalhes consulte o exemplo da classe. X
nHeigthBtnNuméricoIndica a altura dos botões
cColorBackGroundCaracterIndica a cor de fundo do menu, no formato hexadecimal, exemplo #FFFFFF.
cColorSeparatorCaracterIndica a cor do separador dos botões, no formato hexadecimal, exemplo #FFFFFF.
cGradientTopCaracterIndica a cor inicial do gradiente da opção selecionada do menu, no formato hexadecimal, exemplo #FFFFFF.
cGradientBottomCaracterIndica a cor final do gradiente da opção selecionada do menu, no formato hexadecimal, exemplo #FFFFFF.
oFontObjetoIndica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual.
cColorTextCaracterIndica a cor do texto do menu, no formato hexadecimal, exemplo #FFFFFF.
Retorno
    oObjeto()
  • Retorna o objeto criado.

Observações
 

Exemplos 
oTrackMenu  := TTrackMenu():New( oDlg, 10, 10, 200, 400, {|o,cID| MyAction(o, cID) } , 40, "#FFFFFF", "#C0C0C0",;                             "#57A2EE", "#2BD0F7", oFont, "#000000")

Métodos
Add

Add

Insere um novo botão na última posição do menu.


Sintaxe

TTrackMenu(): Add ( < cID>, < cDescrição>, [ cImageLeft], [ cImageRight] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cIDCaracterID do botão. X
cDescriçãoCaracterDescrição do botão X
cImageLeftCaracterImagem esquerda, deve estar compilada no repositório.
cImageRightCaracterImagem direita, deve estar compilada no repositório.

Observações


Exemplos 
oTrackMenu:Add("ID002", "Item Menu 2", "agenda", "switch_on")
Insert

Insert

Insere um novo botão em uma determinada posição do menu.


Sintaxe

TTrackMenu(): Insert ( < nPos>, < cID>, < cDescrição>, [ cImageLeft], [ cImageRight] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nPosNuloPosição do menu a ser inserido o botão. X
cIDCaracterID do botão. X
cDescriçãoCaracterDescrição do botão X
cImageLeftCaracterImagem esquerda, deve estar compilada no repositório.
cImageRightCaracterImagem direita, deve estar compilada no repositório.

Observações
Caso o usuário tente inserir um item na posição 20, por exemplo, em uma lista que tenha apenas 5 items, este assumira a ultima posição, ou seja, a posição seis da lista.

Exemplos 
oTrackMenu:Insert(5, "ID_NEW01", "Item Menu NEW", "ok","cancel")
Move

Move

Move um botão para determinada posição no menu.


Sintaxe

TTrackMenu(): Move ( < cID>, < nPos> ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cIDCaracterID do botão. X
nPosNuméricoPosição de destino do botão. X

Observações


Exemplos 
// Move botão ID004 para posição 8 do menuoTrackMenu:Move("ID004", 8)
Remove

Remove

Remove um botão do menu.


Sintaxe

TTrackMenu(): Remove ( < cID> ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cIDCaracterID bo botão a ser removido. X

Observações


Exemplos 
oTrackMenu:Remove("ID002")
Reset

Reset

Limpa todos os itens do menu.


Sintaxe

TTrackMenu(): Reset ( ) -->


Observações
 

Exemplos 
oTrackMenu:Reset()
Select

Select

Seleciona um botão do menu, colocando-o em evidência.


Sintaxe

TTrackMenu(): Select ( < cID> ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cIDCaracterID do botão a ser selecionado. X

Observações


Exemplos 
oTrackMenu:Select("ID005")
SetImage

SetImage

Permite alterar a imagem direita de um botão do menu.


Sintaxe

TTrackMenu(): SetImage ( < cID>, < cImage> ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cIDCaracterID do botão. X
cImageCaracterImage a ser exibida no lado direito do botão do menu.A imagem deve obrigatoriamente estar compilado no repositório. X

Observações
Este método tem diversas aplicações, como simular uma opção do tipo "liga-desliga" ou simular animações como uma barra de progresso.
 
Para mais detalhes veja o exemplo desta classe.

Exemplos 
oTrackMenu:SetImage( "ID002", "new_image.png")

Propriedade
PropriedadeDescriçãoTipo
bActionBloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão.Este bloco de código receberá o próprio objeto e o ID do botão selecionado.Para mais detalhes consulte o exemplo da classe.Bloco de código
lReadOnlySe .T. indica que os itens do menu ficarão indisponíveis para seleção e movimentação. Lógico

Observações

A movimentação dos itens deste componente é similar ao comportamente encontrado nos menus do Android®  e iPhone®. 

Este componente esta disponivel em builds superiores à 7.00.111010P.


Exemplos 
#include "TOTVS.CH"//-------------------------------------------------Function u_TrackMenu()//-------------------------------------------------local nXlocal switch := .T.	DEFINE MSDIALOG oDlg TITLE "TTrackMenu" FROM 0,0 TO 650,400 COLORS 0, 13945799 PIXEL	                   		nTop 	:= 05		nLeft 	:= 05		nWidth 	:= 150		nHeight := 306                                                 		oPanel  := tPanel():New(nTop,nLeft,,oDlg,,,,,,nWidth,nHeight) 		// Estilo iPhone ® 		oPanel:SetCss( " QLabel { background-color: white; border-radius: 12px ; border: 2px solid gray;}" )		cColorBackGround 	:= "#FFFFFF"		cColorSeparator 	:= "#C0C0C0"		cGradientTop 		:= "#57A2EE" // Gradiente inicial do botao selecionado		cGradientBottom 	:= "#2BD0F7" // Gradiente final do botao selecionado		cColorText		:= "#000000"                  		// Estilo Android ®		/* 		oPanel:SetCss( " QLabel { background-color: black; border-radius: 12px ; border: 2px solid gray;}" )		cColorBackGround 	:= "#000000"		cColorSeparator 	:= "#FFFFFF"		cGradientTop 		:= "#087BA6" // Gradiente inicial do botao selecionado		cGradientBottom 	:= "#087BA6" // Gradiente final do botao selecionado		cColorText		:= "#C0C0C0" 		*/		cHeigthBtn := 40		oFont := TFont():New('Arial',,12,,.T.,,,,,.F.,.F.)		oTrackMenu  := TTrackMenu():New( oPanel, 3, 2, nWidth-4, nHeight-6, {|o,cID| MyAction(o, cId, @switch) }, cHeigthBtn, cColorBackGround, cColorSeparator,;		                                cGradientTop, cGradientBottom, oFont, cColorText ) 		// Insere botoes		oTrackMenu:Add("ID001", "Item Menu 1", "afastamento",            	)		oTrackMenu:Add("ID002", "Item Menu 2", "agenda"     , "switch_on"	)		oTrackMenu:Add("ID003", "Item Menu 3", "aviao"      , "dummy.png" 	)		oTrackMenu:Add("ID004", "Item Menu 4", "bahead"     , "arrow"  	)		oTrackMenu:Add("ID005", "Item Menu 5",              , "arrow"  	)		for nX := 6 to 100			oTrackMenu:Add("ID"+StrZero(nX,3), "Item Menu "+cValToChar(nX))		next nX	ACTIVATE MSDIALOG oDlg CENTERED  Return                //-------------------------------------------------Static Function MyAction(oTrackMenu, cId, switch)//-------------------------------------------------local nX	// Similação de Switch (Liga-Desliga)	if cId == "ID002"		switch = !switch				oTrackMenu:SetImage( "ID002", iif(switch, "switch_on", "switch_off") )	endif	                     	// Simulação de barra de progresso	if cId == "ID003"		oTrackMenu:lReadOnly := .T.		for	nX := 1 to 5			oTrackMenu:SetImage( "ID003", "bar0"+cValToChar(nX) )			ProcessMessages()			sleep(500)  		next		oTrackMenu:lReadOnly := .F.	endif	// Exibe item selecionado	Conout("Item Selecionado: "+cID)  Return

Preview


Abrangência
Microsiga Protheus 11 , Protheus 10

  • Sem rótulos