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
 
MAPIMail
Mail parser (ActiveX)
Viewer for MS Outlook Messages
Excel Reader (dll)
Paradox to MS Access converter
dBase Viewer
SMMsg suite
DBISAM Password Recovery
SMExport suite
SMDBGrid
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

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

SMExport advertising