StringGrid: Problem mit Textfarbe beim Zeichnen

[Helmi]

Hallo,

ich verwende folgenden Code zum Zeichnen einer StringGrid.

Delphi-Quellcode:

procedure TInfoForm.StringGrid_IDSDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  Diff_Left : Integer;
  Diff_Top  : Integer;
  S_Text    : String;
  Farbe     : TColor;

begin
  //Zelle grün anzeigen, wenn die IDS einmal vorkommt, rot anzeigen, wenn sie
  //mehr als einmal vorkommt, ansonsten normaler Hintergrund (grau)
  case Byte(StringGrid_IDS.Objects[ACol, ARow]) of
    0: Farbe := clWindow;
    1: Farbe := clLime;
  else
    Farbe := clRed;
  end;

  //Hintergrundfarbe laden
  StringGrid_IDS.Canvas.Brush.Color := Farbe;
  StringGrid_IDS.Canvas.FillRect(Rect);

  //Text auslesen
  S_Text := StringGrid_IDS.Cells[ACol, ARow];

  //Text mittig berechnen
  Diff_Left := (Rect.Right - Rect.Left - StringGrid_IDS.Canvas.TextWidth(S_Text)) div 2;
  Diff_Top  := (Rect.Bottom - Rect.Top - StringGrid_IDS.Canvas.TextHeight(S_Text)) div 2;

  //Text mittig ausgeben
  StringGrid_IDS.Canvas.TextRect(Rect, Rect.Left + Diff_Left, Rect.Top + Diff_Top, S_Text);
  StringGrid_IDS.Canvas.FrameRect(Rect);
end;

Also der Hintergrund wird abhängig vom hinterlegten Object der Zelle (in diesem Falle ein Byte)
farbig dargestellt. Der Text der Zelle wird mittig angezeigt.

Soweit funktioniert das Ganze problemlos. Nur manchmal wird ein Zellentext weiss dargestellt.
Ich hab die Vermutung dass es sich dabei um die Markierung handelt.

Anbei ein Bild mit einem weissen Text (links oben).

Was könnte man dagegen machen?

[Lannes]

Hallo,

StringGrid.Canvas.Font.Color auf die gewünschte Farbe setzen.

[Helmi]

Danke!

Das war das Rätsels Lösung!