TPostScriptPrinterCanvas.CreateFont procedure

Declaration

procedure CreateFont; override

Description

Not described here; this is what TCanvas.CreateFont says of it:

Ensures that the Font for the canvas is valid and uses the correct color.

Gets the handle for the Font from its Reference class. The first time the Font handle is selected, the handle for the default font is returned as saved for use with DeselectHandles.

CreateFont updates the state flags for the canvas to include the value csFontValid. SetTextColor is called to apply the color from the Font to the canvas Handle.