buttonbmp de Rossine - compilar prgs
Posted: Fri Jan 06, 2006 5:07 pm
Amigos no he podido compilar estas líneas
con Harbour 45 y FWH 2.7 del archivo de Rossine Button.Prg
línea 104
::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 ) )
línea 161
::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 ) )
Alguien me puede enviar los objs para Harbour 45 y
FWH 2.7. ?
Muchas gracias.
con Harbour 45 y FWH 2.7 del archivo de Rossine Button.Prg
línea 104
::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 ) )
línea 161
::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 ) )
Alguien me puede enviar los objs para Harbour 45 y
FWH 2.7. ?
Muchas gracias.