Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Перерисовать DBGRID

Автор: Михалыч 23.2.2012, 10:18

В DBGrid раскрашиваю строки, а перерисовываться не хочет, выдает ошибку при компиляции на строке

Код


TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

Ошибка: Incompatible types
Подскажите кто знает.

Код


 procedure Tbook_book.sDBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 if pass_book.color_button.Tag=1 then begin
    IF TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1
    Then TDBGrid(Sender).Canvas.Brush.Color:=$006AA0BF;
    IF  gdSelected   IN State
    Then Begin
        TDBGrid(Sender).Canvas.Brush.Color:=$0040739B;
        TDBGrid(Sender).Canvas.Font.Color :=clBlack;
    End;
    TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;

Автор: Чучмек 23.2.2012, 14:37

У меня подобная муть компилируется без проблем.
Наверно у тебя есть еще

Цитата(Михалыч @ 23.2.2012, 10:18

)

Rect,DataCol,Column,State

другого типа, попробуй переименовать, например: _Rect,_DataCol,_Column,_State

Автор: Михалыч 23.2.2012, 18:46

Все решилось после переустановки Delphi