Eigene Komponente - Properties aus OI werden nicht verwendet

[Hobbycoder]

Hi,

ich habe mir vor einiger Zeit mal eine eigene Komponente geschrieben (habe die aber bisher nie eingesetzt). Auf Basis eines TCustomPanel. Inhaltlich funktioniert auch alles wie es soll.

Was nicht funktioniert und mir nicht ganz klar ist, ist das verwenden der im IO eingestellten Properties.
Zwar tauchen sie alle auf, aber die dort eingestellten Werte werden dann zur Laufzeit immer gegen sie Defaultwerte ersetzt.

Wo ist der richtige Punkt erst einmal die Defaultwerte für den OI festzulegen, damit sie nicht zur Laufzeit die im IO eingestellten Werte überschreiben?
In der Property?property ShowCaption: boolean read FShowCaption write SetShowCaption Default true; oder im Create über csDesigning?

Zur Zeit werden sie gar nicht festgelegt. Trotzdem haben die Einstellungen im OI keinerlei Wirkung auf den Wert zur Laufzeit. Sprich ich stelle einen Boolwert im OI ein, zur Laufzeit hat er dann aber wieder den Wert, den er beim einfügen der Komponente auf der Form hatte.

Und zu allem Überfluss habe ich noch ein paar Klassen da drin, über die ich mir Properties im OI als Gruppe zusammenhalten will z.B: verschiedene Fonts.

Delphi-Quellcode:

  TFonts=class
  private
    FDateFont: TFont;
    procedure SetDateFont(const Value: TFont);
  public
    constructor Create;
    destructor Destroy;
  published
    property DateFont: TFont read FDateFont write SetDateFont;
  end;

(Ich habe das hier mal auf nur einen Font eingekürzt, damit der Quelltext nicht so lang ist)

Dieses ist auch im Komponentensource wie folgt eingebunden:
    property Fonts: TFonts read FFonts write SetFonts; Wo würde man für die Fonts nun die Defaultwerte festlegen?
Im Create von TFonts?
Dann dort ebenfalls über csDesigning?

Zur Zeit werde die Defaults von TFont verwendet, die automatisch beim erzeugen vorhanden sind. Aber egal, was ich bei den Fonts im OI einstelle, zur Laufzeit hat er dann wieder nur seine Default.

[mjustin]

Zitat von Hobbycoder:

Delphi-Quellcode:

  TFonts=class
  private
    FDateFont: TFont;
    procedure SetDateFont(const Value: TFont);
  public
    constructor Create;
    destructor Destroy;
  published
    property DateFont: TFont read FDateFont write SetDateFont;
  end;

Eine Komponente wird von TComponent (oder einer anderen Komponente) abgeleitet, TFonts=class sieht unvollständig aus. Daher wird vermutlich nichts in die DFM Datei geschrieben.

[Uwe Raabe]

Zitat von Hobbycoder:

Wo ist der richtige Punkt erst einmal die Defaultwerte für den OI festzulegen, damit sie nicht zur Laufzeit die im IO eingestellten Werte überschreiben?
In der Property?property ShowCaption: boolean read FShowCaption write SetShowCaption Default true; oder im Create über csDesigning?

Der Default-Wert muss im Create zugewiesen werden (übrigens immer, nicht nur bei csDesigning). Die default-Angabe in der Property-Deklaration ist nur ein Hinweis an das Streaming-System, dieses Property nicht in den Stream zu schreiben, wenn es eben diesen Wert hat. Beim Lesen des Streams kommt dann das Property nicht vor und behält somit den Wert, den es im Create bekommen hat (deswegen das immer).

Zitat von Hobbycoder:

Dieses ist auch im Komponentensource wie folgt eingebunden:
property Fonts: TFonts read FFonts write SetFonts; Wo würde man für die Fonts nun die Defaultwerte festlegen?
Im Create von TFonts?
Dann dort ebenfalls über csDesigning?

Ein TFont hat bereits seine Default-Werte, daran kannst du nichts ändern. Dazu müsstest du eigene TFont-Klassen schreiben, die dann andere Default-Werte haben. Default-Werte sind immer an die Klasse gebunden, nicht an die Instanz.

Zitat von mjustin:

Eine Komponente wird von TComponent (oder einer anderen Komponente) abgeleitet, TFonts=class sieht unvollständig aus. Daher wird vermutlich nichts in die DFM Datei geschrieben.

Da diese Klasse lediglich als Property verwendet wird, gilt diese Aussage nur bedingt! TFont ist schließlich auch nicht von TComponent abgeleitet.

[Hobbycoder]

Zitat von Uwe Raabe:

Der Default-Wert muss im Create zugewiesen werden (übrigens immer, nicht nur bei csDesigning). Die default-Angabe in der Property-Deklaration ist nur ein Hinweis an das Streaming-System, dieses Property nicht in den Stream zu schreiben, wenn es eben diesen Wert hat. Beim Lesen des Streams kommt dann das Property nicht vor und behält somit den Wert, den es im Create bekommen hat (deswegen das immer).

Das trägt schon mal unheimlich zu meinem Verständnis bei. Danke. Solch eine Information hätte ich mir in dem einen oder anderen Tutorial gewünscht.

Zitat von Uwe Raabe:

Zitat von Hobbycoder:

Dieses ist auch im Komponentensource wie folgt eingebunden:
property Fonts: TFonts read FFonts write SetFonts; Wo würde man für die Fonts nun die Defaultwerte festlegen?
Im Create von TFonts?
Dann dort ebenfalls über csDesigning?

Ein TFont hat bereits seine Default-Werte, daran kannst du nichts ändern. Dazu müsstest du eigene TFont-Klassen schreiben, die dann andere Default-Werte haben. Default-Werte sind immer an die Klasse gebunden, nicht an die Instanz.

Diese müsste ich dann wohl auch im Create der eigentlich Komponente festlegen (wenn sie denn anders sein sollen, als die TFont-Defaults)?

Zitat von Uwe Raabe:

Zitat von mjustin:

Eine Komponente wird von TComponent (oder einer anderen Komponente) abgeleitet, TFonts=class sieht unvollständig aus. Daher wird vermutlich nichts in die DFM Datei geschrieben.

Da diese Klasse lediglich als Property verwendet wird, gilt diese Aussage nur bedingt! TFont ist schließlich auch nicht von TComponent abgeleitet.

Jain. Der Kommentar von MJustin hat mich auf die Idee gebracht, doch mal bei anderen Komponenten reinzuschauen, die sowas machen. (In meinem Fall einfach mal bei TVirtualStringTree).
Da werden diese Klassen von TPersistent abgeleitet. habe ich mal bei TFonts auch so gemacht, und schwupps werden meine TFont Einstellungen aus dem OI auch gespeichert und geladen.

[mjustin]

Zitat von Hobbycoder:

Jain. Der Kommentar von MJustin hat mich auf die Idee gebracht, doch mal bei anderen Komponenten reinzuschauen, die sowas machen. (In meinem Fall einfach mal bei TVirtualStringTree).
Da werden diese Klassen von TPersistent abgeleitet. habe ich mal bei TFonts auch so gemacht, und schwupps werden meine TFont Einstellungen aus dem OI auch gespeichert und geladen.

Da war jemand schneller - ich wollte genau diesen Hinweis gerade noch geben. Funktionierender Quelltext ist die beste Doku