StringGrid隔行颜色代码

最新推荐文章于 2022-06-27 09:55:24 发布

原创最新推荐文章于 2022-06-27 09:55:24 发布 · 1.5k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#integer

本文介绍了一种使用 Delphi 实现 StringGrid 控件隔行变色的方法，并展示了具体的实现代码。该方法通过设定不同行的背景色和字体颜色来达到视觉上的隔行效果，并对选中状态进行了额外的颜色配置。

//StringGrid隔行颜色代码 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 := RGB(191, 255, 223); Canvas.Font.Color:=clRed; end; Canvas.FillRect(Rect); Canvas.TextOut(Rect.Left + 2,Rect.Top + 2, Cells[ACol,ARow]); end; if gdSelected in State then begin Canvas.Brush.Color := clHighlight; // 选中时的背景色; Canvas.Font.Color := clHighlightText; // 选中项的文字颜色； end; end;