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
