Source position: _crw_eldraw.pas line 274
procedure DrawBar(
Canvas: TCanvas;
const Rect: TRect2I;
Color: TColor = clBlack;
Style: TBrushStyle = bsSolid
);