Source position: graphics.pp line 950
protected procedure TCanvas.PenChanging(
APen: TObject
); virtual;