实现奇偶行变色功能:
通过设置EvenRowColor和OddRowColor属性,可以轻松改变DBGridEh1的偶数行和奇数行的颜色,例如将偶数行设置为黄色。
隔行变色,只需设置DBGridEh1.EvenRowColor :=clCream 这个是变黄色
EvenRowColor 偶数行颜色
OddRowColor 奇数行颜色
行自定义变色:
GetCellParams方法来根据数据条件改变单元格背景色的示例。
procedure TFmMain.dbgrdh_NumberAllGetCellParams(Sender: TObject;
Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
begin
if qry_NumberAll.FieldByName('ImmuneReg').AsString = 'True' then
Background := clTeal;
end;
字段自定义变色:
procedure TFmMain.dbgrdh_NumberAllDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
if (not (Column.field = nil)) then
begin
if (Column.Field.FieldName = 'first_flag_str') then
begin
if Column