FiveTech Software tech support forums

Code: Select all

#include "FiveWin.ch" 

function Main() 

   local oDlg 

   DEFINE DIALOG oDlg TITLE "Test" 

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT BuildBar( oDlg )

return nil 

function Buildbar( oDlg )

   local oBar
   
   DEFINE BUTTONBAR oBar OF oDlg 2007
   
   DEFINE BUTTON OF oBar ACTION MsgInfo( "test" ) PROMPT "test"
   
   oBar:bClrGrad = { | lInvert | If( ! lInvert,; 
                   { { 0.25, nRGB( 129, 132, 135 ), nRGB( 54, 58, 62 ) } ,; 
                   { 0.75, nRGB( 20, 40, 60 ), nRGB( 5, 10, 15 ) } },; 
                   { { 0.25, nRGB( 160, 173, 174 ), nRGB( 67, 112, 133 ) },; 
                   { 0.75, nRGB( 11, 66, 94 ), nRGB( 74, 134, 187 ) } } ) } 
   oBar:nClrText = { | lInvert | If( ! lInvert,nRGB( 235, 160, 86 ), nRGB( 20, 20, 20 ) ) }   
   
return nil 

Code: Select all

#include "FiveWin.ch"

static oWnd

FUNCTION Main()

local oBar, oBtn1

// Hiding the MDI - menue with MENU TMenu():New() 

DEFINE WINDOW oWnd TITLE "Test" MDI MENU TMenu():New() 

DEFINE BUTTONBAR oBar OF oWnd SIZE 80, 80 2007 RIGHT 

oBar:bClrGrad = { | | { { 0.10,16054371, 8388608 }, ; 
                 { 0.10, 8388608,16054371 } } }

oBar:nClrText = 0

// Open the Dialog
// ------------------
DEFINE BUTTON OF oBar ACTION Tools( oWnd ) ;
RESOURCE "magic" PROMPT "Bar-Selection" TOOLTIP "Test"

DEFINE BUTTON OF oBar ACTION Msgalert( "Test" ) ;
RESOURCE "open" PROMPT "Open" TOOLTIP "Test"

DEFINE BUTTON OF oBar ACTION MsgAlert( "Test") ;
RESOURCE "floppy" PROMPT "Save" TOOLTIP "Test"

DEFINE BUTTON OF oBar ACTION MsgAlert( "Test" ) ;
RESOURCE "help" PROMPT "Help" TOOLTIP "Test"

// Space in Buttonbar
// ------------------------
DEFINE BUTTON oBtn1 OF oBar ACTION NIL ;
RESOURCE "calendar" 

oBtn1:Hide()

DEFINE BUTTON OF oBar ACTION oWnd:End() ;
RESOURCE "quit" PROMPT "Exit" TOOLTIP "Close Bar-Gradient"

SET MESSAGE OF oWnd TO "Testing the ButtonBar 2007 Office look" ;
CENTERED CLOCK KEYBOARD 2007

ACTIVATE WINDOW oWnd MAXIMIZED ;
ON PAINT gradpaint1( hDC, oWnd ) ;
VALID MsgYesNo( "Do you want to end?" )

RETURN NIL

//-----------------  DIALOG -------------------------------------------//

FUNCTION Tools(oWnd)
local oDlg

DEFINE DIALOG oDlg RESOURCE "Tools" OF oWnd TITLE  "Test" FONT oProgFont

.....
.....
.....


ACTIVATE DIALOG oDlg CENTERED NOWAIT ;
ON PAINT gradpaint2( hDC, oDlg ) ;
ON INIT NEW_DLGBAR(oDlg)

RETURN NIL   

// ------- BAR in Dialog --------------------------

FUNCTION NEW_DLGBAR(oDlg)
LOCAL oBar1

DEFINE BUTTONBAR oBar1 OF oDlg SIZE 80, 80 2007 RIGHT 

DEFINE BUTTON OF oBar1 ACTION MsgInfo( "Attach" ) ;
RESOURCE "attach" PROMPT "Attach" TOOLTIP "Attach"

DEFINE BUTTON OF oBar1 ACTION MsgInfo( "calendar" ) ;
RESOURCE "calendar" PROMPT "Calendar" TOOLTIP "Calendar"

DEFINE BUTTON OF oBar1 ACTION MsgInfo( "Clients" ) ;
RESOURCE "people" PROMPT "Clients"  TOOLTIP "Clients"

RETURN(  NIL )

// ------------ Gradient for MAIN-window-----------------------------------

static func gradpaint1( hDC, oWnd )

local aGrad := { { 0.50, 8388608, 16054371 } }

GradientFill( hDC,  0, 0, oWnd:nHeight, oWnd:nWidth, aGrad, .F. )

RETURN NIL

// ----------- Gradient for DIALOG ( MDI-Child ) ------------------------------------

static func gradpaint2( hDC, oDlg )

local aGrad1 := { { 0.50, 16054371, 8388608 } }

GradientFill( hDC,  0, 0, oDlg:nHeight, oDlg:nWidth, aGrad1, .F. )

RETURN NIL