Farbe von mit OnDrawcell gefärbter StringGridZelle abfragen

[Lannes]

Hallo,

Zitat von Stecky2000:

Hab schon alles probiert, Reihenfolge, Dinge weglassen, bringt nichts.
Es flackert sobald ich in Objects reinschreibe.

das muss flackern, denn durch das setzen von Objects wird das Neuzeichnen der Zelle = Ereignis OnDrawCell, ausgelöst. In OnDrawCell wird dann wieder Objects gesetzt = Neuzeichnen der Zelle = Ereignis OnDrawCell usw. usw. das Ereignis löst sich quasi selbst immer wieder aus.
Merksatz: Innerhalb solcher Ereignisbehandlungs-Routinen wie, OnDrawCell, OnDrawItem etc. nie Code ausführen der ein Neuzeichnen auslöst.

Die Lösung Deines Problems steht in Beitrag #2

Zitat von Stecky2000:

... Beim export nach excel will ich diese Abfrage nicht machen, sondern gleich sagen,

Delphi-Quellcode:

For i := 1 to 24 do
  For j := 1 to 7 do
     begin
        Excel.Cells[i, j] := StringGrid1.Cells[j, i];
        If StringGrid1.Cells[j, i].Canvas.Brush.Color = clLime then
           Excel.Selection.Interior.ColorIndex := 4;
     end;

So was in der Art. Die Zellen des StringGrid1 müssen mir doch irgendwie Auskunft darüber geben können, ob sie
clLime, clRed, oder clBlue sind?

Die Zellen können Dir die Auskunft geben.
Mal im groben:
Steht in der Zelle ein X dann wird sie in OnDrawCell in ClLime gezeichnet, also setz in ColorIndex eine 4.
Dein Code abgewandelt:

Delphi-Quellcode:

var s : String;
//...
For i := 1 to 24 do
  For j := 1 to 7 do
     begin
     s := StringGrid1.Cells[j, i];
     Excel.Cells[i, j] := s;
     If s = 'X' then
       Excel.Selection.Interior.ColorIndex := 4;
     end;