Vererbung von Komponenten

[Bjoerk]

Zitat:

FXScale: THorScale; ///////// Da muss irgendwo ein fehler stecken, wohl im Constructor ???
FYScale: TVertScale;

Die Setter von X bzw. YScale gehen so nicht. Spendier' THorScale und TVertScale mal ein Assign?

Delphi-Quellcode:

procedure THixHistoGraph.SetXScale(const Value: THorScale);
begin
  FXScale.Assign(Value);
  Invalidate;
end;

procedure THixHistoGraph.SetYScale(const Value: TVertScale);
begin
  FYScale.Assign(Value);
  Invalidate;
end;