Цитата:
Сообщение от Alegun
Можно, нужно раскрашивать строки "под зебру" в DrawColumnCell
Код:
var i: integer = 0;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with Sender as TDBGrid do
begin
if(DataCol = 0) then inc(i);
if (i mod 2 = 0) then
begin
Canvas.Font.Color := clBlack;
Canvas.Brush.Color:= clCream;
end else
begin
Canvas.Font.Color := clBlack;
Canvas.Brush.Color:= clWhite;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
|
Что-то ничего не изменилось))