Vergessliche Imagelist

[creehawk]

Moin.

Die Imagelist vergisst Bilder.?

Ich lese aus einer elend langen XML die erforderlichen Daten für die Anzeige in einem ListView. GUID, Name und Grafikname. Das gebe ich in ein Listview. Klappt bestens.

Delphi-Quellcode:

function GetItemListStandard():Boolean;
   Var
   I:Integer;
   ListItem             : TListItem;
   ItemListStandard     : TStringList;
   ItemListStandardGUID : TStringList;
   PNGList              : TImageList;
   PNGImage             : TPNGObject;
   BMPImage             : TBitmap;
   Name:String;
   GUID:String;
   begin
   Main.ItemView.Clear;
   PNGImage := TPngObject.Create;
   BMPImage := TBitmap.Create;
   PNGList  := TImageList.Create(Main);
   PNGList.Width:=48;
   PNGList.Height:=48;
   PNGList.DrawingStyle:=dsTransparent;
   PNGList.ColorDepth := cd32Bit;
   Main.ItemView.SmallImages := PngList;
   ItemListStandard:=TStringList.Create;
   ItemListStandardGUID:=TStringList.Create;
   
   // Daten holen aus XML   
   ItemUnits := ItemRoot.SelectNodes('Item');
   For I := 0 to ItemUnits.length-1 do
    begin
     If AnsiPos(ItemAllocation,ItemUnits.item[I].attributes[3].Text) > 0 then
           begin
      ItemListStandard.Add(ItemUnits.Item[I].attributes[1].Text);
      ItemListStandardGUID.Add(ItemUnits.Item[I].attributes[0].Text);
      PNGImage.LoadFromFile(MinPath + ItemUnits.Item[I].attributes[5].Text);
      BMPImage.Assign(PNGImage);
      PNGList.Add(BMPImage,nil);
     end;
    end;
   ItemList := Nil;

  For I := 0 to ItemListStandardGUID.Count-1 do
  begin
   ListItem := Main.ItemView.Items.Add;
   Listitem.Caption := ItemlistStandardGUID.Strings[I];
   Listitem.Subitems.add(ItemlistStandard.Strings[I]);
   ListItem.ImageIndex := I;
  end;
Result:=  True;     
end;

Bestens in soweit als das die Ausgabe zunächst korrekt erscheint. Einzelne Bilder fehlen allerdings und am Ende der Anzeige gibt es dann noch Einträge aber dann eben ohne Bild.

Im Kern fehlen immer die drei gleichen Bilder. Ich habe diese drei PNG's rauf und runter geprüft, sind ok. Fehlermeldungen gibt es auch nicht. Beim DIREKTEN lesen der entsprechenden Grafik ist die Grafik definitiv nicht da.

Hat jemand irgendeine Idee.......

creehawk

P.S. Die Grafiken wurden als DDS(BC/,SRGB) in PaintNet geladen und wg.Transparenz als PNG gespeichert.

[MyRealName]

Ich dachte, die normale TImageList kann kein PNG.
Oder vllt. sind diese 3 anders als die anderen...

[himitsu]

Vorm PNGList.Add mal ein BMPImage.SaveToFile, bzw. in einem TImage anzeigen ... ist da das Bild auch noch da?
Ich hatte hier den Fall, dass es beim Zeuchnen von PNGs auf ein TBitmap manchmal ein weißes Bild raus kam, aber bei mir ist es ein multithreadingproblemchen, welches eigentlich nicht existieren sollte.

Die TImageList der VCL kann auch kein PNG, außer es wurde vorher in ein Bitmap konvertiert, um es ihr zu geben.

was sie genau kann, siehe ImageList_Create und ImageList_Add der comctl32.dll, welches ausschließlich ein HBITMAP haben möchte.

Für Linux wurde im Cylix mal ein eignes libcomctl32.borland.so verwendet
und die TImageList des FMX ist was komplett Anderes, die kann auch nativ PNG.


ACHTUNG:
Wenn man es genau nimmt, hat die VCL-ImageList intern nur ein einziges Bitmap, auf dem alle Einzelbilder draufgemalt sind.
Das heißt dass auch alle Bilder auch gemeinsam das selbe Setting z.B. für Transparenzen/Alphakanal nutzen (abgesehn von der indivituellen Transparenzfarbe, beim Ausschneiden)

[uligerhardt]

Was gibt

Delphi-Quellcode:

PNGList.Add

denn zurück?

[himitsu]

Zitat:

Zitat von uligerhardt (Beitrag 1458898)

Was gibt

Delphi-Quellcode:

PNGList.Add

denn zurück?

Den Index des eingefügten Bildes. :stupid:

[uligerhardt]

Zitat:

Zitat von himitsu (Beitrag 1458901)

Zitat:

Zitat von uligerhardt (Beitrag 1458898)

Was gibt

Delphi-Quellcode:

PNGList.Add

denn zurück?

Den Index des eingefügten Bildes. :stupid:

Im konkreten Fall beim OP, meinte ich. Vielleicht ja -1.

[jaenicke]

Passiert es denn auch, wenn du nur dieses Bild in die Liste packst und anzeigst? Kannst du solch ein kleines Projekt vielleicht als Beispielprojekt zeigen oder sind die betroffenen Bilder alle privat?

[creehawk]

Also kurz gesagt: allgemeines Rätselraten.

Ich habe jetzt malwas versucht: Man kann die Elemente in den Stringlists und der Imagelist ja zählen (count). In der Imagelist sind es mal 1, dann 2 oder drei weniger als in den Stringlists.

Heißt: irgendwo beim umwandeln und einfügen geht wohl was verloren.....

Und es sind unter 778 Bildern genau 3. Wenn ich die lösche geht es prima.



creehawk




Transportfähig geht leider nicht....

[uligerhardt]

Zitat:

Zitat von creehawk (Beitrag 1458910)

Ich habe jetzt malwas versucht: Man kann die Elemente in den Stringlists und der Imagelist ja zählen (count). In der Imagelist sind es mal 1, dann 2 oder drei weniger als in den Stringlists.

Heißt: irgendwo beim umwandeln und einfügen geht wohl was verloren.....

Das könnte bedeuten, dass du mal meine Frage beantworten solltest. 8-)

[creehawk]

@uligerhardt: Entschuldige: in allen 778 Fällen keine -1.

Wie in der vorherigen Post gesagt: ich habe die drei Bilder (und die dazugehörigen XML Einträge) mal gelöscht, ging prima, alles andere war da. Dann habe ich die drei ersetzt durch ein anderes Bild. Ging auch prima.

Heißt jetzt für mich: Beim umwandeln passiert mit diesen drei Grafiken etwas. Fragt sich was. Ich werd die drei mal einer besonderen Begutachtung unterziehen, mal sehen was dabei rauskommt.

creehawk

[creehawk]

Fehler gefunden.

Liegt nicht an Delphi.

Die Images die ich verwende kommen wie gesagt als DDS 128x128, diese werden in PNG umgewandelt auf 128x128 für eine Einzelanzeige, diese dann für die Listviewanzeige auf 48x48. Diese Umwandlung mache ich mit XNConvert, sehr schnell, sehr einfach.

Bei den drei Bildern die offensichtlich die Probleme produzierten war die Größe aus unerfindlichen Gründen bei diesem Prozess auf 54x57 verschoben worden, was im Explorer und auch sonst bei der optischen Begutachtung aber nicht aufgefallen ist.

Ich hatte vor XnConvert gesucht nach einer Möglichkeit PNG's mit Delphi zu verkleinern, aber ......

Jedenfalls allen die hier geantwortet haben meinen Dank.:P
Es ist immer sehr hilfreich das man neben handfesten Zusatzinformationen auch einfach nur einen Denkanstoss bekommt.

creehawk

@jaenicke : Die Bilder sind nicht privat sondern aus Anno 1800, aber momentan wären das so 30 MB mit Zubehör, erschien mir irgendwie zu dick.....

[himitsu]

Zitat:

Zitat von himitsu (Beitrag 1458897)

Vorm PNGList.Add mal ein BMPImage.SaveToFile, bzw. in einem TImage anzeigen ... ist da das Bild auch noch da?
Ich hatte hier den Fall, dass es beim Zeuchnen von PNGs auf ein TBitmap manchmal ein weißes Bild raus kam, aber bei mir ist es ein multithreadingproblemchen, welches eigentlich nicht existieren sollte.

Tja, ich hatte da auch keine Fehlermeldung, obwohl ich alle Results gewissenhaft ausgewertet hatte.

PS: Es gibt plötzlich ein TVirtualImageList an das man ein TImageCollection anhängen kann.
Geht dann fast in Richtung der TImageList vom FMX.
* Images können für die Verwaltung gruppiert werden
* und man kann die Images auch mit Namen ansprechen, anstatt nur über einen Index,
* auch wenn die doppelte Behandlung auch nicht extrem optimal ist.
** erst alle Bilder in Originalgröße in die Collection laden
** und dann nochmal die Bilder in der ImageList hinzufügen, mit automatischen skalieren und konvertieren

http://docwiki.embarcadero.com/Libra...rtualImageList (Componenten-Palette: Windows 10)
https://www.delphipraxis.net/198699-...imagelist.html

[creehawk]

Moin nochmal.

Danke für Hinweis, das Teil gibt es ja wohl schon seit 2018. Die Hilfe gibt leider nichts richtig preis, im Netz findet sich eine angemessen schwer verdauliche Erläuterung. Aber nach 3 Stunden rumgefummel : die Unterschiede im Handling zu anderen Image/Listen/Anzeigen sind nicht wesentlich.

Fazit:
Eine sehr schöne und von der dann ausgegebenen Bildqualität erste Klasse, auch bei Skalierungen. Irgendwelche Umwandlungen sind nicht nötig. Man kann per Namen des Bildes operieren und nicht nur per Index. Sämtliche in Delphi unterstützte Grafikformate kann man benutzen.

Für meine Zwecke die perfekte Lösung, die alleine jetzt eher nicht gefunden hätte.

@himitsu : Der Dank des Vaterlandes wird Ihnen ewig nachschleichen!!:-D

creehawk

[himitsu]

Hatte die Komponente gestern zufällig erst gefunden. (die gibt es seit knapp einem Jahr)

Eigentlich wollte ich mir den grauenhaften ImageList-Editor im FMX etwas anpassen,
aber leider gibt es nur den QuellCode des Editors der alten VCL-TImageList.

Da ich nun also mir komplett selber einen Editor bastel
und es nun eine entfernt ähnliche Komponente komponente in der VCL gibt,
und mich das Unübersichliche mit dem fehlenden Namen/Hinweistext und der Grupierung schon immer gestört hat.
Fing ich gestern an mir "halbwegs" gleiche Editoren für VCL und FMX zu erstellen.

Für VCL eine Kombiklasse aus TVirtualImageList mit integrierter TImageCollection und einer Collection untergeordneter TVirtualImageList für mehrere Größen,
wobei den letzte Teil wollte ich heute abend noch testen, ob der Standardproperty-Editor für TImageList die Subkomponenten mit auflistet. (z.B. in einem Button.Images)