Harbour Problems | Resolved!!!

Harbour Problems | Resolved!!!

Postby Silvio.Falconi » Tue May 16, 2017 4:43 pm

compiling with Harbour I have problems with these oldest classes

Tslines
Code: Select all  Expand view
Error E2344 c:\Work\bcc7\include\windows\sdk\windef.h 165: Earlier declaration of 'PWORD'
Error E2238 c:\work\Harbour\Include\clipdefs.h 102: Multiple declaration for 'BOOL'
Error E2344 c:\Work\bcc7\include\windows\sdk\windef.h 154: Earlier declaration of 'BOOL'
Error E2238 c:\work\Harbour\Include\clipdefs.h 105: Multiple declaration for 'PBOOL'
Error E2344 c:\Work\bcc7\include\windows\sdk\windef.h 159: Earlier declaration of 'PBOOL'
Error E2238 c:\work\Harbour\Include\clipdefs.h 114: Multiple declaration for 'HANDLE'
Error E2344 c:\Work\bcc7\include\windows\sdk\winnt.h 520: Earlier declaration of 'HANDLE'
Error E2293 SOURCE\FUNCTION\BPAINT.C 12: ) expected
Warning W8019 SOURCE\FUNCTION\BPAINT.C 84: Code has no effect in function HB_FUN_SBTNPAINT
Error E2379 SOURCE\FUNCTION\BPAINT.C 84: Statement missing ; in function HB_FUN_SBTNPAINT
Error E2140 SOURCE\FUNCTION\BPAINT.C 85: Declaration is not allowed here in function HB_FUN_SBTNPAINT
Warning W8019 SOURCE\FUNCTION\BPAINT.C 86: Code has no effect in function HB_FUN_SBTNPAINT
Error E2379 SOURCE\FUNCTION\BPAINT.C 86: Statement missing ; in function HB_FUN_SBTNPAINT
Error E2140 SOURCE\FUNCTION\BPAINT.C 87: Declaration is not allowed here in function HB_FUN_SBTNPAINT
Error E2140 SOURCE\FUNCTION\BPAINT.C 88: Declaration is not allowed here in function HB_FUN_SBTNPAINT
Error E2140 SOURCE\FUNCTION\BPAINT.C 89: Declaration is not allowed here in function HB_FUN_SBTNPAINT
Error E2140 SOURCE\FUNCTION\BPAINT.C 90: Declaration is not allowed here in function HB_FUN_SBTNPAINT
Error E2140 SOURCE\FUNCTION\BPAINT.C 91: Declaration is not allowed here in function HB_FUN_SBTNPAINT
Error E2140 SOURCE\FUNCTION\BPAINT.C 92: Declaration is not allowed here in function HB_FUN_SBTNPAINT
Error E2140 SOURCE\FUNCTION\BPAINT.C 93: Declaration is not allowed here in function HB_FUN_SBTNPAINT
Error E2451 SOURCE\FUNCTION\BPAINT.C 103: Undefined symbol 'nHeight' in function HB_FUN_SBTNPAINT
Error E2451 SOURCE\FUNCTION\BPAINT.C 127: Undefined symbol 'nBkOld' in function HB_FUN_SBTNPAINT
Error E2314 SOURCE\FUNCTION\BPAINT.C 161: Call of nonfunction in function HB_FUN_SBTNPAINT
Error E2314 SOURCE\FUNCTION\BPAINT.C 193: Call of nonfunction in function HB_FUN_SBTNPAINT
Error E2314 SOURCE\FUNCTION\BPAINT.C 201: Call of nonfunction in function HB_FUN_SBTNPAINT
Error E2314 SOURCE\FUNCTION\BPAINT.C 207: Call of nonfunction in function HB_FUN_SBTNPAINT
Error E2314 SOURCE\FUNCTION\BPAINT.C 286: Call of nonfunction in function HB_FUN_SBTNPAINT
Error E2451 SOURCE\FUNCTION\BPAINT.C 411: Undefined symbol 'ibmWidth' in function HB_FUN_SBTNPAINT
Error E2451 SOURCE\FUNCTION\BPAINT.C 418: Undefined symbol 'nTop' in function HB_FUN_SBTNPAINT
Error E2451 SOURCE\FUNCTION\BPAINT.C 419: Undefined symbol 'nLeft' in function HB_FUN_SBTNPAINT
Error E2451 SOURCE\FUNCTION\BPAINT.C 458: Undefined symbol 'nWidth' in function HB_FUN_SBTNPAINT
Error E2451 SOURCE\FUNCTION\BPAINT.C 463: Undefined symbol 'nTop' in function HB_FUN_SBTNPAINT
Error E2451 SOURCE\FUNCTION\BPAINT.C 464: Undefined symbol 'nLeft' in function HB_FUN_SBTNPAINT
Warning W8065 SOURCE\FUNCTION\BPAINT.C 477: Call to function 'DrawBitmap' with no prototype in function HB_FUN_SBTNPAINT
Warning W8065 SOURCE\FUNCTION\BPAINT.C 480: Call to function 'DrawBitmap' with no prototype in function HB_FUN_SBTNPAINT
Error E2314 SOURCE\FUNCTION\BPAINT.C 656: Call of nonfunction in function HB_FUN_SBTNPAINT
Warning W8004 SOURCE\FUNCTION\BPAINT.C 672: 'iClipTot' is assigned a value that is never used in function HB_FUN_SBTNPAINT
Error E2314 SOURCE\FUNCTION\BPAINT.C 688: Call of nonfunction in function MakeDarker
Error E2314 SOURCE\FUNCTION\BPAINT.C 704: Call of nonfunction in function MakeDarker
Error E2314 SOURCE\FUNCTION\BPAINT.C 877: Call of nonfunction in function SBtnBox
Error E2314 SOURCE\FUNCTION\BPAINT.C 950: Call of nonfunction in function ColorDegrad
Error E2314 SOURCE\FUNCTION\BPAINT.C 954: Call of nonfunction in function ColorDegrad
Error E2314 SOURCE\FUNCTION\BPAINT.C 991: Call of nonfunction in function ColorDegrad
Error E2314 SOURCE\FUNCTION\BPAINT.C 993: Call of nonfunction in function ColorDegrad
Error E2314 SOURCE\FUNCTION\BPAINT.C 1004: Call of nonfunction in function ColorDegrad
Error E2314 SOURCE\FUNCTION\BPAINT.C 1015: Call of nonfunction in function ColorDegrad
Error E2314 SOURCE\FUNCTION\BPAINT.C 1017: Call of nonfunction in function ColorDegrad
Error E2314 SOURCE\FUNCTION\BPAINT.C 1027: Call of nonfunction in function ColorDegrad
Error E2314 SOURCE\FUNCTION\BPAINT.C 1066: Call of nonfunction in function ColorDegrad
Error E2314 SOURCE\FUNCTION\BPAINT.C 1082: Call of nonfunction in function ColorDegrad
Error E2314 SOURCE\FUNCTION\BPAINT.C 1191: Call of nonfunction in function HB_FUN_DRAWRADIO
Error E2314 SOURCE\FUNCTION\BPAINT.C 1192: Call of nonfunction in function HB_FUN_DRAWRADIO
Error E2228 SOURCE\FUNCTION\BPAINT.C 1192: Too many error or warning messages in function HB_FUN_DRAWRADIO
*** 51 errors in Compile ***
 


FileXls
Code: Select all  Expand view
Progetto: HFileXls, Ambiente: Five_Pelles:
[1]:Harbour.Exe source\tfilexls.prg  /m /n0 /gc1 /es2 /iinclude;C:\work\fwh\include /ic:\work\Harbour\Include /jitaliano.HIT /iinclude;c:\work\fwh\include;c:\work\Harbour\include /oObj\tfilexls.c
Harbour 3.2.0dev (r1406271520)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'source\tfilexls.prg'...
Lines 6264, Functions/Procedures 30
Generating C source output to 'Obj\tfilexls.c'... Done.
[1]:Bcc32.Exe -M -c -O2  -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -Iinclude;C:\work\fwh\include -IC:\WORK\bcc7\Include;c:\work\Harbour\Include  -nObj Obj\tfilexls.c
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
Obj\tfilexls.c:
[1]:Harbour.Exe source\xlserror.prg  /m /n0 /gc1 /es2 /iinclude;C:\work\fwh\include /ic:\work\Harbour\Include /jitaliano.HIT /iinclude;c:\work\fwh\include;c:\work\Harbour\include /oObj\xlserror.c
Harbour 3.2.0dev (r1406271520)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'source\xlserror.prg'...
Lines 186, Functions/Procedures 1
Generating C source output to 'Obj\xlserror.c'... Done.
[1]:Bcc32.Exe -M -c -O2  -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -Iinclude;C:\work\fwh\include -IC:\WORK\bcc7\Include;c:\work\Harbour\Include  -nObj Obj\xlserror.c
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
Obj\xlserror.c:
[1]:Harbour.Exe source\xlsfunc.prg  /m /n0 /gc1 /es2 /iinclude;C:\work\fwh\include /ic:\work\Harbour\Include /jitaliano.HIT /iinclude;c:\work\fwh\include;c:\work\Harbour\include /oObj\xlsfunc.c
Harbour 3.2.0dev (r1406271520)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'source\xlsfunc.prg'...
Lines 69, Functions/Procedures 20
Generating C source output to 'Obj\xlsfunc.c'... Done.
[1]:Bcc32.Exe -M -c -O2  -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -Iinclude;C:\work\fwh\include -IC:\WORK\bcc7\Include;c:\work\Harbour\Include  -nObj Obj\xlsfunc.c
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
Obj\xlsfunc.c:
[1]:TLib.Exe HFileXls.Lib /P512 @HFileXls.bcl , Debug\HFileXls.Lst
TLIB 6.4 Copyright (c) 1987-2014 Embarcadero Technologies, Inc.
+C:\Work\Prg\Badge\Lib\filexls\Obj\tfilexls.Obj &
+C:\Work\Prg\Badge\Lib\filexls\Obj\xlserror.Obj &
+C:\Work\Prg\Badge\Lib\filexls\Obj\xlsfunc.Obj

Error: Bad header in input LIB
 


on another oldestclass runned with xharbour on Habour make me an error on these lines

Error description: Error BASE/1003 Variabile inesistente: SUPER ( line 89)

METHOD Init ( hDlg ) INLINE Super:Init ( hDlg ), ::Default()
METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::Default()


Code: Select all  Expand view

===========
   Path and name: C:\Work\Prg\Agenda -\main.Exe (32 bits)
   Size: 3,902,464 bytes
   Compiler version: Harbour 3.2.0dev (r1406271520)
   FiveWin  version: FWH 17.02
   C compiler version: Borland C++ 5.8.2 (32-bit)
   Windows version: 6.1, Build 7600

   Time from start: 0 hours 0 mins 2 secs
   Error occurred at: 16-05-2017, 21:22:58
   Error description: Error BASE/1003  Variabile inesistente: SUPER

Stack Calls
===========
   Called from: Lib\vtaskbar\VMenu.prg => (b)TVMENU( 188 )
   Called from: Lib\vtaskbar\VMenu.prg => TVMENU:INITIATE( 0 )
   Called from:  => __OBJSENDMSG( 0 )
   Called from: .\source\function\HARBOUR.PRG => OSEND( 291 )
   Called from: .\source\function\HARBOUR.PRG => ASEND( 259 )
   Called from: .\source\classes\DIALOG.PRG => TFSDI:INITIATE( 647 )
   Called from: .\source\classes\DIALOG.PRG => TFSDI:ACTIVATE( 331 )
   Called from: Source\PAgenda.prg => AGENDA( 212 )
   Called from: Source\main.prg => (b)TAPPLICATION_BUILDBTNBAR( 256 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 665 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 901 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1721 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1843 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1036 )
   Called from: Source\main.prg => TAPPLICATION:ACTIVATE( 179 )
   Called from: Source\main.prg => MAIN( 44 )
Last edited by Silvio.Falconi on Fri Jul 28, 2017 5:11 pm, edited 1 time in total.
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: Harbour Problems

Postby Antonio Linares » Wed May 17, 2017 10:20 am

Silvio,

You have to carefully review your sources and fix them

one by one, step by step :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Harbour Problems

Postby Silvio.Falconi » Wed May 17, 2017 10:48 am

Yes of course

the problem are on classes type Vtaskbar (Vmenu of c5) , FileXls , Tslines and tsbutton( sbpaint.c)

I decided to use harbor because I have a source that works and only compiles in the harbor.

This source does not compile in xharbour for problems with the swicth command.

I have already warned EMG who has warned the xharbour development team.

In practice, xharbour only wants namevariable = "A", that is, only one letter and no more letters

Having this particular problem I decided to convert the other sources into Harbour language from xharbour
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: Harbour Problems

Postby Antonio Linares » Wed May 17, 2017 11:48 am

I guess that switch implementation mimics language C implementation and just compares one single byte
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Harbour Problems

Postby Enrico Maria Giordano » Wed May 17, 2017 2:58 pm

Yes. It might be faster. Anyway, I don't get any response from the core developers... :-(

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Harbour Problems

Postby Silvio.Falconi » Wed May 17, 2017 4:32 pm

I'm compiling on harbou all sources separated
now I have this problem

Fatal: Unable to open file 'HBRTL.LIB'

where I found it ?
I cannot go to reserved area of Fivetech to download harbour


I have this lib on harbour/lib why it cannot open ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: Harbour Problems

Postby Enrico Maria Giordano » Wed May 17, 2017 4:40 pm

Silvio.Falconi wrote:I'm compiling on harbou all sources separated
now I have this problem

Fatal: Unable to open file 'HBRTL.LIB'

where I found it ?


It's one of the standard Harbour libs. It is in the LIB directory. If you haven't it, your Harbour installation is not complete.

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Harbour Problems

Postby Silvio.Falconi » Wed May 17, 2017 4:48 pm

ok I resolved hbrtl.lib sorry my mistake!!!

now I have another error

Error description: Error BASE/44 Assigned value is wrong class: TC5IMGLIST:NWSIZE
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: Harbour Problems

Postby Enrico Maria Giordano » Wed May 17, 2017 4:51 pm

Silvio.Falconi wrote:ok I resolved hbrtl.lib sorry my mistake!!!

now I have another error

Error description: Error BASE/44 Assigned value is wrong class: TC5IMGLIST:NWSIZE


Neither TC5IMGLIST nor NWSIZE are in the current FWH build.

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8243
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Harbour Problems

Postby Silvio.Falconi » Wed May 17, 2017 5:01 pm

yes you're are Joke ?

I cannot use other classes I cannot change all my applications

for a sample I cannot use texplorerbar because it cannot be build on dialog because it make error DEFCONTROL....it can be use only on init ...I not Know why
fwh texplorerbar not have all options and features have vmenutask
Last edited by Silvio.Falconi on Wed May 17, 2017 5:41 pm, edited 1 time in total.
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: Harbour Problems

Postby hmpaquito » Wed May 17, 2017 5:12 pm

Silvio.Falconi wrote:yes you're are Joke ?

I cannot use other classes I cannot change all my applications

for a sample I cannot use texplorerbar because it cannot be build on dialog because it make error defapanel....it can be use only on init ...I not Know why
fwh texplorerbar not have all options and features have vmenutask



Show your code in error line and around:


Code: Select all  Expand view
Error description: Error BASE/44 Assigned value is wrong class: TC5IMGLIST:NWSIZE
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

Re: Harbour Problems

Postby Silvio.Falconi » Wed May 17, 2017 5:19 pm

the class vMenu is from Tcontrol
and have this method there is an error on this line

METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::Default()

Error occurred at: 05/17/17, 19:09:52
Error description: Error BASE/1003 Variable does not exist: SUPER

sorry but where is the error ? not found super ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: Harbour Problems

Postby Silvio.Falconi » Wed May 17, 2017 5:23 pm

ok perhaps I resolved but it is only one step

I rename Super into ::Super

on TC5ImgList add method

before of these lines

Code: Select all  Expand view
if len( ::aBmps ) == 0
   ::nWSize := nW
   ::nHSize := nH
   DEFAULT ::nWSize := 32
   DEFAULT ::nHSize := 32
endif


the values of the nW and nH is allways NIL
then I put
nH := 32
nW := 32

now seems to run ok but I think it is not the solution because I see the vmenu but I not see all images
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Re: Harbour Problems

Postby hmpaquito » Wed May 17, 2017 6:30 pm

because I see the vmenu but I not see all images


Perhaps that is other different problem....
You should to trace values in xHarbour comparing with trace values in Harbour.
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

Re: Harbour Problems

Postby Silvio.Falconi » Wed May 17, 2017 8:33 pm

I resolved also the images now run ok vMenu

Now I have problem into these classes
Tslines
TsButton

there are problem on Sbpaint.c
someone can help me '
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6716
Joined: Thu Oct 18, 2012 7:17 pm

Next

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Horizon and 15 guests