FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd

    DEFINE WINDOW oWnd;
           COLOR NIL, CLR_HRED

    @ 10, 10 BUTTON "Test";
             SIZE 100, 100;
             ACTION TEST()

    ACTIVATE WINDOW oWnd;
             MAXIMIZED

    RETURN NIL


FUNCTION TEST()

    LOCAL oDlg

    DEFINE DIALOG oDlg

    ACTIVATE DIALOG oDlg;
             ON INIT TOOLBAR( oDlg );
             CENTER

    RETURN NIL


STATIC FUNCTION TOOLBAR( oDlg )

    DEFINE BUTTONBAR OF oDlg SIZE 40, 40 2007

    RETURN NIL