[Delphi] OnDrawCell w StringGridzie

Witam
Mam taki kawałek kodu w OnDrawCell StringGrida:

with StringGrid do
  with Rect do
    if Cells[1,ARow] = Cells[2,ARow] then
      begin
        Canvas.Brush.Color :=clBtnFace;
        Canvas.FillRect(Rect);
      end;

Niby działa ale zamalowuje wartości w komórkach (wartości nie są widoczne).
Używam D7, w D6 podobny kod działał bez zarzutu.
O co kurna chodzi?

Po namalowaniu lepiej ustawiaj ponownie tekst

Nie mam w tej chwili pod ręką Delphi żeby sprawdzić ale wydaje mi się że wywołam w ten sposób niekończącą się pętlę :-/

teles4 napisał(a)

Nie mam w tej chwili pod ręką Delphi żeby sprawdzić ale wydaje mi się że wywołam w ten sposób niekończącą się pętlę :-/

To Ci się niestety źle wydaje

x := Rect.Right + 2;
y := Rect.Bottom + 2;
Text := sgDane.Cells[ACol, ARow];
TextOut(x, y, Text);

Dlaczego 'niestety'? Jeżeli się mylę to się cieszę, sprawdzę po południu.
Dzięki za zainteresowanie. [browar]

Po prostu malując pokrywasz nową warstwą to co było pod spodem a nie wypełniasz dookoła literek. Nie zapętla się bo wypełnienie tekstem nie wywołuje OnDraw

Dzięki chłopaki/dziewczyny za pomoc [browar]
Teraz wszystko gra i bucy :)