Cria um objeto do tipo menu vertical customizável. TTrackMenu(): New ( < oDlg>, [ nRow], [ nCol], [ nWidth], [ nHeight], < bAction>, [ nHeigthBtn], [ cColorBackGround], [ cColorSeparator], [ cGradientTop], [ cGradientBottom], [ oFont], [ cColorText] ) --> oObjeto
| Nome | Tipo | Descrição | Obrigatório | Referência | | oDlg | Objeto | Indica o controle visual onde o componente será criado. | X |
|
| | nRow | Numérico | Indica a coordenada vertical. |
|
|
| | nCol | Numérico | Indica a coordenada horizontal. |
| |
|
| | nWidth | Numérico | Indica a largura em pixels do objeto. |
| |
|
| | nHeight | Numérico | Indica a altura em pixels do objeto. |
| |
|
| | bAction | Bloco de código | Indica 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 |
|
| | nHeigthBtn | Numérico | Indica a altura dos botões |
|
|
| | cColorBackGround | Caracter | Indica a cor de fundo do menu, no formato hexadecimal, exemplo #FFFFFF. |
| |
|
| | cColorSeparator | Caracter | Indica a cor do separador dos botões, no formato hexadecimal, exemplo #FFFFFF. |
|
|
| | cGradientTop | Caracter | Indica a cor inicial do gradiente da opção selecionada do menu, no formato hexadecimal, exemplo #FFFFFF. |
| |
|
| | cGradientBottom | Caracter | Indica a cor final do gradiente da opção selecionada do menu, no formato hexadecimal, exemplo #FFFFFF. |
| |
|
| | oFont | Objeto | Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. |
| |
|
| | cColorText | Caracter | Indica a cor do texto do menu, no formato hexadecimal, exemplo #FFFFFF. |
| |
oObjeto()- Retorna o objeto criado.
oTrackMenu := TTrackMenu():New( oDlg, 10, 10, 200, 400, {|o,cID| MyAction(o, cID) } , 40, "#FFFFFF", "#C0C0C0",; "#57A2EE", "#2BD0F7", oFont, "#000000")TTrackMenu(): Add ( < cID>, < cDescrição>, [ cImageLeft], [ cImageRight] ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência | | cID | Caracter | ID do botão. | X |
|
| | cDescrição | Caracter | Descrição do botão | X |
|
| | cImageLeft | Caracter | Imagem esquerda, deve estar compilada no repositório. |
| |
|
| | cImageRight | Caracter | Imagem direita, deve estar compilada no repositório. |
|
oTrackMenu:Add("ID002", "Item Menu 2", "agenda", "switch_on")TTrackMenu(): Insert ( < nPos>, < cID>, < cDescrição>, [ cImageLeft], [ cImageRight] ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência | | nPos | Nulo | Posição do menu a ser inserido o botão. | X |
|
| | cDescrição | Caracter | Descrição do botão | X |
|
| | cImageLeft | Caracter | Imagem esquerda, deve estar compilada no repositório. |
| |
|
| | cImageRight | Caracter | Imagem direita, deve estar compilada no repositório. |
|
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. oTrackMenu:Insert(5, "ID_NEW01", "Item Menu NEW", "ok","cancel") TTrackMenu(): Move ( < cID>, < nPos> ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência | | cID | Caracter | ID do botão. | X |
|
| | nPos | Numérico | Posição de destino do botão. | X |
// Move botão ID004 para posição 8 do menuoTrackMenu:Move("ID004", 8)TTrackMenu(): Remove ( < cID> ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência | | cID | Caracter | ID bo botão a ser removido. | X |
oTrackMenu:Remove("ID002")TTrackMenu(): Reset ( ) --> Seleciona um botão do menu, colocando-o em evidência.TTrackMenu(): Select ( < cID> ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência | | cID | Caracter | ID do botão a ser selecionado. | X |
|
oTrackMenu:Select("ID005")TTrackMenu(): SetImage ( < cID>, < cImage> ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência | | cID | Caracter | ID do botão. | X |
|
| | cImage | Caracter | Image a ser exibida no lado direito do botão do menu.A imagem deve obrigatoriamente estar compilado no repositório. | X |
|
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. oTrackMenu:SetImage( "ID002", "new_image.png")
| Propriedade | Descrição | Tipo | | bAction | 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. | Bloco de código | | lReadOnly | Se .T. indica que os itens do menu ficarão indisponíveis para seleção e movimentação. | Lógico |
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. #include "TOTVS.CH"
//-------------------------------------------------
Function u_TrackMenu()
//-------------------------------------------------
local nX
local 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  Image ModifiedMicrosiga Protheus 11 , Protheus 10
|