TPostScriptPrinterCanvas.BrushChanging procedure

Declaration

procedure BrushChanging(APen: TObject); override

Description

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

Implements the OnChanging event handler for the Brush on the canvas.

BrushChanging is assigned as the OnChanging event handler for the Brush property in the constructor for the class instance. It allows the canvas class to be notified and updated when a new brush is assigned to the canvas.

BrushChanging ensures that both the Handle and the Brush for the canvas are valid. No actions are performed in the method if State does not contain the values csBrushValid and csHandleValid. It removes csBrushValid from the States property and reselects the handle for the Brush in the control.