Harbour Problems | Resolved!!!

[Silvio.Falconi]

compiling with Harbour I have problems with these oldest classes

Tslines

Code: Select all  Expand view  RUN

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  RUN

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  RUN

===========
   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 )

[Antonio Linares]

Silvio,

You have to carefully review your sources and fix them

one by one, step by step

[Silvio.Falconi]

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

[Antonio Linares]

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

[Enrico Maria Giordano]

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

EMG

[Silvio.Falconi]

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 ?

[Enrico Maria Giordano]

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

[Silvio.Falconi]

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

[Enrico Maria Giordano]

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

[Silvio.Falconi]

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

[hmpaquito]

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  RUN

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

[Silvio.Falconi]

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 ?

[Silvio.Falconi]

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  RUN

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

[hmpaquito]

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.

[Silvio.Falconi]

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 '