Mr Rao,
I tested from [b:3ipo8ywj]RESOURCE[/b:3ipo8ywj]
It seems < BTNRIGHT > doesn't work.
From < CODE > it works.
[img:3ipo8ywj]http://www.pflegeplus.com/IMAGES/Samples5.jpg[/img:3ipo8ywj]
----------------
FUNCTION RS3_PART1() // -> [b:3ipo8ywj]Group 4 / Part 1 DIALOG from Resource[/b:3ipo8ywj]
LOCAL oBar
REDEFINE BUTTONBAR oBar ID 200 OF oDlg 2013 SIZE 80,90
oBar:oGrpFont := oMedium
DEFINE BUTTON OF oBar PROMPT "Back" RESOURCE 0x100DF GROUP LABEL "Navigate" COLORS CLR_WHITE,CLR_HBLUE
DEFINE BUTTON OF oBar PROMPT "Top" RESOURCE 0x100E9
DEFINE BUTTON OF oBar PROMPT "Bottom" RESOURCE 0x100EA
DEFINE BUTTON OF oBar PROMPT "Add" RESOURCE 0x2002F GROUP LABEL "Edit" ;
COLORS CLR_WHITE, { { 1, CLR_BLACK, CLR_WHITE }, .F. }
DEFINE BUTTON OF oBar PROMPT "Edit" RESOURCE 0x20022
DEFINE BUTTON OF oBar PROMPT "Delete" RESOURCE 0x20033
DEFINE BUTTON OF oBar PROMPT "Save" RESOURCE 0x1003C GROUP LABEL "Export" COLORS CLR_WHITE,CLR_GREEN
DEFINE BUTTON OF oBar PROMPT "Refresh" RESOURCE 0x30050
DEFINE BUTTON OF oBar PROMPT "Setup" RESOURCE 0x1005D ACTION oDlg:End() [color=#FF0000:3ipo8ywj][b:3ipo8ywj]BTNRIGHT[/b:3ipo8ywj][/color:3ipo8ywj] TOOLTIP "Exit"
AEval( oBar:aControls, { |oBtn| oBtn:bColorMap := { |o| If( o:lMOver, { CLR_BLACK, CLR_HRED }, nil ) } } )
RETURN NIL
-----------------
regards
Uwe
↧