delphi firemonkey TStringGrid.DrawColumnCell

最新推荐文章于 2025-05-22 13:02:20 发布

40岁新起点

最新推荐文章于 2025-05-22 13:02:20 发布

阅读量760

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi XE 文章标签： FMX TStringGrid.DrawColumnCell

本文链接：https://blog.youkuaiyun.com/xiaoxiao8508/article/details/99672240

Delphi XE 专栏收录该内容

1 篇文章

订阅专栏

本文详细介绍了在Delphi中如何自定义表格视图的单元格颜色，通过判断单元格值来改变其背景色，实现离线状态突出显示为红色，选中行显示为Cornflowerblue色，其余行保持白色。此外，还提供了另一种方法，通过创建画刷并调整矩形边界来增强视觉效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TTestPage_frm.grdRackDrawColumnCell(Sender: TObject;
const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
const Row: Integer; const Value: TValue; const State: TGridDrawStates);

var
RowColor : TBrush;
//b : TRectF;
begin

RowColor := Tbrush.Create(TBrushKind.Solid,TAlphaColors.Alpha);

if Value.ToString = sOffline then
RowColor.Color := TAlphaColors.Red
else if grdRack.Selected = Row then
RowColor.Color := TAlphaColors.Cornflowerblue
else
RowColor.Color := TAlphaColors.White;

Canvas.FillRect(Bounds, 1, 1, [], 1, RowColor);

{ perform default drawing }
TGrid(Sender).DefaultDrawColumnCell(Canvas, Column, Bounds, Row,
Value, State);
RowColor.Free;

inherited;
end;

有表格的：

var aRowColor: TBrush; aNewRectF: TRectF; begin aRowColor := TBrush.Create(TBrushKind.Solid, TAlphaColors.Alpha); if (StringGrid1.Cells[7, Row] = '1') then aRowColor.Color := TAlphaColors.Green else aRowColor.Color := TAlphaColors.Red; aNewRectF := Bounds; aNewRectF.Inflate(3, 3); Canvas.FillRect(aNewRectF, 0, 0, [], 1, aRowColor); Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State); aRowColor.free;