Stringgrid Zeilen einfärben funktioniert nicht

**TRBB**

Guten Tag,
ich habe mal wieder ein Problem:
Ich will manche Zeilen (bzw. Zellen) im StringGrid einfärben doch die Farbe flackert nur einmal kurz (kaum sichtbar) auf und färbt sich dann wieder in die alte Farbe.

Hier meine Funktionen die ich nutze um das StringGrid zu färben und zu füllen.

zusammenfalten · markieren

Delphi-Quellcode:

			//---------------------------------------------------------

{ Aktuelle Liste der Filme anzeigen }

procedure TSearchFrame.showMovies();

var i: integer;

begin

  ResultStringGrid.RowCount := 2;

  if High(movies) > 0 Then begin

    ResultStringGrid.RowCount := High(movies)+1;

    //-->

    for i := 0 to High(movies) do

    begin

      ResultStringGrid.Cells[0,i+1] := movies[i].name;

      ResultStringGrid.Cells[1,i+1] := movies[i].genre;

      ResultStringGrid.Cells[2,i+1] := IntToStr(movies[i].dvd);

      paintCell(1,i+1); // Zum testen erst einmal die 2. Spalte färben

    end;

  end else begin

    ResultStringGrid.Cells[0,1] := '';

    ResultStringGrid.Cells[1,1] := '';

    ResultStringGrid.Cells[2,1] := '';

  end;

end;

//---------------------------------------------------------

{ Zelle färben }

procedure TSearchFrame.paintCell(x,y: integer);

var

  rect: TRect;

begin

  rect := ResultStringGrid.CellRect(x,y);

  ResultStringGrid.Canvas.Brush.Color := clYellow;

  ResultStringGrid.Canvas.FillRect(rect);

end;

Hoffe auf eure Hilfe

Grüße
TRBB

Edit (Lösung):
Hierzu muss man das DrawCell-Ereigniss verwenden.
Dieses wird jedes mal aufgerufen wenn das StringGrid neu gezeichnet wird.

Beispiel auf swissdelphicenter.ch

Stringgrid Zeilen einfärben funktioniert nicht

Stringgrid Zeilen einfärben funktioniert nicht

Forumregeln