- Code: Select all Expand view
- #include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL oCtl
DEFINE DIALOG oDlg;
SIZE 800, 600
// @ 1, 1 BITMAP oCtl
@ 1, 1 BTNBMP oCtl
@ 7, 1 BUTTON "Test";
ACTION oCtl:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
EMG
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL oCtl
DEFINE DIALOG oDlg;
SIZE 800, 600
// @ 1, 1 BITMAP oCtl
@ 1, 1 BTNBMP oCtl
@ 7, 1 BUTTON "Test";
ACTION oCtl:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
LOCAL oDlg
LOCAL oCtl
LOCAL cVar := "Hola"
LOCAL nVar := 1
LOCAL lVar := .t.
DEFINE DIALOG oDlg;
SIZE 800, 600
// @ 1, 1 BITMAP oCtl //yes
@ 1, 1 BTNBMP oCtl PROMPT "BtnBmp" SIZE 60,14 //NO
// @ 1, 1 BUTTON oCtl PROMPT "Button" //yes
// @ 1, 1 SAY oCtl PROMPT "HOLA" //yes
// @ 1, 1 CHECKBOX oCtl VAR lVar //yes
// @ 1, 1 RADIO oCtl VAR nVar ITEMS "&One", "&Two" SIZE 150, 25 //yes
// @ 1, 1 GET oCtl VAR cVAR SIZE 40,12 //yes
// @ 1, 1 COMBOBOX oCtl VAR nVar ITEMS {"1","2","3"} //yes
@ 7, 1 BUTTON "Test";
ACTION oCtl:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oCtl
DEFINE DIALOG oDlg SIZE 800, 600
// @ 1, 1 BITMAP oCtl
@ 1, 1 BTNBMP oCtl PROMPT "Visible"
/* // error
@ 7, 1 BUTTON "Test";
ACTION oCtl:End()
*/
// Invisible
@ 7, 1 BUTTON "Hide";
ACTION( oCtl:Hide() )
// Visible
@ 9, 1 BUTTON "Show";
ACTION( oCtl:Show() )
@ 11, 1 BUTTON "&Exit" ;
ACTION( oDlg:End() ) CANCEL UPDATE
ACTIVATE DIALOG oDlg CENTER
RETURN NIL
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oCtl
DEFINE DIALOG oDlg SIZE 800, 600
// @ 1, 1 BITMAP oCtl
@ 1, 1 BTNBMP oCtl PROMPt "Visible"
@ 3, 1 BUTTON "Test1";
ACTION( oCtl:End(), oDlg:Refresh(), oDlg:UpDate() )
@ 5, 1 BUTTON "Test2";
ACTION( oCtl:Hide(), oCtl:End(), oDlg:Refresh(), oDlg:UpDate() )
// Invisible
@ 7, 1 BUTTON "Hide";
ACTION( oCtl:Hide() )
// Visible
@ 9, 1 BUTTON "Show";
ACTION( oCtl:Show() )
@ 11, 1 BUTTON "&Exit" ;
ACTION( oDlg:End() ) CANCEL UPDATE
ACTIVATE DIALOG oDlg CENTER
RETURN NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 86 guests