There is a new FWPPC build with dialogboxes from source code creation support (without using resources). You may already download it. Please review samples\TestDlg.prg sample. Warning: FWCE.ch has changed.
- Code: Select all Expand view
#include "FWCE.ch"
function Main()
local oDlg, cText := "Hello world! "
DEFINE DIALOG oDlg TITLE "Source code Dialog" ;
SIZE 200, 100
@ 0.7, 2 SAY "Name:" SIZE 18, 10
@ 1, 4 GET cText SIZE 50, 10
@ 1.8, 6 BUTTON "End" ACTION oDlg:End() SIZE 30, 10
ACTIVATE DIALOG oDlg CENTERED ;
ON CLICK MsgInfo( "click!" ) ;
VALID MsgYesNo( "want to end ?" )
return nil
