Wie kann man die Textfarbe im Stringgrid ändern?

[hathor]

WinXPSP2
BDS2006

Wie kann man die Textfarbe im Stringgrid FÜR EINZELNE ZELLEN ändern?
Wer findet eine Lösung?

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var i: integer;
    hex15: string;
begin
for i:= 0 to 15 do
begin
SG1.Font.Color:= clblack; //funktioniert nicht - warum???
hex15:= IntToHex(i,2);
SG1.Cells[0,i+1]:= hex15;
SG1.Cells[i+1,0]:= hex15;
SG1.Font.Color:= clred;    //funktioniert nicht - warum???
SG1.Cells[i+1,i+1]:= '51';
end;
//folgende zeile verhindert  SG1.Font.Color:= clred; in der for-do-schleife !!!
//SG1.Font.Color:= clblack;
SG1.Cells[0,0]:='EC';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    SG1.Font.Color:= clblack; //funktioniert nicht - warum???
    FormShow(Self);
end;

[s-off]

Weiss nicht, wo Dein Problem liegt,

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Const
   MyColors: Array[0..3] Of TColor = (clRed, clYellow, clGreen, clBlue);
Begin
   StringGrid1.Font.Color := MyColors[Random(Length(MyColors))];
End;

funktioniert ganz wunderbar.
Schonmal den Debugger bemüht?

[hathor]

@s-off:

Dein Farbspielchen nützt mir gar nichts!

[DeddyH]

Setz mal ParentFont auf false

[hathor]

Zitat von DeddyH:

Setz mal ParentFont auf false

Ist false.

[DeddyH]

Bei mir hier (D5) geht' s.

[s-off]

Zitat von hathor:

@s-off:

Dein Farbspielchen nützt mir gar nichts!

Mein 'Farbspielchen' beantwortet Deine Frage, welche lautet 'Wie kann man die Textfarbe im Stringgrid ändern?'

[hathor]

@s-off:

Meine Frage besteht nicht nur aus der Titelzeile!
Teste doch mal - bitte - den Code.

[Bernhard Geyer]

Zitat von hathor:

@s-off:

Meine Frage besteht nicht nur aus der Titelzeile!
Teste doch mal - bitte - den Code.

Such mal im Forum. Haben wir alle Woche.
Du kannst das gewünscht nur per Ownerdraw in der OnDraw/OnPaint-Methode erreichen denn dein Code ist vollkommen für die Katze im FormShow-Event. Zeichenrotinen für Controls müssen immer entweder die Paint/Draw-Methode vom Control bei Ableitungen überschreiben oder im entsprechenden Event implementiert werden.

[s-off]

Erzähl uns lieber mal, was Du erreichen möchtest.

Du setzt die Farbe Deines Grids, bzw. dessen Schrift-Eigenschaft, auf schwarz, füllst zwei Zellen und setzt sie hinterher auf rot; und das alles in einem Arbeitsgang; was soll das?