Image.Data / ImageList in DFM

[haentschman]

Danke für die Info...

...aber das hatte ich schon getan. Ich vermute, daß es daran liegt, daß mehrere gleiche TPngImageList vorhanden sind und es sich um die DFM eines DataModuls handelt. Wenn ich den Stream als Datamodule "einlese" bekomme ich die Meldung daß die Klasse TPngImageList nicht bekannt ist. Logisch, denn mein dynamisch erzeugtes Datamodule hat keine uses...

Ich habe dann erst mal abgebrochen... Für Ideen bin ich dankbar.

Versuchslabor:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  FFileStream:= TFileStream.Create('D:\Projekte\Delphi Unicode\eAV3\Arbeitskopie\Quelltext\dm_ImageLists.dfm',fmOpenRead);
  FMemoryStream:= TMemoryStream.Create;
  pngil16:= TPngImageList.Create(nil); // Namen vom Standard auf die Namen in der DFM geändert
  dmImageLists:= TDataModule.Create(nil);
  try
    ObjectTextToBinary(FFileStream,FMemoryStream);
    //FMemoryStream.LoadFromStream(FFileStream);
    FMemoryStream.Position:= 0;
    FMemoryStream.ReadComponent(pngil16); // auch Versuch das komplette DataModule einzulesen incl. ReadComponentRes
    //FImageList:= dmImageLists.FindComponent('pngil16') as TPngImageList;
    btn1.Images:= pngil16; //FImageList
    btn1.ImageIndex:= 100;
  finally
    FFileStream.Free;
    FMemoryStream.Free;
    pngil16.Free;
    dmImageLists.Free;
  end;
end;

[himitsu]

Alle Componenten aus in der DFM müssen vorher registriert werden, sonst geht da nichts.
RegisterClass.

[haentschman]

Soooo...

@himitsu:
das mit dem RegisterClass brachte mich schon mal einen Schritt weiter. Der Quelltext läuft durch. A enthällt die richtige Anzahl der enthaltenen Images... Nur der Button weigert sich den Index anzuzeigen...

Was habe ich nun vergessen ?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var A: Integer;
begin
  FFileStream:= TFileStream.Create('D:\Projekte\Delphi Unicode\eAV3\Arbeitskopie\Quelltext\dm_ImageLists.dfm',fmOpenRead);
  FMemoryStream:= TMemoryStream.Create;
  pngil16:= TPngImageList.Create(nil);
  dmImageLists:= TDataModule.Create(nil);
  try
    ObjectTextToBinary(FFileStream,FMemoryStream);
    RegisterClass(TPngImageList);
    RegisterClass(TGDIPPictureContainer);
    FMemoryStream.Position:= 0;
    FMemoryStream.ReadComponent(dmImageLists);
    pngil16:= dmImageLists.FindComponent('pngil16') as TPngImageList;
    A:= pngil16.Count;
    btn1.Images:= pngil16;
    btn1.ImageIndex:= 10;
  finally
    FFileStream.Free;
    FMemoryStream.Free;
    pngil16.Free;
    dmImageLists.Free;
  end;
end;

Nachtrag: Diese Vorgehensweise funktioniert doch nur, wenn man weiß welche Objekte (Klassen) enthalten sind. Wie macht das denn die IDE ? Irgendwie verstehe ich das nicht...

[Uwe Raabe]

Zitat von haentschman:

Nachtrag: Diese Vorgehensweise funktioniert doch nur, wenn man weiß welche Objekte (Klassen) enthalten sind. Wie macht das denn die IDE ? Irgendwie verstehe ich das nicht...

Die IDE registriert die Komponenten beim Laden der diversen Packages. Wenn du deine App mit Packages compilierst, kannst du das auch nutzen.

[himitsu]

Delphi speichert sich das schon beim Kompilieren, wo der Compiler die entsprechende Typenliste zusammenstellt, anhand der Typen, welche im aktuellen Scope zu finden sind und die er in der DFM entdeckt.

Du könntes vorher über TReader die binäre DFM durchgehn, alle Klassennamen auslesen und diese über die RTTI suchen.

Eindeutig ist das aber nicht, da diese Typenbezeichner nicht eindeutig sind und es mehrere Typen mit dem selben Namen geben könnte.

@Uwe Raabe: Das ist auch nicht eindeutig.
Siehe z.B. mein TNTHack für's TDE, wo im Scope des Formulars andere Typen deklariert werden.

[haentschman]

ich weiß, daß ich nerve

Nach vielen Versuchen im Labor... obiger Code läd die korrekte Anzahl an Komponenten (DataModule.ComponentCount), die korrekte Anzahl an Images in den ImageListen (Imagelist.Count)

Leider will der Button das Icon (png) nicht anzeigen. Wo ist der Trick ? Als würde die Imagelist zwar die Images laden aber ohne Bildinformationen...

Also Jungs... war wohl für euch zu einfach und für mich zu spät

wenn ich nach der Zuweisung im finally die ImageList freigebe kann logischerweise kein Bildchen da sein... Wenn ich den erwische der auf diese doofe Idee gekommen ist.