OVERRIDE METHOD

[jicorral]

I'm trying to replace HaldleEvento from TControl:

Code: Select all

function Main()

   lChDir(cFilePath(HB_ARGV(0)))

   OVERRIDE METHOD HandleEvent IN CLASS TControl WITH ControlHE // <--------------

   SET HELPFILE TO "ayuda1.chm"  
    SetHelpPopup('Ayuda.txt')

   DEFINE WINDOW oWnd FROM 1, 1 TO 40, 120 ;
      MENU BuildMenu()
    oWnd:nHelpID := 'Intro'

   ACTIVATE WINDOW oWnd

return nil

......

static function ControlHE( nMsg, nWParam, nLParam )
   local Self := HB_QSelf()
...
 

But I'm getting this error:

Code: Select all

ayuda1.PRG(17) Error E0030  Syntax error "syntax error at 'METHOD'"

Any idea?

[Enrico Maria Giordano]

Please include

#include "Hbclass.ch"

EMG

[jicorral]

I have it included:

Code: Select all

#include "FiveWin.ch"
#include "InKey.ch"
#include "hbclass.ch"
#include "..\res\resources.h"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   lChDir(cFilePath(HB_ARGV(0)))

    OVERRIDE METHOD HandleEvent IN CLASS TControl WITH ControlHE

   SET HELPFILE TO "ayuda1.chm"  
    SetHelpPopup('Ayuda.txt')

   DEFINE WINDOW oWnd FROM 1, 1 TO 40, 120 ;
      MENU BuildMenu()
    oWnd:nHelpID := 'Intro'

   ACTIVATE WINDOW oWnd

return ni

[Enrico Maria Giordano]

Are you using Harbour or xHarbour?

EMG

[jicorral]

Harbour 902

[Antonio Linares]

Jorge Ignacio,

Harbour does not support OVERRIDE METHOD yet

You need to use xHarbour to have it

[jicorral]

Oppss. Thx a lot.

So there is no way to replace a class method with harbour? I have found way to do it with an object but I need to do it with the class on application scope.

[Enrico Maria Giordano]

This is from Przemek:

Code: Select all

#xcommand OVERRIDE METHOD <!Message!> [IN] CLASS <!Class!> WITH [METHOD] ;
                          <!Method!> [SCOPE <Scope>] => ;
          __clsModMsg( <Class>():classH, #<Message>, @<Method>(), ;
                       IIF( <.Scope.>, <Scope>, HB_OO_CLSTP_EXPORTED ) )

EMG

[jicorral]

Great! Do it! Thx a lot.

[Antonio Linares]

Enrico,

Thanks!