FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Pocket PC GoNextCtrl se pierde en un tPanel
Posts: 186
Joined: Sat Oct 08, 2005 07:32 AM
GoNextCtrl se pierde en un tPanel
Posted: Sun Dec 10, 2006 07:31 PM

Antonio
Te adjunto 2 ejemplos que deberian tener el mismo comportamiento al pasar el foco pero no es así. Si compruebas ambos ejemplos por separado veras que si pulsas enter sobre el primer Get el segundo ejemplo se queda en un bucle sin fin y se debe resetear la máquina.

---------------- Primer ejemplo ------------------

include "FWCE.ch"

function Main()

local oWnd, oGroup, oGet, oGet1, oGet2
local cDir := Space( 20 )
local cName := Space( 20 ), cAddress := Space( 30 )

DEFINE WINDOW oWnd TITLE "Foco"

@ 2, 8 GET oGet VAR cDir OF oWnd SIZE 100, 18
@ 3, 2 GROUP oGroup TO 10,30 OF oWnd

@ 1, 3.8 SAY "Name:" OF oGroup SIZE 40, 15

@ 2, 8 GET oGet1 VAR cName OF oGroup SIZE 100, 18

@ 3.8, 2.1 SAY "Address:" OF oGroup SIZE 50, 15

@ 4, 8 GET oGet2 VAR cAddress OF oGroup SIZE 120, 18
ACTIVATE WINDOW oWnd
return nil

---------------- Segundo ejemplo ------------------

include "FWCE.ch"

function Main()

local oWnd, oGroup, oGet, oGet1, oGet2
local cDir := Space( 20 )
local cName := Space( 20 ), cAddress := Space( 30 )

DEFINE WINDOW oWnd TITLE "Foco"
@ 10, 10 PANEL oPanel OF oWnd ;
SIZE oWnd:nWidth() - 26, oWnd:nHeight() - 150 PIXEL

@ 2, 8 GET oGet VAR cDir OF oPanel SIZE 100, 18
@ 3, 2 GROUP oGroup TO 10,30 OF oPanel

@ 1, 3.8 SAY "Name:" OF oGroup SIZE 40, 15

@ 2, 8 GET oGet1 VAR cName OF oGroup SIZE 100, 18

@ 3.8, 2.1 SAY "Address:" OF oGroup SIZE 50, 15

@ 4, 8 GET oGet2 VAR cAddress OF oGroup SIZE 120, 18

ACTIVATE WINDOW oWnd
return nil

=========================================
Saludos

Toni Sales

Continue the discussion