Programmsymbol aus ListBox in TImage laden?

[Johnny Bravo]

Zitat von IceTube:

Wieso eigentlich "Programmsymbol aus ListBox in TImage laden?", du willst ja aus dem OpenDialog(der geöffneten Datei) das Icon in ein Image laden oder nicht=

Vielleicht gehts mit dem Code oben ?!?

lg

also:
ich öffne per klick auf einen button den OpenDialog. wenn man dann eine datei anklickt und öffnet, erscheint normalerweise das 2.te Formular, in der man einen Namen für die Datei eingeben kann, welches dann in die ListBox eingefügt wird.
Ich musste das öffnen des 2ten Formulars (in meinem code Unit4) herausnehmen, weil es sonst eine Zugriffsverletzung gibt.

werde deinen code ausprobieren, trotzdem danke für deine hilfe, ich melde mich gleich.


EDIT:

So, habs nun hinbekommen, halbwegs. der Grund für die Zugriffsverletzung war OpenDialog1.Free, im 2ten Formular - das war aber schon im ersten Formular deklariert.
Was eine Geburt den fehler zu finden.

Es wird jetzt ein Icon geladen, und zwar das Windowsstandardsymbol für Unbekannte Dateitypen - stimmt also noch nicht 100%.
Woran liegt das? Wie kann ich das Icon auf die Imagegröße von 32x32 skalieren?

danke für eure mühe, ihr habt mir schon sehr geholfen

[IceTube]

Die "IconNr" sind die verschiedenen Größen also 16x16,24x24,etc.

Für das andere Problem, weiß ich es jetzt nicht genau. Such eine andere Methode die Icons zu extrahieren...

lg

[Johnny Bravo]

so, die Icon Größe hab ich mit

Delphi-Quellcode:

with Form2.Image1.Canvas Do
          DrawIconEx(Handle, 0, 0,h, 32, 32, 0, Brush.Handle, di_Normal);

gelöst.

Darüber bin ich schonmal froh.


Doch wieso lädt der ein Falsches Symbol aus der Exe?

mfg