Question

delphi 代码？

if ((State=[gdSelected]) or (State=[gdSelected,gdFocused])) then
begin
DBGrid1.Canvas.Font.Color:=ClYellow;
DBGrid1.Canvas.Brush.Color:=clblue;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end
else
begin
end;
谁能帮我解释下这几行代码是什么意思啊。

Answer 1

if ((State=[gdSelected]) or (State=[gdSelected,gdFocused])) then//如果是选中状态或者是焦点状态
begin
DBGrid1.Canvas.Font.Color:=ClYellow; //DBGrid的画布字体颜色置为黄色调
DBGrid1.Canvas.Brush.Color:=clblue; //DBGrid的画布笔刷(背景)颜色置为蓝色调
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); //定义DBGrid的默认网格颜色//估计是你对这个函数不熟悉, 我解释一下//第一个形参Rect不用解释了吧, 是范围区域TRect//最后一个形参也不解释了, 是状态//第二个形参DataCol是组列里面当前列的序号//第三个形参Column参数是对用来对当前的单元格进行显示属性的描述以及字段约束的TColumn对象
end
else
begin
end;

Answer 2

如果stage是被选中或当前的，那么用蓝底黄字显示表格内容。