TCanvas.PenChanging procedure

Member of TCanvasprotectedIn unit Graphics

Implements the default OnChanging event handler used for the Pen in the canvas.

Declaration

pascal

procedure PenChanging(APen: TObject); virtual

Arguments

APen

Object for the event notification.

Description

Ensures that canvas state flags indicate both the handle and the pen handle are valid. No actions are performed in the method if either handle is not valid.

Removes the value csPenValid from the canvas state flags, and selects the saved pen handle in the class instance. The internal copy of the saved pen handle is set to 0.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.