FiveTech Software tech support forums

Posted: **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 )

Posted: **Wed May 17, 2017 10:20 am**

Silvio,

You have to carefully review your sources and fix them

one by one, step by step :-)

Posted: **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

Posted: **Wed May 17, 2017 11:48 am**

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

Posted: **Wed May 17, 2017 2:58 pm**

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

EMG

Posted: **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 ?

Posted: **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

Posted: **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

Posted: **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

Posted: **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

Posted: **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

Posted: **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 ?

Posted: **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

Posted: **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.

Posted: **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 '

FiveTech Software tech support forums

Harbour Problems | Resolved!!!

Harbour Problems | Resolved!!!

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems

Re: Harbour Problems