xHarbour to Harbour

[Natter]

Hi,

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

[Antonio Linares]

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

[Natter]

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

[Antonio Linares]

This is the function that Harbour provides:

Code: Select all  Expand view

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

[Natter]

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

[Antonio Linares]

Please try this:

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

or

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

[carlos vargas]

use harbour/contrib/xhb

#include "xhbcls.ch"

to have xharbour compatibility with extended class modification

[Natter]

__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?

[Antonio Linares]

Is the function PaintOverlay() a xHarbour function ?

What library do you link to use it ?

[Natter]

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

[Antonio Linares]

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

What error is it ?

[Natter]

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

[Antonio Linares]

Try to remove "static" from here:

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

[Natter]

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

[Antonio Linares]

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