Hello Antonio,
it seems that oBar:enable() does not work.
Would you be so kind to have a look at this.
Thanks in advance
Otto
- Code: Select all Expand view
- // TESTING ROUNDSIZE
#include "FiveWin.ch"
#include "ribbon.ch"
//----------------------------------------------------------------------------//
function Main()
local oGrupo, oBtn1, oRibbon, oWnd
local oBtn2, oBtn3, oBtn4, oBtn5
SetBalloon( .T. )
DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ;
TITLE "This is a MDI enviroment"
DEFINE RIBBONBAR oRibbon PROMPTS "Start","Edition","Tools","Themes","Help" OF oWnd ;
HEIGHT 200 TOPMARGIN 25
ADD GROUP oGrupo RIBBON oRibbon TO OPTION 1 PROMPT "Only a Group to Test"
@ 05,04 ADD BUTTON oBtn1 PROMPT "Round 2" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 2
@ 35,04 ADD BUTTON oBtn1 PROMPT "Round 4" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 4
@ 65,04 ADD BUTTON oBtn1 PROMPT "Round 6" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 6
@ 95,04 ADD BUTTON oBtn1 PROMPT "Round 8" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 8
@ 125,04 ADD BUTTON oBtn1 PROMPT "Round 10" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 10
@ 300,30 ;
BUTTON oBtn5 ;
PROMPT "disable" ;
SIZE 60, 20 ;
ACTION oRibbon:disable() ;
OF oWnd ;
PIXEL
@ 300,130 ;
BUTTON oBtn5 ;
PROMPT "enable" ;
SIZE 60, 20 ;
ACTION oRibbon:enable() ;
OF oWnd ;
PIXEL
SET MESSAGE OF oWnd TO "A message bar"
ACTIVATE WINDOW oWnd ;
MAXIMIZED
return nil
