Vererbung von Komponenten

[DeddyH]

Versteh ich gerade nicht, der Parent muss ja sowieso von TWinControl abstammen, sonst kann er gar nicht als Parent fungieren. IMHO kannst Du die Parent-Property mit Getter und Setter wieder löschen, wird ja sowieso schon von TControl geerbt.

[Chris211183]

Ja, ebend , dass habe ich bereits alles versucht, ich bin echt komplett ratlos !!!

Wenn er zur Entwurfszeit mir einfach erstmal die X-Achse aufs Formular klatschen würde, wäre ich schon zufrieden, aber egal was ich versuche (Constructor-Anweisungen, überschreiben von Parents etc.) Nischhhht

Ziel: ersteinmal die X-Achse visuell irgendwo, mit der neuen Komponente(Hintergrund und Anzeigefenster) aufs Formular zu bekommen mit allen Eigenschaften der X-Achse.

Das macht mich grad fertig, dass ich das nicht hinbekomme...

[DeddyH]

Nimm doch mal das

Zitat:

Delphi-Quellcode:

if (Parent = NIL) or not visible
   then Exit;

aus DrawComponent raus, das geschieht ja eh automatisch.

[Chris211183]

auch schon probiert DeddyH, da geht nichts!

Kann es sein, dass die Constructoranweisung zu früh ist (create.self) ?
Dass er da irgendwo zwischendurch löscht und neu zeichnen will, selbst im Debugg, lutscht er durch, ohne Probs....

[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;

[DeddyH]

Die beiden Zeilen hab ich glatt übersehen. Das sind auch Komponenten? In dem Fall dürfte denen der Parent fehlen, deshalb wird auch nichts gezeichnet.

[Chris211183]

Zitat von DeddyH:

Die beiden Zeilen hab ich glatt übersehen. Das sind auch Komponenten? In dem Fall dürfte denen der Parent fehlen, deshalb wird auch nichts gezeichnet.

Der Parent ist ja der Hintergrund der Komponente...

auch nach der direkten Zuweisung zeichnet er nicht...

Ahhhh, erst richtig lesen, Du meinst der Parent der Scalenkomponente fehlt von vornherein ?

[himitsu]

Hab jetzt nichts direkt Neues gesehn, aber

Zitat:

Delphi-Quellcode:

destructor THixHistoGraph.Destroy;
begin
   inherited Destroy;
   FreeAndNil(FFont);
end;

ist doch bestimmt falsch rum?

Und die Kommentare in der Klassendefinition ... Kann es sein, daß deine Variablenbezeichner nicht "gut" sind und deswegen Sowas nötig war?




..........

Zitat:

Delphi-Quellcode:

procedure THixHistoGraph.SetFont(const Value: TFont);
begin
   FFont.Assign(Value);
   FFont := Value;
   invalidate;
end;

Assign war schon richtig, aber die nachfolgene Zuweisung natürlich nicht.

Zitat:

Delphi-Quellcode:

procedure THixHistoGraph.SetXScale(const Value: THorScale);
begin
   FXScale.Create(self);
   FXScale.Parent.Create(self);
   FXScale.Owner.Create(self);
...
end;

Warum werden die Instanzen neu erstellt und dann auch noch falsch?