Range mit InRange- function auslesen ?

[Chris211183]

jap DeddyH !

geht es auch, dass der Range in solch einer Form angezeigt werden kann...

Delphi-Quellcode:

(
 (0, ValueWert)
  ValueMin, ValueMax
  ValueMax, LabelingGap)
)

[DeddyH]

Nun bin ich komplett verwirrt. Ich denke, Du willst eine Boolean-Property?

[Chris211183]

braucht man nicht wirklich, hat mich nur mal interessiert, ob soetwas prinzipiell machbar ist, dass man nicht den ganzen OI voll mit Dingen hat, die man nicht dort drin benötigt, aber sich dennoch bereiche so Ansehen kann...

[Chris211183]

, eigentlich ist es egal...

geht mir mehr um die Sache, nicht im OI aber aber in der DFM

Danke trotzdem..., ist jetzt nicht entscheidend, Komponente funktioniert nach langem Hin und Her endlich

[himitsu]

siehe TComponent.DefineProperties(Filer: TFiler);

Dort ist als Beispiel drin, wie das bei den "unsichtbaren" Property Left und Top der nichtvisuellen Komponenten ala TTimer gemacht wurde.

[Chris211183]

http://docwiki.embarcadero.com/Libra...fineProperties

das verstehe ich nicht, was hat es mit dem Ancestor auf sich ?
Erklärung für Nichtprogrammierer wäre gut

[himitsu]

Das Ancessor ist egal ... es ist ja nur die Speicherstelle, wo die Variable für die Position drin ist.

Delphi-Quellcode:

procedure TComponent.PropertyLeseMethode(Reader: TReader);
begin
  MeineVariable := Reader.ReadInteger;
end;

procedure TComponent.PropertySpeicherMethode(Writer: TWriter);
begin
  Writer.WriteInteger(MeineVariable);
  // Man kann hier auch mehrere Werte speichern (z.B. X und X eines TPoint), aber das würde/könnte/sollte man vielleicht besser in
  // WriteListBegin und WriteListEnd verpacken, damit es als zusammengehörig erkennbar ist.
  // Gibt weniger Probleme beim Einlesen, wenn etwas am Format falsch ist, bzw. geändert wurde.
end;

procedure TComponent.DefineProperties(Filer: TFiler);
begin
  Filer.DefineProperty('PropertyNameInDerDFM', PropertyLeseMethode, PropertySpeicherMethode, TrueWennPropertyInDerDFMGespeichertWerdenSoll);
  // oder Filer.DefineBinaryProperty

  // z.B. MeineVariable<>0, bzw. MeineVariable<>DefaultOrInitialWert oder einfach immer nur True für TrueWennPropertyInDerDFMGespeichertWerdenSoll
end;

[Chris211183]

Super, das habe ich verstanden !

dann kann der Threat geschlossen werden !

Vielen Dank !!!