If I press on the first button:
I get this:
Only the text oft the buttons of the same group get gray, not the others:
I tried already a lot with different refresh etc., but nothing worked. How can this problem solved?
The code:
- Code: Select all Expand view
#include "ribbon.ch"
FUNCTION MAIN()
LOCAL oWnd
LOCAL oRibbon, oGr[3], oBtn[3]
LOCAL lValid := .T.
DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
TITLE "Test Ribbon"
oRibbon := TRibbonBar():New(oWnd, { "Item 1","Item 2" }, ,, oWnd:nWidth, 132, 26 )
ADD GROUP oGr[1] RIBBON oRibbon TO OPTION 1 PROMPT "" WIDTH 173
@ 5,5 ADD BUTTON oBtn[1] PROMPT "Press to Change" BITMAP "" CENTER GROUP oGr[1] ROUND SIZE 83,75;
ACTION lValid := !lValid
@ 5,88 ADD BUTTON oBtn[2] PROMPT "Button 1" BITMAP "" CENTER GROUP oGr[1] ROUND SIZE 83,75;
WHEN lValid ACTION MsgInfo("Button 1")
ADD GROUP oGr[2] RIBBON oRibbon TO OPTION 1 PROMPT "" WIDTH 90
@ 5,5 ADD BUTTON oBtn[3] PROMPT "Button 2" BITMAP "" CENTER GROUP oGr[2] ROUND SIZE 83,75;
WHEN lValid ACTION MsgInfo("Button 2")
ADD GROUP oGr[3] RIBBON oRibbon TO OPTION 2 PROMPT "" WIDTH 90
@ 5,5 ADD BUTTON oBtn[3] PROMPT "Button 3" BITMAP "" CENTER GROUP oGr[3] ROUND SIZE 83,75;
WHEN lValid ACTION MsgInfo("Button 3")
ACTIVATE WINDOW oWnd
return(0)
Thanks for help.