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
