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