FiveTech Support Forums

Con el siguiente código compilado con -xHarbour 1.2.1 FWHX 11.07 Borland C++ 5.82- no me salta de un GET al siguiente ni con <Intro> ni tampoco con <Tab>, solo accedo a escribir en los GET pinchando en él con el ratón.
Si lo compilo con -xHarbour 0.99.61 FWXH 2.8 September 2006 Borland C++ 5.4- el mismo código funciona perfectamente y salta bien de un GET a otro.
¿ Alguien sabe por qué ?

Gracias

LOCAL oWnd, oFont, oIcon, oSay, aoBt[ 3 ], aoGt[ 8 ], aoSy[ 3 ]

DEFINE WINDOW oWnd FROM 10, 20 To 40,100 ;
TITLE VERSION ;
ICON oIcon ;
COLOR GetSysColor( COLOR_WINDOWTEXT ), GetSysColor( COLOR_BTNFACE )

SET FONT OF oWnd TO oFont
SET MESSAGE OF oWnd TO "Usuario = " + WNetGetUser() + " - " + FWVERSION TIME DATE KEYBOARD

@ 10, 2 BUTTON aoBt[ 1 ] PROMPT "&Fichero Excel" PIXEL SIZE 120,24 OF oWnd FONT oFont ;
ACTION ( cFileExcel := cGetFile32( ".xls", 'Abrir fichero', , GetCurDir(), .F., ,".xls" ), ;
IF( Empty( cFileExcel ), , ( aoSy[ 1 ]:Refresh(), lFichSub := .T. ) ) )
@ 11,130 SAY aoSy[ 1 ] PROMPT cFileExcel PIXEL BORDER SIZE 450,24 FONT oFont

@ 400, 40 BUTTON aoBt[ 2 ] PROMPT "&Generar" PIXEL SIZE 100,22 OF oWnd FONT oFont ;
ACTION ImportaDat( cFileExcel, oMeter, @lEnd ) WHEN lFichSub .AND. Asc( AllTrim( cFileExcel ) ) > 0

@ 400,496 BUTTON aoBt[ 3 ] PROMPT "Sa&lir" PIXEL SIZE 100,22 OF oWnd FONT oFont ACTION oWnd:End()

@ 86, 30 SAY oSay PROMPT "COLUMNAS:" PIXEL SIZE 100,18 FONT oFont
@ 60,130 SAY oSay PROMPT "Refer" PIXEL SIZE 50,18 FONT oFont
@ 80,130 GET aoGt[ 1 ] VAR nCol_Rfe PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd
@ 60,190 SAY oSay PROMPT "Descri" PIXEL SIZE 50,18 FONT oFont
@ 80,190 GET aoGt[ 2 ] VAR nCol_Des PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd
@ 60,250 SAY oSay PROMPT "Seccion" PIXEL SIZE 50,18 FONT oFont
@ 80,250 GET aoGt[ 3 ] VAR nCol_Sec PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd
@ 60,310 SAY oSay PROMPT "Familia" PIXEL SIZE 50,18 FONT oFont
@ 80,310 GET aoGt[ 4 ] VAR nCol_Fam PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd
@ 60,370 SAY oSay PROMPT "Marca" PIXEL SIZE 50,18 FONT oFont
@ 80,370 GET aoGt[ 5 ] VAR nCol_Mar PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd
@ 60,430 SAY oSay PROMPT "Precio" PIXEL SIZE 50,18 FONT oFont
@ 80,430 GET aoGt[ 6 ] VAR nCol_Pre PIXEL SIZE 40, 24 PICTURE "@ 99" RIGHT OF oWnd

@ 120,130 SAY oSay PROMPT "Familia" PIXEL SIZE 50,18 FONT oFont
@ 140,130 GET aoGt[ 7 ] VAR cFamilia PIXEL SIZE 90, 24 PICTURE " 999" OF oWnd
@ 120,230 SAY oSay PROMPT "Descuento" PIXEL SIZE 90,18 FONT oFont
@ 140,230 GET aoGt[ 8 ] VAR nDescto PIXEL SIZE 100, 24 PICTURE " 99.99" RIGHT OF oWnd

@ 320, 40 METER oMeter VAR nActual TOTAL nTotal PIXEL SIZE 555, 40 OF oWnd ;
FONT oFont COLOR nRGB( 90, 90, 90 ), nRGB( 255, 255, 255 ) ;
BARCOLOR nRGB( 25, 25, 120 ), nRGB( 255, 255, 255 )

ACTIVATE WINDOW oWnd

Muchas gracias por tu ayuda (muito obrigado).
Compila bien, has cambiado los colores del primer GET, pero hace lo mismo que el mío, se queda el foco en GET aoGt[ 1 ] y no sale de ahí con nunguna tecla ni con <Enter> ni con <Tabulador>. Hay que pinchar con el ratón en otro GET para que pase.
Compilando con la versión vieja funciona bien y con <Enter> cambia de un GET al otro perfecyamente.
Yo pienso que es algo del xHarbour que funciona mal.

Muchas gracias y recibe un cordial saludo

Entonces hay algo errado con tu instalacion de Borland ó de FiveWin.

Mira los archivos .cfg