- Код: Выделить всё
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if ... then
begin
TDBGrid(Sender).Canvas.Brush.Color:=clYellow;
TDBGrid(Sender).Canvas.Font.Color:=clBlack;
end
else
begin
TDBGrid(Sender).Canvas.Brush.Color:=clBlue;
TDBGrid(Sender).Canvas.Font.Color:=clYellow;
end
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
В Лазарусе цвет шрифта меняется, а цвет фона - нет. Подскажите, в чем дело может быть и как решить проблему.