Hi Delphianer
Ich habe verschiedene Bilder in einer Resourcedatei die ich auslesen kann.
Delphi-Quellcode:
procedure Bildauslesen;
var
Hd: THandle;
Ico: TIcon;
begin
Hd:= LoadImage(HInstance, 'RES_ICON1', IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);
Ico:= TIcon.Create;
Ico.ReleaseHandle;
Ico.Handle := Hd;
Form1.image1.Picture.Icon.Assign(ico);
Ico_1.Free;
end;
Nun wollte ich die Prozedur so umbauen das ich sie aufrufen kann und bestimmen kann welches Icon in welche Timage geladen werden soll.
Delphi-Quellcode:
procedure Bildauslesen(ICON: String; IMG: Timage);
var
Hd: THandle;
Ico: TIcon;
begin
Hd:= LoadImage(HInstance, ICON, IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);
Ico:= TIcon.Create;
Ico.ReleaseHandle;
Ico.Handle := Hd;
IMG.image1.Picture.Icon.Assign(ico);
Ico_1.Free;
end;
und mit dem Befehlt
Bildauslesen(icon1 , Image1);
will ich das dann ausführen
Aber dies funktioniert nicht was mache ich da falsch?
Grüsse Tom