Witam!
Mam taki kod:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if Table1.FieldByName('punkty').AsInteger = 20 then
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;
Dlaczego mi to nie chce kolororwać pomimo że kod jest dobry? Po skompilowaniu nic się nie dzieje. Czcionka w komórce z wartością 20 nie zmienia koloru.
Czy trzeba jeszcze jakoś to inaczej uruchomić lub coś ustawić w Properties tabeli?
Dzięki za wskazówki. [browar]