Scalabium Software |
|
Knowledge for your independence'. | |
Home Delphi and C++Builder tips |
#22: quick printing with TPrinter type using default resident font (part 1) |
|
Sometimes for quick printing on the printer canvas I load a
default resident font and draw on the canvas using it. uses Printers; procedure TForm1.Button1Click(Sender: TObject); begin Printer.BeginDoc; Printer.Canvas.Font.Handle := GetStockObject(DEVICE_DEFAULT_FONT); Printer.Canvas.TextOut(100, 50, 'Text string1'); Printer.Canvas.TextOut(100, 150, 'Text string2'); Printer.EndDoc; end;
|
|
Copyright© 1998-2024, Scalabium
Software. All rights reserved. |