Printer control

[Jayndel]

what is the alternative to  Delphi commands

"Prn := TPrintObject.Create;"
and
"GetTextMetrics( Printer.Canvas.Handle,TextMetrics );"

Any help greatly appreciated.

[dbannon]

"any help" ?

Not answering your question but ...

use the  'Printers" unit. It declares a thing called Printer. You can then -

printer.begindoc
...
Printer.Canvas.TextOut(XOffset, YOffset, 'something');
printer.canvas.Line(LeftEdge, CurrentY, RightEdge, CurrentY);
....
Printer.EndDoc;

for an example, see https://github.com/tomboy-notes/tomboy-ng/blob/master/tomboy-ng/k_prn.pas

Davo

[Thaddy]

what is the alternative to  Delphi commands

"Prn := TPrintObject.Create;"
and
"GetTextMetrics( Printer.Canvas.Handle,TextMetrics );"

Any help greatly appreciated.

That object is not a standard Delphi object, afaik, but third party code it seems.
The printers - as suggest above - unit is 100% Delphi compatible.

The second question works out of the box on windows systems only: it is a windows API call.
(And to be sure: DON'T use mode objfpc but mode delphi, although that is probably not related.)

Also note that PRN is directly avalable when you use the printer unit instead or the printers unit.
The difference is the line printer device vs the printer.canvas.

[howardpc]

Printer.Canvas has a

Code: Pascal  [Select][+][-]

1. GetTextMetrics(out TM: TLCLTextMetric): boolean;

function

[Thaddy]

Printer.Canvas has a

Code: Pascal  [Select][+][-]

1. GetTextMetrics(out TM: TLCLTextMetric): boolean;

function

Tnx Howard, forgot about that one. And it is cross-platform too.
OP uses the Windows API call, though.

[Jayndel]

Thanks All.
This is exactly what I have been looking for.
Haven't coded for around 12 years & a tad rusty.
Stay well.