as soon I need something special inside of a buttonbar I use BTNBMP.
Use NOBORDER if needed.
Code: Select all
#include "fivewin.ch"
function main()
local oWndMARCA, oBarMARCA, ARIAL14B, oBtn[8]
SETBALLOON( .T. ) // Balloon shape required for tooltips
DEFINE WINDOW oWndMARCA TITLE "oWnd" ;
FROM 5, 5 TO 24, 90
@ 0060,0000 BUTTONBAR oBarMARCA OF oWndMARCA TOP SIZE 1226,0078 3DLOOK PIXEL
oBarMARCA:bClrGrad := { || { { 1, 12632256, 16777215 }, { 1, 16777215, 12632256 } } }
/// {|lMouseOver|If(!lMouseOver,{{1,nRGB(244,244,245),nRGB(244,244,245)}},{{1,nRGB(145,201,247),nRGB(145,201,247) }})}
oBarMARCA:bRClicked := { || nil }
oBarMARCA:l2015 := .T.
//oBarMARCA:nBtnWidth := 78
//oBarMARCA:nBtnHeight := 78
@ 0, 0 BTNBMP oBtn[1] SIZE 78, 78 ;
RESOURCE "BAR_ADICIONAR" OF oBarMARCA PROMPT "Adicionar" ;
FONT ARIAL14B ACTION OPERACAO_AGENDA(1) // NOBORDER
oBtn[1]:bClrGrad := { | lMouseOver | If( ! lMouseOver,;
{ { 1, 12500605, 16777215 }, { 1, 16777215, 12500605 } }, ;
{ { 1, 16777215, 12500605 }, { 1, 12500605, 16777215 } } ) }
@ 0, 78 BTNBMP oBtn[2] SIZE 78, 78 ;
RESOURCE "BAR_VISUALIZAR" OF oBarMARCA PROMPT "Visualizar" ;
FONT ARIAL14B ACTION OPERACAO_AGENDA(2)
oBtn[2]:bClrGrad := { | lMouseOver | If( ! lMouseOver,;
{ { 1, 12500605, 16777215 }, { 1, 16777215, 12500605 } }, ;
{ { 1, 16777215, 12500605 }, { 1, 12500605, 16777215 } } ) }
@ 0, 156 BTNBMP oBtn[3] SIZE 78, 78 ;
RESOURCE "BAR_EDITAR" OF oBarMARCA PROMPT "Editar" ;
FONT ARIAL14B ACTION OPERACAO_AGENDA(3)
oBtn[3]:bClrGrad := { | lMouseOver | If( ! lMouseOver,;
{ { 1, 10976078, 16777215 }, { 1, 16777215, 10976078 } }, ;
{ { 1, 16777215, 10976078 }, { 10, 10976078, 16777215 } } ) }
@ 0, 234 BTNBMP oBtn[4] SIZE 78, 78 ;
RESOURCE "BAR_EXCLUIR" OF oBarMARCA PROMPT "Excluir" ;
FONT ARIAL14B ACTION OPERACAO_AGENDA(4)
oBtn[4]:bClrGrad := { | lMouseOver | If( ! lMouseOver,;
{ { 1, 10976078, 16777215 }, { 1, 16777215, 10976078 } }, ;
{ { 1, 16777215, 10976078 }, { 1, 10976078, 16777215 } } ) }
@ 0, 312 BTNBMP oBtn[5 ]SIZE 78, 78 ;
RESOURCE "BAR_RELATORIOS" OF oBarMARCA PROMPT "Relatórios" ;
FONT ARIAL14B ACTION PRODUTOS()
oBtn[5]:bClrGrad := { | lMouseOver | If( ! lMouseOver,;
{ { 1, 10976078, 16777215 }, { 1, 16777215, 10976078 } }, ;
{ { 1, 16777215, 10976078 }, { 1, 10976078, 16777215 } } ) }
@ 0, 410 BTNBMP oBtn[6] SIZE 128, 78 ;
RESOURCE "BAR_AJUSTES" OF oBarMARCA PROMPT "Ajustar CdEst/CdPad" ;
FONT ARIAL14B ACTION PRODUTOS()
oBtn[6]:bClrGrad := { | lMouseOver | If( ! lMouseOver,;
{ { 1, 11704524, 16777215 }, { 1, 16777215, 11704524 } }, ;
{ { 1, 16777215, 11704524 }, { 1, 11704524, 16777215 } } ) }
oBtn[6] :cToolTip = { "This is a" + CRLF + "extra long button","Ajustar CdEst/CdPad", 1, CLR_BLACK, 14089979 }
oBtn[6] :SetColor( 0, )
@ 0, oWndMARCA:nWidth - 94 BTNBMP oBtn[7] SIZE 78, 78 ; // adjust position to the right
RESOURCE "BAR_SAIR" OF oBarMARCA PROMPT "Sair" ;
FONT ARIAL14B ACTION PRODUTOS()
oBtn[7]:bClrGrad := { | lMouseOver | If( ! lMouseOver,;
{ { 1, 10976078, 16777215 }, { 1, 16777215, 10976078 } }, ;
{ { 1, 16777215, 10976078 }, { 1, 10976078, 16777215 } } ) }
//DEFINE BUTTON oBtnADICIONAR RESOURCE "BAR_ADICIONAR" OF oBarMARCA PROMPT "Adicionar" FONT ARIAL14B ACTION OPERACAO_AGENDA(1)
//DEFINE BUTTON oBtnVISUALIZAR RESOURCE "BAR_VISUALIZAR" OF oBarMARCA PROMPT "Visualizar" FONT ARIAL14B ACTION OPERACAO_AGENDA(2)
//DEFINE BUTTON oBtnALTERAR RESOURCE "BAR_EDITAR" OF oBarMARCA PROMPT "Editar" FONT ARIAL14B ACTION OPERACAO_AGENDA(3)
//DEFINE BUTTON oBtnEXCLUIR RESOURCE "BAR_EXCLUIR" OF oBarMARCA PROMPT "Excluir" FONT ARIAL14B ACTION OPERACAO_AGENDA(4)
//DEFINE BUTTON oBtnRELATORIOS RESOURCE "BAR_RELATORIOS" OF oBarMARCA PROMPT "Relatórios" GROUP FONT ARIAL14B //ACTION PRODUTOS()
//DEFINE BUTTON oBtnAJUSTES RESOURCE "BAR_AJUSTES" OF oBarMARCA PROMPT "Ajustar CdEst/CdPad" GROUP FONT ARIAL14B //ACTION PRODUTOS()
//DEFINE BUTTON oBtnSAIR RESOURCE "BAR_SAIR" OF oBarMARCA PROMPT "Sair" GROUP FONT ARIAL14B //ACTION PRODUTOS()
// oBarMARCA:oBtnAJUSTES:nBtnWidth := 128
ACTIVATE WINDOW oWndMARCA
return nil
FUNCTION OPERACAO_AGENDA( Pos )
return nil
FUNCTION PRODUTOS()
return nil
