FiveTech Support Forums

   DEFINE WINDOW oWnd ICON oIcon ;MDI ;
      MENU BuildMenu() ;
      TITLE "My Title" 
...

   ACTIVATE WINDOW oWnd MAXIMIZED ;

#include "FiveWin.ch"

function Main()

   local oWnd
   local aGradient := { { 1 , nRGB( 248, 186, 107 ), nRGB( 255, 253, 222 ) } }  

   DEFINE WINDOW oWnd
   
   oWnd:Gradient( aGradient )

   ACTIVATE WINDOW oWnd ;
      ON RESIZE oWnd:Gradient( aGradient )  

return nil

#include "FiveWin.ch"

function main()

   local oWnd
   local aGradient := { { 1 , nRGB( 248, 186, 107 ), nRGB( 255, 253, 222 ) } }  

   DEFINE WINDOW oWnd MDI
   
   oWnd:oWndClient:Gradient( aGradient )

   ACTIVATE WINDOW oWnd ;
      ON RESIZE oWnd:oWndClient:Gradient( aGradient )   

return nil

#include "FiveWin.ch"

function Main()

   local oWnd
   local aGradient := { { 1 , nRGB( 248, 186, 107 ), nRGB( 255, 253, 222 ) } }  

   DEFINE WINDOW oWnd MDI
   
   oWnd:oWndClient:Gradient( aGradient )

   ACTIVATE WINDOW oWnd ;
      ON RESIZE ( oWnd:oWndClient:Gradient( aGradient ),;
                  AEval( oWnd:oWndClient:aWnd, { | o | o:Gradient( aGradient ) } ) )

return nil

function main()

   local oWnd, oBrush
   local aGradient := { { 0.5, CLR_BLUE, CLR_HBLUE }, { 0.5, CLR_HBLUE, CLR_BLUE } }

   DEFINE BRUSH oBrush GRADIENT aGradient // optional clauses HORIZONTAL/VERTICAL
   DEFINE WINDOW oWnd MDI BRUSH oBrush

   ACTIVATE WINDOW oWnd ON RIGHT CLICK mdichild()
   RELEASE BRUSH oBrush

return nil

function mdichild

  local oWnd

  DEFINE WINDOW oWnd MDICHILD OF WndMain() BRUSH WndMain():oBrush
  ACTIVATE WINDOW oWnd

return nil