TextFarbe einer einzelnen Stringgridzelle ändern

[wernkrau38]

Hallo,
Ich habe ein mit grünen Zeichen gefülltes Stringgrid.
Nun will ich mit Mygrid.cells [Col,row]:= ' S '
diesen Text in der einzelnen Zelle Rot einfärben, die vielen andern bleiben Grün.
Wie kriege ich den Farbwechsel hin?

[wp_xyz]

Mit dem OnPrepareCanvas-Ereignis. Das wird aufgerufen, wenn die Zelle fertig ist zum Neuzeichnen. Brush, Font, Textstyle usw. sind gesetzt. Du hast hier die Möglichkeit diese Properties für bestimmte Zellen anzupassen:

Code: Alles auswählen

procedure TForm1.StringGrid1PrepareCanvas(Sender: TObject; aCol, aRow: Integer;
  aState: TGridDrawState);
begin
  if TStringGrid(Sender).Cells[ACol, ARow] = ' S ' then
    TStringGrid(Sender).Canvas.Brush.Color := clRed;  // Grün für alle anderen Zellen ist bereits gesetzt.
end;

[theo]

PrepareCanvas ist sehr gut.
Er will aber eigentlich die Font Farbe setzen, also so:

Code: Alles auswählen

TStringGrid(Sender).Canvas.Font.Color := clRed; 

[wernkrau38]

Das sieht plausibel aus. Ich werde an der Stelle weiter forschen; auf Anhieb ist mir es noch nicht gelungen.
Vorerst :Vielen Dank

[wp_xyz]

Das sieht plausibel aus. Ich werde an der Stelle weiter forschen; auf Anhieb ist mir es noch nicht gelungen.

Was kann denn hier misslingen? Sorry, wenn das arrogant klingt - ist nicht so gemeint. Aber: Grid im Formular-Designer auswählen, zum Objekt-Inspektor gehen, Seite "Events", runterscrollen zu "OnPrepareCanvas", auf den '...' Button in dieser Zeile klicken und im Code-Editor den gewünschten Code eintragen.

[wernkrau38]

jetzt habe ichs anhand Deines Beispiels begriffen.
Vielen Dank!

[wernkrau38]

jetzt bin ich doch wieder hängengeblieben:
Anbei mein Source-Code.
Mit dem Button kann ich die Werte für Row und Col übernehmen. Im Grid werden sie aber nur eingetragen wenn ich auf das Grid mit der Maus tippe; d.h. wenn das Grid den Focus bekommt wird es über Canvas neu gezeichet.
mein Ziel ist aber, daß das sofort geschieht.
Hast Du da eine Idee?

[theo]

Mach noch:

Code: Alles auswählen

StringGrid1.Invalidate;         

nach dem Setzen der Werte. Das veranlasst das Neuzeichnen.