Zitat von
jim_raynor:
Zitat von
Alexander Roth:
Hi,
also ich erstelle gerade ein Komponte und sie bekommt zusätzliche Properys und davon auch 3 Stück mit dem Typ TStringlist.
Alles super, doch wenn ich im Objekt-Inspektor die Stringlisten verändere, haben diese, nachdem ich das Projekt kompiliert habe, wieder den
Standart-Inhalt.
Mit anderen propertys (integer) klappt es super.
Sind deine TStringList Propertys auch schreibbar (also mit write?). Wenn ja, dann werden diese nicht mit gespeichert. Die StringListen dürfen nur lesbar sein.
Da sagt auch jeder was anderes.
Das hatte ich ja vorher. Und da war das oben genannte
Problem mit dem übernehmen der Daten doch dafür war kein Fehler.
Gruß Alexander
EDIT: Man sieht dass die Stringlisten leer sind, indem man das Create so gestaltet:
Delphi-Quellcode:
constructor TExpandPanels.create(AOwner: TComponent);
begin
inherited create(AOwner);
FCaptions:=TStringList.Create;
FExpandList:=TStringList.Create;
FHeightList:=TStringList.Create;
FColors:=TJvRollOutColors.Create;
PanelArray:=TClassArray.create(false);
Self.Height:=300;
Self.Width:=150;
FColors.ButtonColor:=clBlue;
FColors.HotTrackText:=clRed;
showmessage(IntToStr( ExpandList.Count));
showmessage(IntToStr( HeightList.Count));
showmessage(IntToStr( Captions.Count));
CountPanels:=3; // hier werden die Panels erstellt und die Listen mit standartwerten gefüllt
end;