FiveTech Support Forums

#include "FiveWin.ch"
#include "ribbon.ch"

function Main()

   local oWnd, oRBar, oGrp1, oBtn1, oGrp2, oGrp3

   DEFINE WINDOW oWnd MDI
   
   DEFINE RIBBONBAR oRBar OF oWnd PROMPT "Configuración", "Ficheros", "Informes", "Ayudas" HEIGHT 133 TOPMARGIN 25

   ADD GROUP oGrp1 RIBBON oRBar TO OPTION 1 PROMPT "One" WIDTH 130
   
   @ 2,5 ADD BUTTON oBtn1 PROMPT "New" BITMAP "new.bmp" GROUP oGrp1 ACTION NewChild( oWnd ) ;
      ROUND SIZE 50, 83 

   ADD GROUP oGrp2 RIBBON oRBar TO OPTION 1 PROMPT "Two" WIDTH 130
   ADD GROUP oGrp3 RIBBON oRBar TO OPTION 1 PROMPT "Three" WIDTH 130

   SET MSGBAR OF oWnd 2007

   ACTIVATE WINDOW oWnd

return nil

function NewChild( oWnd )

   local oWndChild
   
   DEFINE WINDOW oWndChild OF oWnd MDICHILD ;
      COLORS 0, nRGB( nRandom( 150, 255 ), nRandom( 150, 255 ), nRandom( 150, 255 ) )

   oWndChild:Maximize()

return nil

   DEFINE WINDOW oWnd MDI
   
   oWnd:oMenu:End()

   ...