FiveTech Software tech support forums

Posted: **Wed Nov 10, 2021 12:28 pm**

I made a Box with
nRiga := 5.5
nColonna := 1
nAltezza := 0.8
nlarghezza := 4.5
....

oPrn:Box(nRiga,nColonna,nAltezza+nRiga,nlarghezza, { cColorbordo, nTipoBordo }, cBackbordo, ;
{ cTesto, oFnt, nColorFont, cAlign }, ;
"CM" )

as you can see here

How I can make to move only the text for some mm ?

the "T" of the text is close to the line of the box, how do I move the content of the text so that the whole box does not move?

If I insert nColonna+0.3 it move also the box

Posted: **Wed Nov 10, 2021 1:27 pm**

Example for tests? >-< cBackbordo ???

Posted: **Wed Nov 10, 2021 3:23 pm**

karinha wrote:Example for tests? >-< cBackbordo ???

it is color back

Posted: **Wed Nov 10, 2021 3:33 pm**

there is an error on build of the Box

the boxes are identical changes only the coordinates of the row

FIRST
nRiga := 5.5
nColonna := 1
nAltezza := 0.8
nlarghezza := 4.5
cTesto := "Tipo documento"
cColorbordo := CLR_BLACK
nTipoBordo := 0.01
nAngleBordo := 0
cBackbordo := CLR_HGRAY
cCarattere := "Arial"
nSizefont := 6
cAlign := "TL"
nColorFont := CLR_BLACK

SECOND
nRiga := 6.3
nColonna := 1
nAltezza := 0.8
nlarghezza := 4.5
cTesto := "Cod Cliente"
cColorbordo := CLR_BLACK
nTipoBordo := 0.01
nAngleBordo := 0
cBackbordo := CLR_WHITE
cCarattere := "Arial"
nSizefont := 6
cAlign := "TL"
nColorFont := CLR_BLACK

oPrn:Box(nRiga,nColonna,nAltezza+nRiga,nlarghezza, { cColorbordo, nTipoBordo }, cBackbordo, ;
{ cTesto, oFnt, nColorFont, cAlign }, ;
"CM" )

I saw when there is not the background color the line of the box is too big

Posted: **Wed Nov 10, 2021 7:25 pm**

Show in this example what is wrong.

Muestre en este ejemplo lo que está mal.

Code: Select all | Expand


// \samples\boxbordo.prg

#include "FiveWin.ch"

FUNCTION PrnBox()

   LOCAL oPrn, oFont, cTexto2, oBrush
   LOCAL NRIGA, NCOLONNA, NALTEZZA, NLARGHEZZA, CTESTO, CCOLORBORDO, CALIGN, ;
         NTIPOBORDO, NANGLEBORDO, CBACKBORDO, CCARATTERE, NCOLORFONT, NSIZEFONT
   LOCAL nlarghezz2

   // FIRST
   nRiga       := 3.0               // Linha
   nColonna    := 1.00              // Coluna
   nAltezza    := 1.50              // altura
   nlarghezza  := 12.00             // largura
   cTesto      := "Tipo documento"  // Texto
   cColorbordo := RGB(227, 200, 0)  // cor das bordas
   nTipoBordo  := 1.50
   nAngleBordo := 0
   cBackbordo  := RGB(27, 161, 226) // cor do fundo.
   cCarattere  := "Arial"
   nSizefont   := 6
   cAlign      := "TL"
   nColorFont  := RGB(0, 80, 239)
   cTexto2     := "Silvio Printer"
   nlarghezz2  := 18.00

   DEFINE BRUSH oBrush FILE "c:\fwh1905\bitmaps\backgrnd\pebbles.bmp"

   PRINT oPrn NAME "Silvio Falconi in Box" PREVIEW MODAL

      DEFINE FONT oFont NAME "VERDANA" SIZE 0, - 30 OF oPrn BOLD

      oPrn:SetPage(9)     //->A4
      oPrn:SetPortrait()  //->Vertical

      PAGE

      oPrn:RoundBox( 1, 1, 5, 5, .5, .5, { CLR_HRED, 3 }, oBrush, ;
         { "FIRST" + CRLF + "SECOND", oFont, CLR_WHITE, "B" },    ;
           "INCHES" )

      oPrn:Box( nRiga, nColonna, nAltezza + nRiga, nlarghezza, ;
         { cColorbordo, nTipoBordo }, cBackbordo,              ;
         { cTesto, oFont, nColorFont, cAlign }, "CM" )

      nRiga    := nRiga + 2.00
      nColonna := nColonna + 2.00

      oPrn:Box( nRiga, nColonna, nAltezza + nRiga, nlarghezza, ;
         { cColorbordo, nTipoBordo }, cBackbordo,              ;
         { cTexto2, oFont, nColorFont, cAlign }, "CM" )

      nRiga    := nRiga + 2.00
      nColonna := nColonna + 2.00

      oPrn:Box( nRiga, nColonna, nAltezza + nRiga, nlarghezz2, ;
         { cColorbordo, nTipoBordo }, cBackbordo,              ;
         { "TIPO DOCUMENTO", oFont, nColorFont, cAlign }, "CM" )

      nRiga    := nRiga + 2.00
      nColonna := nColonna - 2.00

      oPrn:Box( nRiga, nColonna, nAltezza + nRiga, nlarghezz2, ;
         { cColorbordo, nTipoBordo }, cBackbordo,              ;
         { "F I V E W I N", oFont, nColorFont, cAlign }, "CM" )

      ENDPAGE

   ENDPRINT

   RELEASE BRUSH oBrush
   RELEASE FONT oFont  

RETURN NIL

Posted: **Wed Nov 10, 2021 8:31 pm**

karinha wrote:Show in this example what is wrong.

Muestre en este ejemplo lo que está mal.

[

RELEASE BRUSH oBrush
RELEASE FONT oFont

RETURN NIL
[/code]

querido señor me parece que está exagerando,
es la segunda vez que me escribe e inserta ejemplos (fuente) que nada tiene que ver con lo que estoy haciendo
si miras atentamente mis cajas te darás cuenta de que todas son diferentes a la que hiciste
Estoy haciendo una estructura de una factura, por supuesto, no he publicado toda mi fuente, solo los datos esenciales para comprender el problema.
hay dos cajas, una arriba y otra debajo, las cajas están adjuntas

1) el primer cuadro,el primer cuadro está en la fila 5.5 y la columna 1, de 4,5 cm de largo,y 0,8 de altura
tiene el color de fondo en gris claro, tiene un texto "Tipo de documento" en el color negro de la fuente Aial tamaño 6 y está colocado arriba (T) y a la izquierda (L)

2) el segundo recuadro de la fila 6.3 en la columna 1, 2.5 de ancho y 0.8 de alto, color de fondo blanco y el texto en color negro siempre con Arial y dimensión 6 y siempre en posición TL

ahora tenemos que insertar otros escritos en el cuadro de caracteres 12
pero no puedo usar el comando simple cmsay o decir imprimir porque estas escrituras pueden tener colores o cajas
entonces tengo que usar el mismo sistema

3)el tercer cuadro está en la línea 6.3 en la columna 1, 2.5 de ancho y 0.8 de alto, con el texto "001" con la fuente Arial pero el tamaño de fuente 12, el fondo es blanco

como puedes ver en esta figura

ahora creado la matriz aHeader intentemos imprimir las cajas

pero al mirar las casillas me doy cuenta de que la segunda casilla de abajo a pesar de estar colocada en la columna 1 está más atrás que la casilla de arriba además de tener un contorno mucho más grueso, ¿lo ves tú también?

Posted: **Wed Nov 10, 2021 8:43 pm**

HE ENCONTRADO EL PROBLEMA

si no hay border lo hice

oPrn:Box(nRiga,nColonna,nAltezza+nRiga,nlarghezza, nil, nil, ;
{ cTesto, oFnt, nColorFont, cAlign }, ;
"CM" )

pero el "nil" tiene problemas para mover el cuadro y poner un contorno más grande

tal vez funcione así
oPrn:Box(nRiga,nColonna,nAltezza+nRiga,nlarghezza, { "", 0 }, "", ;
{ cTesto, oFnt, nColorFont, cAlign }, ;
"CM" )

Posted: **Thu Nov 11, 2021 8:20 pm**

How I can make to move only the text for some mm ?

the "T" of the text is close to the line of the box, how do I move the content of the text so that the whole box does not move?

You have to print the text separately.

FiveTech Software tech support forums

Box question

Box question

Re: Box question

Re: Box question

Re: Box question

Re: Box question

Re: Box question

Re: Box question

Re: Box question