Hello Francesco,
Francesco Saverio Giudice wrote:
>
>
> as it is written you are trying to modify an INLINE method with a
> function, instead you need to pass a codeblock.
> Try this version, not tested
>
> #xcommand OVERRIDE METHOD <!Message!> [IN] CLASS <!Class!> ;
> WITH INLINE <code,...> [SCOPE <Scope>] => ;
> __clsModMsg( <Class>():classH, #<Message>, { |Self|
> HB_SYMBOL_UNUSED(Self), <code> } )
>
>
I did what you said, but gave the same error. See that with other classes,
this works. can reach at "msgstop( "-3-" ) :
[CODE]
#include "FiveWin.ch"
#ifdef __HARBOUR__
#ifndef __XHARBOUR__
#include "\harbour\contrib\xhb\xhbcls.ch"
#xcommand OVERRIDE METHOD <!Message!> [IN] CLASS <!Class!> ;
WITH INLINE <code,...> [SCOPE <Scope>] => ;
__clsModMsg( <Class>():classH, #<Message>, { |Self|
HB_SYMBOL_UNUSED(Self), code> } )
#endif /* __XHARBOUR__ */
#endif /* __HARBOUR__ */
#define CB_GETMINVISIBLE 5890 // 0x1702
#define CB_SETMINVISIBLE 5889 // 0x1701
*************
function MAIN
*************
MY_CLASSES()
return NIL
*******************
function MY_CLASSES
*******************
msgstop( "-1-" )
override method Activate in class TDialog with TDialogActivate
msgstop( "-2-" )
override method Command in class TDialog with TDialogCommand
msgstop( "-3-" )
override method GetMinVisible in class TCombobox with
TComboboxGetMinVisible
msgstop( "-4-" )
override method SetMinVisible in class TCombobox with
TComboboxSetMinVisible
msgstop( "-5-" )
return NIL
&&----------------------------------------------------------------------------&&
****************************** TDialog
static function TDialogActivate
******************************
local Self := HB_QSelf()
return Self
&&----------------------------------------------------------------------------&&
****************************** TDialog
static function TDialogCommand
******************************
local Self := HB_QSelf()
return Self
&&----------------------------------------------------------------------------&&
************************************** TCombobox
static function TComboboxGetMinVisible
**************************************
local Self := HB_QSelf()
return ::SendMsg( CB_GETMINVISIBLE, 0, 0 )
&&----------------------------------------------------------------------------&&
************************************** TCombobox
static function TComboboxSetMinVisible( nItems )
**************************************
local Self := HB_QSelf()
return ::SendMsg( CB_SETMINVISIBLE, nItems, 0 )
&&----------------------------------------------------------------------------&&
[ENDCODE]
Any more suggestions?
Best regards
Rossine.
--
View this message in context:
http://www.nabble.com/error-in-%22override-method%22-tp22373618p22374532.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
