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.

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