Source position: grids.pas line 2009
procedure DrawRubberRect(
Canvas: TCanvas;
aRect: TRect;
Color: TColor;
DrawBits: Byte = BF_RECT
);