FiveTech Support Forums

#include "fivewin.ch"
static odlg, oFld
Function main() 
SET RESOURCES TO "tool.dll"
DEFINE FONT oFonSay NAME "FixedSys"    SIZE 10,10
DEFINE DIALOG oDlg From 00,00 to 400,500 TITLE "MyTools" PIXEL OF oDlg COLORS CLR_WHITE,CLR_WHITE
ACTIVATE DIALOG oDlg CENTERED ON INIT toolbar()
return(Nil) 

Function toolbar()
oFld := cFolder():New(odlg:ntop,odlg:nleft,50,odlg:nright+4) 
Return

CLASS cFolder 
DATA aDialogs 
METHOD New(nTop,nLeft,nWidth,nHeight) CONSTRUCTOR 
ENDCLASS 
METHOD New(nTop,nLeft,nWidth,nHeight) CLASS cFolder 
public novo
novo:=TDialog():New(nTop,nLeft,nWidth,nHeight,,,,.F.,NOR(268435456,4194304,1073741824,2097152),,,,oDlg,.T.,,,,,)
novo:Activate(novo:bLClicked,novo:bMoved,novo:bPainted,.F.,, .F. ,,novo:bRClicked,{||.T.},) 
Return(self)

#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT BuildBar( oDlg )

return nil

function BuildBar( oDlg )

   local oBar

   DEFINE BUTTONBAR oBar OF oDlg 2007 SIZE 50, 50

   DEFINE BUTTON OF oBar ACTION MsgInfo( "click" )

return nil

#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg From 00,00 to 400,500 TITLE "MyTools" PIXEL OF oDlg COLORS CLR_WHITE,CLR_WHITE

   ACTIVATE DIALOG oDlg CENTERED ON INIT toolbar( oDlg )

return nil

function ToolBar( oDlg1 )

   local oDlg2

   DEFINE DIALOG oDlg2 OF oDlg1 STYLE nOr( WS_CHILD ) FROM 0, 0 TO 50, oDlg1:nWidth PIXEL COLOR CLR_WHITE, CLR_BLUE

   ACTIVATE DIALOG oDlg2 NOWAIT

return nil