FiveTech Support Forums

alguien tiene alguna idea porque al tratar de compilar el button.prg que modifico Rossine me truena aqui:
::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP,;
If( lDefault, BS_DEFPUSHBUTTON, 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( at( CRLF, ::cCaption ) > 0, BS_MULTILINE, 0 ),;
If( lDesign, WS_CLIPSIBLINGS, 0 ) )
y aqui tambien:
::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, BS_MULTILINE,;
If( cPosText == "TEXTTOP", BS_TOP, 0 ),;
If( cPosText == "TEXTBOTTOM", BS_BOTTOM, 0 ),;
If( cPosText == "TEXTLEFT", BS_LEFT, 0 ),;
If( cPosText == "TEXTRIGHT", BS_RIGHT, 0 ) )

uso el verce y el error es el siguiente:
ERROR E0030 Syntax Error: "parse error at 'L'"

o alguien que tenga el .obj generado?

gracias

Francisco,

Mira que los defines al comienzo del PRG no termine ninguno en "L".

Francisco:

He tenido el mismo problema que tu.

Si llegas a encontarrle la solucion
serías tan amable de enviarme
un OBJ.

Uso FWH2.7 Febrero y Harbour

Disculpa y Gracias.

Ruben Fernandez.

Gracias Antonio solucionado !!

Ruben en el button.prg en esto defines
#define BS_LEFT 0x00000100
#define BS_RIGHT 0x00000200
#define BS_TOP 0x00000400
#define BS_BOTTOM 0x00000800
#define BS_MULTILINE 0x00002000

hay que quitarle la "L" que viene al final
saludos

Francisco

Me puedes enviar los archivos porfavor ???

Gracias Francisco.

Saludos cordiales

Ruben Fernandez

Francisco Horta wrote:Gracias Antonio solucionado !!

Ruben en el button.prg en esto defines
#define BS_LEFT 0x00000100
#define BS_RIGHT 0x00000200
#define BS_TOP 0x00000400
#define BS_BOTTOM 0x00000800
#define BS_MULTILINE 0x00002000

hay que quitarle la "L" que viene al final
saludos