Hello, Testing this samples:
[CODE] #include "FiveWin.ch" #ifdef __HARBOUR__ #ifndef __XHARBOUR__ #include "\harbour\contrib\xhb\xhbcls.ch" #endif /* __XHARBOUR__ */ #endif /* __HARBOUR__ */ **-----------* ** TCombobox * **-----------* #ifndef __CLIPPER__ #define COMBO_BASE 320 #else #define COMBO_BASE WM_USER #endif #define CB_SETITEMHEIGTH ( COMBO_BASE + 19 ) && 339 #define CB_GETITEMHEIGTH ( COMBO_BASE + 20 ) && 340 ************* function MAIN ************* MY_CLASSES() return NIL ******************* function MY_CLASSES ******************* override method GetMinVisible in class TCombobox with TComboboxGetMinVisible return NIL &&----------------------------------------------------------------------------&& ************************************** TCombobox static function TComboboxGetMinVisible ************************************** local Self := HB_QSelf() return ::SendMsg( CB_GETMINVISIBLE, 0, 0 ) [ENDCODE] ....generate this erro: [ERROR] Error description: Error BASE/3000 Cannot modify INLINE method: __CLSMODMSG Stack Calls =========== Called from: => __CLSMODMSG(0) Called from: over.prg => MY_CLASSES(36) Called from: over.prg => MAIN(28) [ENDERROR] How to resolve this ? Regards, Rossine. -- View this message in context: http://www.nabble.com/error-in-%22override-method%22-tp22373618p22373618.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
