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
 
Metafile Convert
Paradox to Text converter
Paradox Password Recovery
Fast Document Viewer
SMReport
Viewer for MS Outlook Messages
Clarion to Text converter/a>
ABA Spreadsheet Convert
MAPIMail
Excel Reader (dll)
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

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

SMReport Autogenerated