Scalabium Software

SMExport advertising
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.

View a small example:

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;


Published: September 22, 1999

See also
 
Paradox to MS Access converter
Word Web-stream
ABA Database Convert
Clarion to Text converter
Protected Storage Viewer
ExcelFile Viewer
SMExport suite
Clarion Viewer
ABA Picture Convert
Paradox Viewer
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2019, Scalabium Software. All rights reserved.
webmaster@scalabium.com

SMExport advertising