[Lazarus] revamping a very old print

[duilio foschi]

I would like to give a new life to a very old application that was
written in foxplus (a xbase dialect) in 1990 :)

At that time, the display was 80 char per line and the printer was 132
char per line, so data was printed using the logics you will find at
the bottom of this message.

I wonder if I can still use the old code somehow.

My idea is:

1. I get the printer PageWidth in pixel
PageWidth:=Printer.PageWidth;

2. I get the printer PageHeight in pixel
PageHeight:=Printer.PageHeight;

3. I get the height of a line
LineHeight:=Printer.Canvas.TextHeight('M')+5; // I add a few pixels to
prevent text lines to overlap;

4. I get the number of rows in a page
MaxLinesNo:=PageHeight div LineHeight

5. now lets translate line
   @7,87  SAY "CITTA'                    PARTITA IVA"

"7" --> translates into  yPos:=LineHeight*7
"87" --> translates into xPos:= round (87/132*PageWidth);

so I write
  Printer.Canvas.Textout(XPos, YPos, 'CITTA'                    PARTITA IVA');

6. how do I set the size of the font? I am expecting not less than 56
lines in a page, so I shrink the font size until I get
LineHeight <=Printer.PageHeight div 60

7. I am surely missing something. Any help?

Thank you

Peppe


SET DEVI TO PRIN
EJECT
GO TOP
TIT=.T.
DO WHIL .NOT. EOF()
   *  if current row >=max, jump to the new page and print header
   IF PROW()>=56
      TIT=.T.
      EJECT
   ENDI
   IF TIT
      *  print header
      @1,2   SAY "_______________________________________________________"
      @1,57  SAY "_______________________________________________________"
      @1,112 SAY "____________________"
      @2,1   SAY "|"
      @2,132 SAY "|"
      @3,1   SAY "|                              "+AZIENDA
      IF TA="C"
         @3,58  SAY "LISTATO  CLIENTI                 ALLA DATA     ;
"+DTOC(DATE())
      ELSE
         @3,58  SAY "LISTATO  FORNITORI               ALLA DATA     ;
"+DTOC(DATE())
      ENDI
      @3,132 SAY "|"
      @4,1   SAY "|"
      @4,132 SAY "|"
      @5,1   SAY "|______________________________________________________"
      @5,56  SAY "_______________________________________________________"
      @5,111 SAY "_____________________|"
      @7,2   SAY "CODICE            RAGIONE SOCIALE                  SEDE ;
LEG."
      @7,87  SAY "CITTA'                    PARTITA IVA"
      @8,79
      TIT=.F.
   ENDI * end print header

   @PROW()+1,1  SAY SUBS(COD_CL,1,2)+"."+SUBS(COD_CL,3,2)+"."+SUBS(COD_CL,;
5,5)
   @PROW(),16   SAY DES_CL
   @PROW(),48   SAY SEDE_LEG
   @PROW(),80   SAY CAP_CITTA
   @PROW(),112  SAY PART_IVA
   SKIP
ENDD
@PROW()+1,1 SAY " "
SET DEVI TO SCRE
RETU