Witam wszystkich.
Jest taki problem.
Jeśli zrobię coś takiego w OnDrawColumCell DBGrida,
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DataSource1.DataSet.FieldByName('Rez').AsBoolean then
DBGrid1.Canvas.Font.Color := clYellow;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
to wiadomo, jeśli zawartość rekordu będzie True, to zmieni mi kolor czcionki na żółty i jest Ok, ale dlaczego nie ma żadnego efektu jeśli robię coś w OnDrawDataCell :
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if DataSource1.DataSet.FieldByName('Rez').AsBoolean then / <---
DBGrid1.Canvas.Font.Color := clYellow;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;
Nawet jeśli ustawię BreakPoint na zaznaczoną linię (<---), to nie zatrzymuje się w tym miejscu.