Покрасить DBGrid

← →
Степан (2002-08-21 09:41) [0]

Как в DBGrid можно покрасить строки с определенным чередованием?

← →
MBo (2002-08-21 09:45) [1]

OnDrawColumnCell
delphi.vitpc.com материал "Разноцветный DBGrid"

← →
I_A (2002-08-21 09:50) [2]

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
with DBGrid1.Canvas DO
if (Field.FieldName = "First_I") AND (NOT (gdFocused in State)) AND (Field.AsInteger < 0) then begin
Brush.Color := clRed;
Font.Color := clWhite;
end;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;
end;

← →
I_A (2002-08-21 09:51) [3]

Можно и в OnDrawColumnCell

← →
Степан (2002-08-21 12:17) [4]

>I_A
Данный способ решает проблему раскраски по названию поля или его значению, но не с чередованием (например через строку, две...) и тем более той же раскраски при перемещении по DBGrid.

>MBo
Спасибо за ссылку, полезный материал

Покрасить DBGrid Найти похожие ветки