Mira, se és que comprendo, pués no uso esta classe.
// Ejemplo: Este ejemplo nos muestra como poner una imagen, cajas, lineas y
// círculos
/*
Por ejemplo:
UTILPRN oUtil SELECT oBrush
UTILPRN oUtil SELECT oPen
UTILPRN oUtil BOX 1,1 TO 2,2
*/
#Include "Fivewin.CH"
#Include "Utilprn.CH"
#Define CLR_GREY 14671839
FUNTION Imp()
DEFINE BRUSH oBrush COLOR CLR_RED
UTILPRN oUtils 2, 2 IMAGE ".\nubes.jpg" JPG PAGE
FOR x := 1 TO 20
UTILPRN oUtils BOX nLinea, nFila TO nLinea + 1, nFila + x ROUND 10 * X, 10 * X;
PEN oPen2
UTILPRN oUtils BOX nLinea - 1, nFila + 1 TO nLinea + x, nFila + 2 ROUND 10 * X, 10 * X;
BRUSH oBrush
nLinea += 0.5
nFila += 0.5
NEXT
nLinea := 1
UTILPRN oUtils SELECT oBrush
UTILPRN oUtils SELECT oPen
// Note que ahora los valores por defecto han cambiado.
UTILPRN oUtils BOX nLinea + 2, 1 TO nLinea + 3, 5
UTILPRN oUtils BOX nLinea + 4, 1 TO nLinea + 6, 6 BRUSH oBrush3 PEN oPen3
// Usa Lapiz Pen3
UTILPRN oUtils LINEA 1, 1 TO 2, 20 PEN oPen3
// y dibujamos caja para comprobar
oUtils:Reset()
UTILPRN oUtils BOX nLinea + 7, 1 TO nLinea + 8, 8
UTILPRN oUtils BOX nLinea + 14, 1 TO nLinea + 15, 18 PEN oPen3 ROUND
UTILPRN oUtils LINEA 10, 1 TO 2, 20 // Usando el lapiz por defecto de la clase
UTILPRN oUtils LINEA 2, 20 TO 20, 1 PEN oPen2 // Usando el lapiz definido
UTILPRN oUtils CIRCLE 20, 10 WIDTH 500 PEN oPen2 BRUSH oBrush Image
UTILPRN oUtils CIRCLE 20, 5 WIDTH 150 PEN oPen3
UTILPRN oUtils CIRCLE 20, 15 WIDTH 200 BRUSH oBrush
ENDPAGE
RETURN NIL
Regards, saludos.
