Stringgrid flimmert

[Texas]

Ich bin dabei mit StringGrid.Objects zu experimentieren.

Jetzt habe ich ein kleines Test Form geschrieben und folgendes passiert.
wenn ich im OnDrawCell Ereignis eine if Abfrage habe dann flimmert das Grid
nehme ich es raus dann ist alles schön


Flimmert

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (gdFixed   in State) then begin
    StringGrid1.Canvas.Brush.Color := clBtnFace;
    StringGrid1.Font.Color := ClBlack;
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.TextOut(Rect.Left+1, Rect.Top+1, (StringGrid1.Cells[ACol,ARow]));
  end else 
   begin
     if assigned(StringGrid1.Objects[ACol, ARow]) then
       StringGrid1.Canvas.Brush.Color := (StringGrid1.Objects[ACol,ARow] As TDataCell).CellColor ;
     StringGrid1.Font.Color := ClWhite;
     StringGrid1.Canvas.FillRect(Rect);
     StringGrid1.Canvas.TextOut(Rect.Left+1, Rect.Top+1, (StringGrid1.Cells[ACol,ARow]));
   end;
end;

Flimmert nicht

Delphi-Quellcode:

 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
{  if (gdFixed   in State) then begin
    StringGrid1.Canvas.Brush.Color := clBtnFace;
    StringGrid1.Font.Color := ClBlack;
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.TextOut(Rect.Left+1, Rect.Top+1, (StringGrid1.Cells[ACol,ARow]));
  end else }
   begin
     if assigned(StringGrid1.Objects[ACol, ARow]) then
       StringGrid1.Canvas.Brush.Color := (StringGrid1.Objects[ACol,ARow] As TDataCell).CellColor ;
     StringGrid1.Font.Color := ClWhite;
     StringGrid1.Canvas.FillRect(Rect);
     StringGrid1.Canvas.TextOut(Rect.Left+1, Rect.Top+1, (StringGrid1.Cells[ACol,ARow]));
   end;
end;

Als Anlage noch mal das Form

[Cyberbob]

Versuch mal
StringGrid1.DoubleBuffered := True im OnCreate deines Formulars.

[EDIT]

Ich sehe grad, was du mit Flimmern meinst. Dein Programm scheint die Zellen immer wieder neu zu zeichnen. Hast du irgendwo ne Endlosschleife gebaut?
Ich würde mal schaun, wo er immer wieder reinspringt.
Hab jetzt hier kein Delphi installiert, sonst würde ich selbst mal testen!

[Hansa]

Es ist keinerlei Abfrage auf Row und Col zu sehen. Kein Wunder, dass das "flimmert". DoubleBuffered oder ähnliches braucht man da normalerweise nicht.

[raiguen]

Zitat von Hansa:

Es ist keinerlei Abfrage auf Row und Col zu sehen. Kein Wunder, dass das "flimmert".

Quatsch... Das Flimmern hat damit nix zu tun! Ausserdem ist eine Abfrage schon dahingend vorhanden, als dass nach FixedRow bzw FixedCol ((gdFixed in State) unterschieden wird.

Das Flimmern kommt hier zustande:
 StringGrid1.Font.Color := ... Klitzekleine Änderung, und das Flimmern hört auf:
 StringGrid1.Canvas.Font.Color := ...

[Texas]

Besten Dank.

Währe ich nie drauf gekommen mit dem Canvas