IMAGE on BOX

[Silvio.Falconi]

How I can to create an image on a box ?
I try with

oPrn:Box(X, Y, Z, K,;
{ nColorBordo, 0.1 }, nBackcolor, ;
{"", oFnt, nColorFont, "" }, ;
"CM" )

@ x,y PRINT TO oPrn IMAGE cDesc SIZE nAltezza,nAltezza CM

this is the result



I tried also with

oPrn:cmBox( x, y, x + nAltezza, y + nLarghezza )
@ x,y PRINT TO oPrn IMAGE cDesc SIZE nLarghezza,nAltezza CM


Any solution pls ?

[karinha]

Silvio, mira se ayuda:

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local nMargin, nGutter, nWidth, nColWidth
   local nRow, nCol
   local oPrn, oPen, oPen2, oFont, oFontV, oFontS, oFont14V, oBrush
   local cSyntax := "Syntax :" + CRLF + ;
         "RoundBox( nTop, nLeft, nBottom, nRight, nRndW, nRndH, oPen, onBack, aText, cUnits )"
   local cText := "aText :" + CRLF + "{ cText, oFont, nClrText, [cAlign] }"

   // DEFINE BRUSH oBrush FILE "c:\fwh1905\bitmaps\backgrnd\space1.bmp"
   DEFINE BRUSH oBrush FILE "c:\fwh1905\bitmaps\alphabmp\printer.bmp" // RESIZE

   PRINT oPrn PREVIEW

   DEFINE PEN oPen WIDTH 3 COLOR CLR_HRED OF oPrn
   DEFINE PEN oPen2 WIDTH 1 COLOR CLR_BLACK OF oPrn
   DEFINE FONT oFontS NAME "ARIAL" SIZE 0,-12 OF oPrn
   DEFINE FONT oFont  NAME "ARIAL" SIZE 0,-20 OF oPrn
   DEFINE FONT oFontV NAME "ARIAL" SIZE 0,-20 BOLD NESCAPEMENT 900 OF oPrn
   DEFINE FONT oFont14V NAME "ARIAL" SIZE 0,-14 NESCAPEMENT 900 OF oPrn

   nMargin     := Int( 0.1 * oPrn:nHorzRes() )
   nWidth      := 8 * nMargin
   nColWidth   := Int( ( nWidth - nMargin ) / 2 )

   PAGE

   oPrn:RoundBox( 1.0, 1.0, 2.0, 7.5, 0.4, 0.4, oPen, CLR_YELLOW, ;
      { "HORIZONTAL" + CRLF + FWVERSION, { oFont, oFontS }, CLR_HRED }, "INCHES" )

   oPrn:RoundBox( 2.2, 1.0, 4.2, 2.0, 0.2, 0.2, oPen, CLR_GRAY,  ;
      { "VERTICAL" + CRLF + "TEXT", oFontV, CLR_YELLOW }, "INCHES" )

   /*
   oPrn:RoundBox( 2.2, 3.0, 4.2, 7.5, 0.3, 0.3, oPen, oBrush, ;
            { cSyntax, oFont, CLR_BLACK }, "INCHES" )
   */

   oPrn:RoundBox( 2.2, 3.0, 4.2, 5.5, 0.3, 0.3, oPen, oBrush, ;
            { cSyntax, oFont, CLR_HRED }, "INCHES" )

   oPrn:RoundBox( 4.4, 3.0, 5.9, 7.5, 0.3, 0.3, oPen, CLR_WHITE, ;
            { cText, oFont, CLR_BLACK }, "INCHES" )

   oPrn:RoundBox( 5.9, 1.5, 7.1, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
      { "Faturas", oFont14V, CLR_BLACK }, "INCHES" )

   oPrn:RoundBox( 7.1, 1.5, 8.3, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
      { "Cálculo" + CRLF + "Imposto", oFont14V, CLR_BLACK }, "INCHES" )

   oPrn:RoundBox( 8.3, 1.5, 10.2, 2.1, 0.1, 0.1, oPen2, CLR_HGRAY, ;
      { "Transportador", oFont14V, CLR_BLACK }, "INCHES" )

   nRow := 4900
   nCol := nMargin

   @ nRow + 20, nCol + 1500 PRINT TO oPrn IMAGE "..\bitmaps\olga1.jpg" SIZE nColWidth, 2000 LASTROW nRow

   ENDPAGE
   ENDPRINT

return nil
 

Regards, saludos.

[cmsoft]

Silvio:
Si pruebas dejando un milimetro entre uno y otro?
oPrn:Box(X, Y, Z, K,;
{ nColorBordo, 0.1 }, nBackcolor, ;
{"", oFnt, nColorFont, "" }, ;
"CM" )

@ x+0.01,y+0.01 PRINT TO oPrn IMAGE cDesc SIZE nAltezza-0.02,nAltezza-0.02 CM