Rafa,
FWH proporciona la función RoundRect() en el modulo source\winapi\rects.c
Manuel Valdenebro wrote:Recordar que la clase Tutilprn usa Nview32lib y FHW usa, ahora, Freeimage. Por tanto, en 32 bit, da error al utilizar SayImage y PrintImage.
Salvo Box (cajas redondeadas) que estoy intentando sustituir por RoundBox(), creo que la mayoria de las funciones de la clase Tutilprn, ya lo recoge FWH en las nuevas versiones.
thefull wrote: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 para 32 bits.
Seria cojonudo que Mister Antonio las incluyera como contrib en Fivewin,
¿Antonio ?, tienes mi total consentimiento, como siempre , 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
Saludos
Rafa Carmona
// Rutinas de Impresión Gráfica por THEFULL.
// Funciones habilitadas:
// * Caja()
// * Linea()
// * SayBitMap()
// * CajaRound()
// * TrazoH()
// * TrazoV()
// ------------------------------------------------------------------------------------------- //
/* Rev26.03.2000
Segunda Revision:
Ahora le podemos pasar cualquier Pen para dibujar el Rectangulo redondeado
Requiere incluir en el linkado el objeto DRAWING.OBJ
*/
// ------------------------------------------------------------------------------------------- //
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 78 guests