Sorry but i not have fiwewin Can you post ppo or row adjacent to myc.prg(85) ? Can you remove fivewin from your test so i can try?
2009/3/3 Rossine <[email protected]>: > > Hello Massimo, > > Here you have a complete example: > > [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 > > &&----------------------------------------------------------------------------&& > [/CODE] > > > ...and generate this error: > > Harbour 1.1.0dev (Rev. 10507) > Copyright (c) 1999-2009, http://www.harbour-project.org/ > Compiling 'myc.prg'... > myc.prg(85) Error E0030 Syntax error "syntax error at 'L'" > 1 error > > No code generated > > Regards, > > Rossine. > > -- > View this message in context: > http://www.nabble.com/About-Error-E0030-tp22302416p22308935.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 > -- Massimo Belgrano Albo Nazionale Informatici Professionisti 2620 Socio 2843 Associazione Informatici prof. Analisi e sviluppo software per Lan e Web Consulenza informatica - Formazione Delta Informatica S.r.l. http://www.deltain.it Via Torelli,31 - 28100 Novara - Tel: 0321/30281 _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
