Rechteck in stringgrid teilen und einfärben

[Bummi]

Delphi-Quellcode:

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; aRect: TRect; State: TGridDrawState);
const
ColArray:Array[0..2] of TColor=(clblue,clLime,clRed);
var
i:Integer;
w:Integer;
begin
  with stringgrid1 do
  begin
    w := (aRect.Right - aRect.Left) div 3;
    for i := 0 to 2 do
        begin
        Canvas.Pen.Color := ColArray[i];
        Canvas.Brush.Color := ColArray[i];
        Canvas.Rectangle(Rect(aRect.Left  + i*w,aRect.Top,aRect.Left  + (i+1)*w,aRect.Bottom));
        end;
  end;
end;