procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ARow mod 2=1) then
begin
StringGrid1.Canvas.Font.Color := clred;
StringGrid1.Canvas.Brush.Color :=$00FFF0F5;
StringGrid1.Canvas.TextRect(rect,rect.Left,rect.Top,StringGrid1.Cells[acol, arow]);
StringGrid1.Canvas.FrameRect(Rect);
end;
end;
delphi StringGrid背景色隔行显示
最新推荐文章于 2024-07-07 02:37:27 发布