Source position: fpcanvas.pp line 143
protected procedure TFPCustomPen.SetPattern(
AValue: LongWord
); virtual;