Source position: progressbar.inc line 40
protected procedure TCustomProgressBar.Paint(
Canvas: TFCanvas
); override;