Hallo Delphianer,
einen String, den ich in eine Zelle eintrage, soll farblich erscheinen.
Stringgrid1.Cells[2,1] := ‚Test‘;
In der Ereignisbehandlungsroutine für OnDrawCell prüfe ich, ob in der Zelle der String ‚Test‘ steht. Wenn ja, wird er z.B. rot dargestellt. Dies funktioniert auch bestens.
Jetzt das Problem. Ich definiere den String
so, daß er gleich beim Start der Anwendung erscheinen soll:
procedure TFormHaupt.FormCreate(Sender: TObject);
.
.
Stringgrid1.Cells[2,1] := ‚Test‘;
.
.
end;
Der String erscheint korrekt in der Zelle, wird aber farblich nicht mehr verändert, da OnDrawCell schon abgeschlossen ist.
Erzwinge ich ein Neuzeichnen (z.B. Bildlaufleisten auf und ab oder die Anwendung verkleinern und wieder vergrößern), dann wird der String eingefärbt.
Hat jemand eine Lösung für mich, wie ich das Problem gelöst bekomme ?
MfG.
Uwe