Is there a way to move the cursor to the next field when a user clicks on the GetButton .. it appears the default behavior is to return the cursor back to the field.
I have tried to modify GetBtn.prg to force the cursor to the second field by issuing a setfocus, but the cursor always returns back to the get field.
Any way to modify this behavior ?
Thanks
Rick Lipkin
- Code: Select all Expand view
#include "FiveWin.ch"
function Main()
local oWnd, oTest,cTest := "Hello world!"
Local oTest1,cTest1
cTest1 := space(10)
DEFINE WINDOW oWnd COLOR "N/W*"
@ 2,2 GET oTest var cTest SIZE 110, 22 ;
ACTION (MsgInfo( "click" ),oTest1:SetFocus()) // BITMAP "..\bitmaps\16x16\find.bmp"
@ 4,2 GET oTest1 var cTest1 size 102,22 UPDATE
ACTIVATE WINDOW oWnd
return nil