GanttSeries-Elemente einfärben

[luckystar85]

HI,

ich habe in meinem TChart eine TGanttSeries wo ich mehrere Aktion verbunden darstelle. Dazu gibt es daneben aber eine ComboxBox wo alle Aktionen auch noch enthalten sind. Jetzt möchte ich, dass wenn ich in der ComboBox eine Aktion auswähle der entsprechende Balken des GanttSeries farblich eingefärbt wird. Das gleiche habe ich schon im OnClick gemacht wo dann in der ComboBox entsprechenend die Aktion ausgewählt wird.

Delphi-Quellcode:

procedure TActionSchedule.Chart1ClickSeries(Sender: TCustomChart; Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
  If ( Assigned(Series) ) Then
    TGanttSeries(Series).ValueColor[ValueIndex] := ( Not ColorToRGB(TGanttSeries(Series).ValueColor[ValueIndex]) ) And $00FFFFFF;
End;

Das funktoniert sowie auch richtig gut, nur habe ich jetzt das Problem wie kann ich im OnChange der ComboBox auf die einzelnen Elemente der GanttSeries zugreifen? Im OnClick auf das Chart bekomm ich das übergeben, aber von außen? Ich habe gesucht und auch die OH befragt, aber keine Lösung gefunden. Habt ihr eine Idee?