FiveTech Software tech support forums

Code: Select all | Expand

   DEFINE BRUSH oBr color rgb( 204, 255, 153 )
   ...
    UTILPRN ::oUtil Self:nLinea, 1.3 SAY "  " + DToC( aDatos[ nItem ][ 1 ] ) FONT ::oFnt2  BRUSH oBr WIDTH 18.2 shadow .T.
 

Code: Select all | Expand

#Include "hbcompat.ch"  // Harbour and xHarbour - Compatibilidad.

   UTILPRN ::oUtil ::nLinea, 1.3 SAY "  " + DToC( aDatos[ nItem ][ 1 ] ) FONT ::oFnt2  BRUSH ::oBr WIDTH 18.2  lShadow //SHADOW .T.
 

Code: Select all | Expand

   DEFINE BRUSH  oBrush COLOR nColor
 

Code: Select all | Expand

UTILPRN ::oUtil ::nLinea, 1.3 SAY " " + DToC( aDatos[ nItem ][ 1 ] ) FONT ::oFnt2 BRUSH ::oBr WIDTH 18.2 // sin el SHADOW
 

Code: Select all | Expand

// 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