Цитата:
Сообщение от Alegun
Вот ещё вариант
Код:
var
flg: boolean = true;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DataCol = 0 then flg:= not flg;
with Sender as TDBGrid do
begin
Canvas.Font.Color := clBlack;
if flg then
Canvas.Brush.Color:= clCream
else
Canvas.Brush.Color:= clWhite;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end; {with}
end;
в D7 это работает, состояние flg определяет чётную/нечётную строку для расскраски
|
Проверил оба кода работают на D7(( А на RAD Studio XE7 не хочет(((