Error in last version FWH 11.10 (Folder + get)

[mauri.menabue]

hello

After the latest updates made by Antonio at 4/11/2011 4.36 of the release FWH 11.10
The following error persists:
The TAB key does not guarantee the passage between the various edit boxes
I attach an example to verify the problem.

Code: Select all  Expand view

#include "FiveWin.Ch"

FUNCTION MAIN()
LOCAL oWnd, oDlg, oFld, cVar1, cVar2

cVar1 := SPACE(10)
cVar2 := SPACE(15)

DEFINE DIALOG oDlg TITLE "Pruebas" SIZE 400,300

@ 0,0 FOLDER oFld PROMPT "Folder 1", "Folder 2" OF oDlg

#define PADRE1 oFld:aDialogs[1]

@ 1,0 GET cVar1 VALID ( MsgInfo("Valid 1"), .T. ) OF PADRE1
@ 2,0 GET cVar2 VALID ( MsgInfo("Valid 2"), .T. ) OF PADRE1

ACTIVATE DIALOG oDlg ;
         CENTER

RETURN NIL
 

I tried to compile the program with HARBOUR instead XHARBOUR but appears
the following error:


│ FiveWin Harbour for 11.10 - Oct. 2011 Harbour │ ▄ power development
│ (c) FiveTech, 1993-2011 │ █ 9X/NT/200X/ME/XP/Vista/7 for Microsoft Windows


Compiling ...
Harbour 2.1.0beta1 (rev 14559)
Copyright (c) 1999-2010, http://www.harbour-project.org/
Compiling 'folder.prg' and generating preprocessed output to 'folder.ppo' ...
Lines 3846, Functions / Procedures 2
Generating C source output to 'folder.c' ... Done.
Borland C + + 5.82 for Win32 Copyright (c) 1993, 2005 Borland
folder.c:
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_FUN_NUMTOHEX' referenced from C: \ FWH \ lib \ FIVEH.L
IB | GETSYSIN
* Linking errors *

c: \ FWH \ samples>
c: \ FWH \ samples>

[nageswaragunupudi]

Please link \xharbour\lib\ct.lib also

[Rimantas]

Please link \xharbour\lib\ct.lib also

He linked with Harbour , not with xHarbour ... I think that the problem is oldest Harbour . If you can renew Harbour from Fwh Ftp or from harbour-project and try again ...

[mauri.menabue]

hello Rimantas

I downloaded harbour from site Fivetech Software.

hello nageswaragunupudy

i make my example through the batch : buildx where is alredy linked ct.lib (dir samples of FWH)

Thank

[Antonio Linares]

Mauri,

This change is required in source\function\getsysin.prg

Code: Select all  Expand view

function BorlandVersion()
   
   #ifdef __XHARBOUR__
      local cHexVer := NumToHex( BorlandC() )
   #else  
      local cHexVer := hb_NumToHex( BorlandC() )
   #endif

return SubStr( cHexVer, 1, 1 ) + "." + SubStr( cHexVer, 2 )
 

[mauri.menabue]

Antonio,

solved the problem :
Error: Unresolved external '_HB_FUN_NUMTOHEX' referenced from C: \ FWH \ lib \ FIVEH.L
IB | GETSYSIN
now harbour is ok.

but the main problem is :

The TAB key or ENTER Key does not guarantee the passage between the various edit boxes (get)
Please try the above example to verify the problem.

Code: Select all  Expand view

#include "FiveWin.Ch"

FUNCTION MAIN()
LOCAL oWnd, oDlg, oFld, cVar1, cVar2

cVar1 := SPACE(10)
cVar2 := SPACE(15)

DEFINE DIALOG oDlg TITLE "Pruebas" SIZE 400,300

@ 0,0 FOLDER oFld PROMPT "Folder 1", "Folder 2" OF oDlg

#define PADRE1 oFld:aDialogs[1]

@ 1,0 GET cVar1 VALID ( MsgInfo("Valid 1"), .T. ) OF PADRE1
@ 2,0 GET cVar2 VALID ( MsgInfo("Valid 2"), .T. ) OF PADRE1

ACTIVATE DIALOG oDlg ;
         CENTER

RETURN NIL
 

Also in harbour there is the same problem.

Thank

[lucasdebeltran]

Your sample with Tabs works fine in FW 11.09

[mauri.menabue]

Hi Lucasdebeltran

I confirm the sample work fine in previus version 11.09

Thanks

[Antonio Linares]

viewtopic.php?p=122141#p122141

[ukservice]

Hello,

Is there please any update?.

I can´t use FWH 11.10.

Also, is Fivetech´s Harbour updated to 3.x?.

Thank you.

[Antonio Linares]

John,

Our more recent changes seem to be working fine. We have not published a revised build yet but if you need the libs we can email them to you.

We are using Harbour 3.1 since it was available You can download it from:
http://code.google.com/p/harbour-and-xharbour-builds/

[ukservice]

Antonio,

Thank you four quick response.

I am afraid they don´t work:
viewtopic.php?f=3&t=22853

Also, the Harbour at FTDN is not updated. So maybe the one at code.google is not the official Fivetech´s.

In addition, could be also be possible to uptoad most recent libs to FDTN zone?.

Thanks

[Antonio Linares]

John,

We have upgraded FTDN/FWH pages to point to the Harbour and xHarbour builds that we publish at Google code:

http://code.google.com/p/harbour-and-xharbour-builds/downloads/list



We are going to double check the tab issue again

[Enrico Maria Giordano]

We are going to double check the tab issue again

Thank you, Antonio. Let me know if I can be of any help.

EMG

[mauri.menabue]

Hi all

Please try this new example, i found a new problem when passing throught the gets using (TAB or CR key).

Code: Select all  Expand view

#include "FiveWin.Ch"

FUNCTION MAIN()
LOCAL oWnd, oDlg, oFld, cVar1, cVar2, cVar3, oGet1, oGet2, oGet3

cVar1 := SPACE(10)
cVar2 := "My When is .F."
cVar3 := SPACE(20)

DEFINE DIALOG oDlg TITLE "Test" SIZE 400,300

@ 0,0 FOLDER oFld PROMPT "Folder 1", "Folder 2" OF oDlg

#define PADRE1 oFld:aDialogs[1]

@ 1,0 GET oGet1 VAR cVar1 VALID ( MsgInfo("Valid 1"), .T. )                 OF PADRE1
@ 2,0 GET oGet2 VAR cVar2 VALID ( MsgInfo("Valid 2"), .T. ) WHEN .F. OF PADRE1
@ 3,0 GET oGet3 VAR cVar3 VALID ( MsgInfo("Valid 3"), .T. )                 OF PADRE1

ACTIVATE DIALOG oDlg CENTER

RETURN NIL

 

thanks