Eigenen Datentyp anzeigen

[luckystar85]

Moin, moin!!!

Ich habe mir eine Komponente geschrieben die einen mehrzeiligen Text anzeigen kann. Das besondere ich möchte das jede Textzeile eine andere Farbe hat, die der Anwender bestimmen kann. Das ist ja soweit kein Problem, nur wollte ich das der Anwender im Objectinspektor die aktuelle Zeile und den aktuellen Farbwert eintragen kann. Ich habe es zur Zeit so das ich das Lines eine TStringList verwende und wenn nach der Zeile eine "#" kommt, kopiere ich mir den folgenden Farbwert da raus. Nur ist das ja doof, weil der Anwender ja nie eine "#" als Symbol eintragen kann. Gibt es eine Möglichkeit das ich einen eigenen Typ definiere

Delphi-Quellcode:

TZeileninfo = record
  Zeile : String;
  Farbe : TColor;

und das denn im OI anzeigen lasse. Nur bei der obrigen Lösung ist das Problem das ich nicht 20 Zeilen eintragen kann, sondern nur eine Zeile. Ich habe mir auch eine Liste geschrieben und dort denn die Daten reingegeben das klappt auch ganz gut, nur ist da das Problem das ich das nur zur Laufzeit sehen kann und in der Entwicklungsumgebung nicht. Gibt es einen Kompromiss das ich wiebei einer TStringList mehrere Zeilen eintragen kann und denn noch einzeln dazugeordnet eine Farbe und das alles im OI das ich es auch schon zur Entwurfszeit sehe.

[Frank Borland]

so mal aus dem Hut: warum nicht

MeineStringList.AddObject(MeinString,TMeinObject);

da kannst Du zu jeder Zeile eigene Informationen hinzufügen.

Gruß


Malte

[luckystar85]

Ja, aber das geht ja auch nur zur Laufzeit. ich wollte es ja gerne das ich schon in der Entwicklungsumgebung sehen kann wie das alles aussieht.

[SirThornberry]

du kommst nicht drum herum dir einen eigenen propertyeditor zu bauen. Also einen eigenen Dialog in dem du das einstellen kannst.

[luckystar85]

Zitat von SirThornberry:

du kommst nicht drum herum dir einen eigenen propertyeditor zu bauen. Also einen eigenen Dialog in dem du das einstellen kannst.

Hast du einen Tipp wo man was über PropertyEditor finden kann (Tutorial oder so). Ich habe noch nie was davon gehört.

[Frank Borland]

wie wär's mit dem TValueListEditor?


Gruß


Malte

[luckystar85]

Der TValueListEditor kann mir ja auch nicht weiter helfen. Damit kann ich ja leider keine neuen Eigenschaften meiner Komponente in den objektinspektor hinzufügen.

[luckystar85]

Vielen Dank für eure Hilfe. Mit dem Property-Editor ging das alles ganz gut. Ich habe jetzt eine Liste (von TObjectList) als Eigenschaft definiert wo den Items denn eine Farbe und ein String zugewiesen werden kann. Läuft auch alles ganz prima. Mein akt. Prob.: Irgendwie wird meine Property "MenuLines" nicht im dfm abgespeichert. Im dfm taucht die Eigenschaft gar nicht auf. Ich habe auch schon mal gesucht, aber ein OnSave Ereignis oder ähnliches habe ich nicht gefunden. Kennt ihr das Prob?

[SirThornberry]

für sowas gibt es eine Extra Methode welche du überschreiben musst. Damit hast du die Möglichkeit properties die nicht published sind auch in der DFM zu speichern (gegebenfalls auch binaryproperties die nicht auftauchen im Objectinspektor). Die Methode welche du überschreiben musst heißt:
procedure DefineProperties(Filer: TFiler); diese kann wie folgt aussehen wenn sie überschreiben ist:

Delphi-Quellcode:

procedure TYourClass.DefineProperties(AFiler : TFiler);
begin
  inherited;
  AFiler.DefineBinaryProperty('Data', FReadBinProp, FWriteBinProp, Count > 0);
end;

wobei "FreadBinProp" und "FWriteBinProp" Methoden sind welche einen Stream erwarten und wie folgt definiert sind

Delphi-Quellcode:

procedure TYourClass.FWriteBinProp(AStream: TStream);
begin
  SaveToStream(AStream);
end;

procedure TYourClass.FReadBinProp(AStream: TStream);
begin
  LoadFromStream(AStream);
end;

Es ist ja auch irgendwo logich dass, das ganze zur zeit nicht in der DFM auftaucht denn woher soll delphi wissen wie es die Objectlist speichern soll bzw. die Objecte darin.

[luckystar85]

Ich habe das jetzt so programmiert, wie du es vorgeschlagen hast, nur bekomme ich beim Laden die Meldung "Ungültiger Wert der Eigenschaft". Leider kann man ja nicht debuggen was genau geschrieben und geladen wird, aber das geht ja nicht. Im dfm sind auch Daten

Zitat:

{02000000602E6505000000000884690500008000}

abgespeichert, aber die kann ich ja auch nicht lesen.

Delphi-Quellcode:

Procedure TEventLogPropertyList.LoadFromStream(AStream: TStream);
Var
  i,
  lCount : Integer;
  lColor : TColor;
  lLine  : String;
  lData  : TEventLogPropertyData;
Begin
  AStream.Read(lCount, SizeOf(Integer));

  For i := 0 To Pred(lCount) Do
  Begin
    AStream.Read(lLine, SizeOf(String));
    AStream.Read(lColor, SizeOf(TColor));

    lData       := TEventLogPropertyData.Create;
    lData.Line  := lLine;
    lData.Color := lColor;
    Add(lData);
  End;
End;

Procedure TEventLogPropertyList.SaveToStream(AStream: TStream);
Var
  i : Integer;
Begin
  AStream.Write(Count, SizeOf(Integer));

  For i := 0 To Pred(Count) Do
  Begin
    AStream.Write(Items[i].Line, SizeOf(Items[i].Line));
    AStream.Write(Items[i].Color, SizeOf(Items[i].Color));
  End;
End;

Seht ihr hier irgendwo einen Fehler?