Manuel Valdenebro wrote:Raymundo,
A mi me da error los Box.- Me dice "La aplicación GDI.EXE no es una imagen válida".
¿Que error te da a tí?.
Le he enviado un email a Rafa Carmona, por si pudiera echarnos una mano.
Ya te envie las clases
![Wink ;-)](./images/smilies/icon_wink.gif)
para 32 bits.
Seria cojonudo que Mister Antonio las incluyera como contrib en Fivewin,
¿Antonio ?, tienes mi total consentimiento, como siempre
![Wink ;-)](./images/smilies/icon_wink.gif)
, en coger lo que done a la comunidad y ponerlo en Fivewin.
La solucion es la siguiente, en la clase TUtilPrn , poneis esto:
******************************************************************************
******************************************************************************
#IFDEF __HARBOUR__
DLL FUNCTION RoundRect( hDC AS LONG, ;
iLeft AS _INT , iTop AS _INT, ;
iRight AS _INT, iBottom AS _INT, ;
iWidth AS _INT, iHeight AS _INT ) AS BOOL PASCAL LIB "GDI32.DLL"
#ELSE
DLL FUNCTION RoundRect( hDC AS WORD, ;
iLeft AS _INT , iTop AS _INT, ;
iRight AS _INT, iBottom AS _INT, ;
iWidth AS _INT, iHeight AS _INT ) AS BOOL PASCAL LIB "GDI.EXE"
#ENDIF
Seria interesante que Fivewin imlemente esta funcion, si no lo hace ya, porque de esto hace muchisimo tiempo
![Wink ;-)](./images/smilies/icon_wink.gif)
Saludos
Rafa Carmona