Цитата:
Сообщение от Alegun
Этот кусман был проверен на подопытной DBGrid - если не щёлкать по строчкам дибисетки, то они нормально "полосатятся", есть проблема в нарушении чётности при последующих манипуляциях, но видимо, решается это предварительным возвратом дефолтных значений кистей каждый раз перед прорисовкой колонок
|
хм... непонятно( я даже новый грид создал, и ничего не меняется(
Точнее все строки красятся в цвет который
Код:
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;