Раскрасить строки stringgrid - Delphi - Ответ 7801382

var
  Form1: TForm1;
  f:boolean=false;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
with Stringgrid1 do
 begin
  for i:=0 to rowcount-1 do
  for j:=0 to colcount-1 do
  cells[j,i]:=inttostr(100+random(1000));
 end;
f:=true;
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if f then
with StringGrid1 do
 begin
  //уберем синий цвет с ячейки [0,0]
  if gdSelected in state then
   begin
    Canvas.Brush.Color:=clWhite;
    Canvas.FillRect(Rect);
    Canvas.Font:=Font;
    Canvas.TextOut(Rect.Left,Rect.Top,Cells[ACol,ARow]);
   end;
  if odd(ARow) then Canvas.Brush.Color:=clYellow
  else Canvas.Brush.Color:=clLime;
  Canvas.FillRect(Rect);
  Canvas.TextRect (Rect,Rect.Left,Rect.Top,Cells[ACol,ARow]);
  Canvas.TextRect (Rect,Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
 end;
end;