Moin !
Nu is da doch noch ein Problem ...
Folgender Code klappt:
Delphi-Quellcode:
procedure TLVMainForm.PopupSeriesPopup(Sender: TObject);
Var Serie : TChartSeries;
PropInfo : PPropInfo;
begin
// RTTI Funktion
// -> [url]http://www.blong.com/Conferences/BorConUK98/DelphiRTTI/CB140.htm[/url]
Serie := ChartListBox1.SelectedSeries;
if (Serie =
NIL)
Then Exit;
// Serie.GetVertAxis.Maximum -> Serie.GetVertAxis.ClassInfo
DrawAll1.Enabled := IsPublishedProp(Serie, '
DrawAllPoints');
Wenn die Serie die Eigenschaft DrawAllPoints hat dann wird der Button enabled.
Aber wie kann ich nun drauf zugreifen. Ich will ja auch den aktuellen Status ermitteln.
Also DrawAll1.Checked = Series.DrawAllPoints.
Nun hat aber TChartSeries keine Propertie DrawAllPoints. Das tätte nur TFastLineSeries. Ich müsste also Typecasten. Aber dann hab ich wieder das Problem wie vorher das ich mich um alles und jeden kümmern muss.
Gibts für dieses Problem auch eine Lösung?