Nabend ...,
das nenne ich ja jetzt mal 'die Kuh am Schwanz von der Weide ziehen'!
Warum zum Geier so einen Aufwand? Du machst dir selber ein Problem wo eigentlich keines sein dürfte, oder habe ich da was falsch verstanden?
- Du hebst anhand irgendwelcher Bedingungen die Zellen eines SG farblich hervor
- Exportierst nach Excel
- liest die Zellfarbe ein um die ebenfalls mitzuschicken
Ein SG sollte eigentlich nur zur Darstellung und nicht zur Datenhaltung gebraucht werden! Für die Daten nimm lieber einen Record oder ein Array, dann hast du diese Sorgen nicht.
PS. Aber selbst wenn du deinen alten Gedanken verwenden möchtest, da flackert nix - siehe
Demo
Zellfarbe abfragen geht mit
Delphi-Quellcode:
procedure TForm1.Panel1Click(Sender: TObject);
var cRow, cCol: Integer;
farbe: TColor;
begin
cCol:= StrToInt(Edit1.Text) +1;
cRow:= ComboBox2.ItemIndex +1;
farbe:= TColor(Grid_Plan.Objects[cCol, cRow]);
if farbe = 0 then
... // dein Code
else
... ; // dein Code
end;