FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour xHarbour to Harbour
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
xHarbour to Harbour
Posted: Fri May 27, 2022 09:06 AM

Hi,

Dragging my program from xHarbour to Harbour. Please tell me how to rewrite OVERRIDE in the Harbor syntax

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: xHarbour to Harbour
Posted: Fri May 27, 2022 12:56 PM

Dear Natter,

> Please tell me how to rewrite OVERRIDE in the Harbor syntax

Please post an example of how you use it with xHarbour

thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
Re: xHarbour to Harbour
Posted: Fri May 27, 2022 01:11 PM

Override Method MouseWheel In Class TXBrowse With XBr_MWhl
Override Method Copy In Class TGet With Cpy_

here - METHOD error
................................................................

atail(a_sp[len(a_sp),2]):=aclone(Str_Arr(dim[st,2,zz], chr(166)))

here - () error

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: xHarbour to Harbour
Posted: Fri May 27, 2022 01:34 PM
This is the function that Harbour provides:

Code (fw): Select all Collapse
FUNCTION __objModMethod( oObject, cSymbol, nFuncPtr )

   IF ! HB_ISOBJECT( oObject ) .OR. ! HB_ISSTRING( cSymbol ) .OR. ! HB_ISSYMBOL( nFuncPtr )
      __errRT_BASE( EG_ARG, 3101, , ProcName( 0 ) )
   ELSEIF __objHasMethod( oObject, cSymbol )
      __clsModMsg( oObject:ClassH, cSymbol, nFuncPtr )
   ENDIF

   RETURN oObject
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
Re: xHarbour to Harbour
Posted: Fri May 27, 2022 01:50 PM

Antonio , thank you ! Excuse me, can I have a concrete example of using this function?

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: xHarbour to Harbour
Posted: Fri May 27, 2022 04:29 PM

Please try this:

__clsModMsg( TXBrowse():ClassH, "MouseWheel", @XBr_MWhl() )

or

__clsModMsg( oXBrowse:ClassH, "MouseWheel", @XBr_MWhl() )

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: xHarbour to Harbour
Posted: Fri May 27, 2022 08:06 PM

use harbour/contrib/xhb

include "xhbcls.ch"

to have xharbour compatibility with extended class modification

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
Re: xHarbour to Harbour
Posted: Sat May 28, 2022 04:03 PM
__clsModMsg( oXBrowse:ClassH, "MouseWheel", @XBr_MWhl() )
This option works

I use the function FW_MakeYourBitmap( nTop, nLeft, |hdc, w, h| PaintOverlay(hDC, w, img) }). When compiling under HARBOUR, I get the error of the PaintOverlay() function

Hi, Carlos !

#include "xhb.ch"
#include "xhbcls.ch"

Did I understand correctly that by connecting these 2 files I can not reco
mpile the program for Harbour?
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: xHarbour to Harbour
Posted: Sat May 28, 2022 08:38 PM

Is the function PaintOverlay() a xHarbour function ?

What library do you link to use it ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
Re: xHarbour to Harbour
Posted: Sat May 28, 2022 09:25 PM

FW_MakeYourBitmap( nTop, nLeft, |hdc, w, h| PaintOverlay(hDC, w, h, img) }).

In this case, PaintOverlay() is a static function gluing two images:

static function PaintOvelay(hDC, w, h, img)
..................................................
return NIL

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: xHarbour to Harbour
Posted: Sat May 28, 2022 11:50 PM

> When compiling under HARBOUR, I get the error of the PaintOverlay() function

What error is it ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
Re: xHarbour to Harbour
Posted: Sun May 29, 2022 06:38 AM

Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_PAINTOVERLAY' referenced from C:\PRGM\GIS\HRB\GS.OBJ
Error: Unable to perform link

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: xHarbour to Harbour
Posted: Sun May 29, 2022 10:29 AM

Try to remove "static" from here:

static function PaintOvelay(hDC, w, h, img)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
Re: xHarbour to Harbour
Posted: Sun May 29, 2022 11:48 AM

Yes, without "static" it compiles without errors!
Do I need to connect #include "xHb" and #include "xHb" ?

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: xHarbour to Harbour
Posted: Sun May 29, 2022 08:25 PM

If you directly use __clsModMsg() then I guess you don't need the header file :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com