say.prg
- Code: Select all Expand view
@ 24, 16 SAY "SAY 1" OF oDlg SIZE 88, 16 PIXEL
@ 48, 16 SAY "SAY 2" OF oDlg SIZE 88, 16 PIXEL
Este código es común a los dos diálogos.
- Code: Select all Expand view
#include "FiveWin.ch"
FUNCTION Main()
LOCAL oDlg
Dlg1()
Dlg2()
?'WAIT'
RETURN NIL
//----------------------
STATIC FUNCTION Dlg1()
LOCAL oDlg
DEFINE DIALOG oDlg TITLE ProcName() FROM 0,0 TO 10, 30
#include "say.prg"
ACTIVATE DIALOG oDlg NOWAIT
RETURN NIL
//---------------------
STATIC FUNCTION Dlg2()
LOCAL oDlg
DEFINE DIALOG oDlg TITLE ProcName() FROM 0,31 TO 10, 61
ACTIVATE DIALOG oDlg ON INIT PlaceCtrl(oDlg) NOWAIT
RETURN NIL
//-----------------------------
STATIC FUNCTION PlaceCtrl(oDlg)
#include "say.prg"
RETURN NIL