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;

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

[Chris211183]

Zitat:

falsch rum ?

Was meinst Du damit ?

[himitsu]

Zitat von Chris211183:

Was meinst Du damit ?

Nja, du gibst erst die Instanz frei und willst dann in dieser Instanz nochmal etwas mit einer der Variablen/Felder dieser Instanz machen.
Es gibt Sonderfälle, wo sowas nötig ist, aber meinstens macht man es andersrum.

Delphi-Quellcode:

destructor THixHistoGraph.Destroy;
begin
   FFont.Free; // oder FreeAndNil(FFont); aber hier greift doch hoffentlich keiner mehr auf die Font-Variable zu, wobei sie ja eh gleich weg ist.
   inherited;
end;

Pssst: hatte meinen letzten Beitrag nochmal editiert/erweitert.

[Chris211183]

Da hast du Recht ! Danke, werd das gleich mal ändern...

[Chris211183]

habe mal zwei Panels genommen, darauf eine Scale draufgepackt und mit nem OnClick ereignis, den Parent auf das jeweilig ander gesetzt und das funktioniert, also liegt es nicht an den Parents, der beiden Komponenten...





Wenn ich das jetzt mit meinem Histographen mache, dann kommt : Inkompatible Typen: TwinControl und THixHistograph

[Chris211183]

bin verwirrt, jemand noch eine Idee ?

[DeddyH]

Was passiert, wenn Du

Zitat:

Delphi-Quellcode:

type

   THixHistoGraph = class(TGraphicControl)

mal abänderst in

Delphi-Quellcode:

type

   THixHistoGraph = class(TCustomControl)

?