FiveTech Support Forums

DEFINE DIALOG oDlg RESOURCE "CHGCLS" FONT oFont TITLE "Title"

REDEFINE GET o_f1 VAR m_f1 ID 101 OF oDlg COLOR CLR_BLACK,CLR_GET ;
    PICTURE "@ !!!!!!!!!!!!!!!"
    o_get[01]:setfocus()
o_get[01]:bLostFocus := { || ( subr01(@m_f1,@o_f1,@m_f2,@o_f2, @BtnEsc) )}

REDEFINE GET o_f2 VAR m_f2 ID 102 OF oDlg COLOR CLR_BLACK,CLR_GET ;
    PICTURE "@ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"

REDEFINE BTNBMP BtnEsc ID 2 OF oDlg FILE "C:\chiudi.BMP"  2007         ;
    ACTION (oDlg:End())

ACTIVATE DIALOG oDlg ;
    CENTERED
...

FUNCTION subr01(m_f1,o_f1,m_f2,o_f2, BtnEsc)

if .not. BtnEsc:lPressed
    msginfo("run this function")
endif

Return Nil

#include "FiveWin.ch"

function main()
local oDlg,cGet := space(20), oGet , cGet1 := spac(20), oGet1

define dialog oDlg from 1,1 to 200,200 pixel title "Test"

@ 1,20 get oGet  var cGet  size 60,12 of oDlg pixel valid ( Hello(cGet), .t. )

@20,20 get oGet1 var cGet1 size 60,12 of oDlg pixel

@35,20 button oBtnCancel prompt "Exit" action oDlg:End() pixel

activate dialog oDlg centered

return nil    

static function Hello(cGet)
?"Hello "+cGet
return nil

#include "FiveWin.ch"

static lExit

function main()

local oDlg,cGet := space(20), oGet , cGet1 := spac(20), oGet1

lExit := .f.

define dialog oDlg from 1,1 to 200,200 pixel title "Test"

@ 1,20 get oGet  var cGet  size 60,12 of oDlg pixel valid ( Hello(cGet), .t. )

@20,20 get oGet1 var cGet1 size 60,12 of oDlg pixel

@35,20 button oBtnCancel prompt "Exit" action ToExit(oDlg) pixel

activate dialog oDlg centered valid lExit

return nil    

static function Hello(cGet)
if !empty(cGet)
   ?"Hello "+cGet
endif   
return nil

static function ToExit(oDlg)

lExit := .t.

oDlg:End()

return nil