5,388
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with StringGrid1 do
begin
if ARow mod 2 = 0 then
begin
Canvas.Brush.Color := RGB(255,255,255);
Canvas.Font.Color:=clGreen;
end
else
begin
Canvas.Brush.Color := clInfoBK;
Canvas.Font.Color:=clRed;
end;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left + 2,Rect.Top + 2, Cells[ACol,ARow]);
end;
end;