I added a dialog class that is a window/form type class simpler than window class objects.
It can be useful to simple data entry or login dialogs.
See demo code:
Code: Select all
#include "hmg.ch"
FUNCTION Main
HbQt_ErrorSys()
IF Login()
ShowMain()
ENDIF
RETURN NIL
/*----------------------------------------------------------------------*/
STATIC FUNCTION ShowMain()
LOCAL oMainForm
DEFINE WINDOW oMainForm
Row 10
Col 10
Width 600
Height 600
Title "oMainForm title"
Type WND_MAIN
OnInit oMainForm:Center()
END WINDOW
ACTIVATE WINDOW oMainForm
RETURN NIL
/*----------------------------------------------------------------------*/
STATIC FUNCTION Login()
LOCAL oLoginForm, oButtonBox, oBtn_Ok, oBtn_Cancel
DEFINE DIALOG oLoginForm
Row 10
Col 10
Width 200
Height 100
Title "Login Form Title"
OnInit oLoginForm:Center()
DEFINE BUTTONBOX oButtonBox
ADD BUTTON oBtn_Ok ROLE BUTTON_OK ACTION oLoginForm:Accept()
ADD BUTTON oBtn_Cancel ROLE BUTTON_CANCEL ACTION oLoginForm:Reject()
END BUTTONBOX
END DIALOG
ACTIVATE DIALOG oLoginForm
MsgInfo( "Login Exit "+CStr(oLoginForm:lAccepted))
HB_SYMBOL_UNUSED( oButtonBox )
HB_SYMBOL_UNUSED( oBtn_Ok )
HB_SYMBOL_UNUSED( oBtn_Cancel )
RETURN oLoginForm:lAccepted