Hi, Using "Extend class", I came across an error. Using this:
extend class TCombobox message with GETDROPPEDWIDTH (n) Inline:: SendMsg (CB_GETDROPPEDWIDTH, 0, 0) ... works, but I do see that this "GETDROPPEDWIDTH (n)", and not use "n" anywhere. This command should accept "GETDROPPEDWIDTH ()". See the complete code: [CODE] #include "FiveWin.ch" #ifdef __HARBOUR__ #ifndef __XHARBOUR__ #include "\harbour\contrib\xhb\xhbcls.ch" #endif /* __XHARBOUR__ */ #endif /* __HARBOUR__ */ #define COMBO_BASE WM_USER #define CB_GETDROPPEDWIDTH ( COMBO_BASE + 25 ) && 339 ******************* function MY_CLASSES ******************* extend class TCombobox with message GETDROPPEDWIDTH( n ) inline ::SendMsg( CB_GETDROPPEDWIDTH, 0, 0 ) && This works *extend class TCombobox with message GETDROPPEDWIDTH() inline ::SendMsg( CB_GETDROPPEDWIDTH, 0, 0 ) && This not works return NIL [ENDCODE] ...and generate this error: Harbour 1.1.0dev (Rev. 10507) Copyright (c) 1999-2009, http://www.harbour-project.org/ Compiling 'myc1.prg'... myc1.prg(19) Error E0030 Syntax error "syntax error at 'CLASS'" 1 error Regards, Rossine. -- View this message in context: http://www.nabble.com/about-%22extend-class%22-tp22309603p22309603.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
