Delphi - StringGrid-Zelle färben

[jsphde]

Guten Abend allerseits,

ich habe zwar zu diesem Thema viele Beiträge im Internet gelesen, jedoch noch nichts eindeutiges gefunden.

Meine Idee/Vorhaben:
Eine Zelle eines StringGrids färben (Farben sind in einem Array gespeichert), wenn man auf die jeweilige Zelle klickt.
Mir ist bekannt, dass man dafür das OnDrawCell-Event benutzt. Jedoch wird das Event anscheinend beim Öffnen/Erstellen des
Formulars aufgerufen.

Ich habe an eine Prozedur gedacht, wo man die Zeile, Spalte und die Farbe angeben muss. Jedoch habe ich keinen festen Ansatz,
um dies zu realisieren

Vielleicht hat jemand einen Ansatz für mich.

MfG

[Neutral General]

Das Event wird beim Neuzeichnen des Stringgrids aufgerufen. D.h. wenn du mit einem anderen Fenster über das Stringgrid fährst oder sich am Stringgrid etwas ändert usw. ODER wenn du manuell Stringgrid.Repaint bzw. Stringgrid.Invalidate aufrufst.

[hoika]

Hallo,
du kannst das OnDrawCell manuell anwerfen im OnClick durch

Delphi-Quellcode:

Grid.Invalidate;
*

Besser wäre InvalidateRect, weil dann nur eine bestimmte Zelle aktualisiert wird,
aber probier erst mal Invalidate.

[jsphde]

Vielen Dank für eure Antworten.
Aber leider wird mir daraus nicht wirklich ersichtlich, wie ich es am besten anstellen kann, nur eine einzige Zelle bei einem Klick zu färben.

MfG

[Delphi.Narium]

Das StringGrid hat das Ereignis OnSelectCell, in dem kann man dann der Zelle 'ne andere Farbe geben.

StringGrid1.ColorCell[Col,Row] := clRed;

Oder im Ereignis OnDrawCell könnte man sowas machen:

Delphi-Quellcode:

if StringGrid1.Cells[Col,Row] = '1234' then begin
  StringGrid1.ColorCell[Col,Row] := clRed;
end else begin
  StringGrid1.ColorCell[Col,Row] := clGreen;
end;

[jsphde]

Vielen Dank!