Hi Rossine, '0x00000200L' isn't a valid hexa value in Harbour, use simple '0x00000200' form instead.
Brgds, Viktor On Tue, Mar 3, 2009 at 5:34 PM, Rossine <[email protected]> wrote: > > Hello Massimo, > > > Can you remove fivewin from your test so i can try? > > Can you post ppo or row adjacent to myc.prg(85) ? > > Fivewin is not include: > > <<< MYC.PPO >>> > > [CODE_PPO] > #line 17 "myc.prg" > function MY_CLASSES > > > __clsModMsg( TButton():classH, "New", @TButtonNew() ) > > return NIL > > > > > > > > > > > > > static function TButtonNew( nRow, nCol, cCaption, oWnd, bAction, nWidth, > nHeight, nHelpId, oFont, lDefault, lPixel, lDesign, cMsg, lUpdate, bWhen, > bValid, lCancel, cPosText ) > > > local Self := HB_QSelf() > > > local nFntWidth, nFntHeight > > > > > > > > > DEFAULT nRow := 0, nCol := 0, cCaption := "&Button", oWnd := > GetWndDefault(), oFont := oWnd:oFont, nHelpId := 100, lDefault := .F., > lPixel := .F., lDesign := .F., lUpdate := .F., lCancel := .F., cPosText := > "" > > > > DEFAULT nWidth := Max( Len( cCaption ) * 6, 30 ), nHeight := 18 - 5 > > > ::cCaption := If( cPosText == "TEXTRIGHT", strtran( cCaption + " ", CRLF, > " " + CRLF ), cCaption ) > > > > > > > > > > ::nTop = nRow * If( ! lPixel, 18, 1 ) > ::nLeft = nCol * If( ! lPixel, 6, 1 ) > ::nBottom = ::nTop + nHeight > ::nRight = ::nLeft + nWidth > > > ::nHelpId = nHelpId > ::bAction = bAction > ::oWnd = oWnd > ::oFont = oFont > > > > > > > > > ::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, If( lDefault, > BS_DEFPUSHBUTTON, 0 ), If( at( CRLF, cCaption ) > 0, 0x00002000L, 0 ), If( > cPosText == "TEXTTOP", 0x00000400L, 0 ), If( cPosText == "TEXTBOTTOM", > 0x00000800L, 0 ), If( cPosText == "TEXTLEFT", 0x00000100L, 0 ), If( > cPosText > == "TEXTRIGHT", 0x00000200L, 0 ), If( lDesign, WS_CLIPSIBLINGS, 0 ) ) > > ::nId = ::GetNewId() > ::lDrag = lDesign > ::lCaptured = .F. > ::cMsg = cMsg > ::lUpdate = lUpdate > ::bWhen = bWhen > ::bValid = bValid > ::lDefault = lDefault > ::lCancel = lCancel > ::lProcessing = .F. > > if ! Empty( oWnd:hWnd ) > ::Create( "BUTTON" ) > oWnd:AddControl( Self ) > if oFont <> nil > ::SetFont( oFont ) > endif > else > oWnd:DefControl( Self ) > endif > > if lDesign > ::CheckDots() > endif > > return Self > > [ENDCODE_PPO] > > ...and MYC.PRG > > [CODE] > > *#include "FiveWin.ch" > *#include "hbclass.ch" > *#include "Constant.ch" > *#include "Set.ch" > *#include "wcolors.ch" > *#include "fget.ch" > > #ifdef __HARBOUR__ > #ifndef __XHARBOUR__ > > #include "\harbour\contrib\xhb\xhbcls.ch" > > #endif /* __XHARBOUR__ */ > #endif /* __HARBOUR__ */ > > ******************* > function MY_CLASSES > ******************* > > override method New in class TButton with TButtonNew > > return NIL > > #define BS_LEFT 0x00000100L > #define BS_RIGHT 0x00000200L > #define BS_TOP 0x00000400L > #define BS_BOTTOM 0x00000800L > #define BS_CENTER 0x00000300L > #define BS_VCENTER 0x00000C00L > #define BS_MULTILINE 0x00002000L > > ******************************* TButton > static function TButtonNew( nRow, nCol, cCaption, oWnd, bAction, nWidth, > nHeight, ; > nHelpId, oFont, lDefault, lPixel, lDesign, > cMsg,; > lUpdate, bWhen, bValid, lCancel, cPosText ) > ******************************* > > local Self := HB_QSelf() > > #ifndef FWPLUS > local nFntWidth, nFntHeight > #endif > > DEFAULT nRow := 0, nCol := 0,; > cCaption := "&Button",; > oWnd := GetWndDefault(),; > oFont := oWnd:oFont,; > nHelpId := 100,; > lDefault := .f., lPixel := .f., lDesign := .f., lUpdate := .f.,; > lCancel := .f., cPosText := "" > > #ifndef FWPLUS > DEFAULT nWidth := Max( Len( cCaption ) * BTN_CHARPIX_W, 30 ),; > nHeight := BTN_CHARPIX_H - 5 > #endif > > ::cCaption := If( cPosText == "TEXTRIGHT", strtran( cCaption + " ", CRLF, > " " + CRLF ), cCaption ) > > #ifdef FWPLUS > x2RowCol(@nRow, @nCol, @nHeight, @nWidth, lPixel, Self, oWnd) > > ::nTop = nRow > ::nLeft = nCol > ::nBottom = ::nTop + nHeight - 1 > ::nRight = ::nLeft + nWidth - 1 > #else > ::nTop = nRow * If( ! lPixel, BTN_CHARPIX_H, 1 ) > ::nLeft = nCol * If( ! lPixel, BTN_CHARPIX_W, 1 ) > ::nBottom = ::nTop + nHeight > ::nRight = ::nLeft + nWidth > #endif > > ::nHelpId = nHelpId > ::bAction = bAction > ::oWnd = oWnd > ::oFont = oFont > > ::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP,; > If( lDefault, BS_DEFPUSHBUTTON, 0 ),; > If( at( CRLF, cCaption ) > 0, BS_MULTILINE, 0 ), ; > If( cPosText == "TEXTTOP", BS_TOP, 0 ),; > If( cPosText == "TEXTBOTTOM", BS_BOTTOM, 0 ),; > If( cPosText == "TEXTLEFT", BS_LEFT, 0 ),; > If( cPosText == "TEXTRIGHT", BS_RIGHT, 0 ),; > If( lDesign, WS_CLIPSIBLINGS, 0 ) ) > > ::nId = ::GetNewId() > ::lDrag = lDesign > ::lCaptured = .f. > ::cMsg = cMsg > ::lUpdate = lUpdate > ::bWhen = bWhen > ::bValid = bValid > ::lDefault = lDefault > ::lCancel = lCancel > ::lProcessing = .f. > > if ! Empty( oWnd:hWnd ) > ::Create( "BUTTON" ) > oWnd:AddControl( Self ) > if oFont != nil > ::SetFont( oFont ) > endif > else > oWnd:DefControl( Self ) > endif > > if lDesign > ::CheckDots() > endif > > return Self > > > &&----------------------------------------------------------------------------&& > > [ENDCODE] > > > ...and generate this error: > > Harbour 1.1.0dev (Rev. 10507) > Copyright (c) 1999-2009, http://www.harbour-project.org/ > Compiling 'myc.prg' and generating preprocessed output to 'myc.ppo'... > myc.prg(50) Error E0030 Syntax error "syntax error at 'NROW'" > myc.prg(54) Error E0030 Syntax error "syntax error at 'NWIDTH'" > myc.prg(85) Error E0030 Syntax error "syntax error at 'L'" > 3 errors > > See that the error persists on line 85. > > Regards, > > Rossine. > > > -- > View this message in context: > http://www.nabble.com/About-Error-E0030-tp22302416p22312308.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 >
_______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
