Code: Select all
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oWnd
DEFINE WINDOW oWnd
DEFINE BUTTONBAR OF oWnd 2007
DEFINE BUTTON;
OF oWnd:oBar;
FILE "C:\FWH\BITMAPS\OPEN.BMP";
ACTION MYDIALOG()
ACTIVATE WINDOW oWnd
RETURN NIL
STATIC FUNCTION MYDIALOG()
LOCAL oDlg
DEFINE DIALOG oDlg
ACTIVATE DIALOG oDlg;
ON INIT TOOLBAR( oDlg );
CENTER
RETURN NIL
STATIC FUNCTION TOOLBAR( oDlg )
DEFINE BUTTONBAR OF oDlg 2007
DEFINE BUTTON;
OF oDlg:oBar;
FILE "C:\FWH\BITMAPS\CLOSE.BMP";
ACTION oDlg:End()
RETURN NIL