Hi Matze,
Delphi-Quellcode:
procedure geticon (x,y,h,w : integer; filename : string);
var
MyIcon:TIcon;
icoHandle: HIcon;
Image1 : TImage;
begin
Image1 := TImage.Create(Form1);
Image1.Top := y;
Image1.Left := x;
Image1.Parent := Form1;
MyIcon:=TIcon.Create;
try
icoHandle := ExtractIcon(application.handle,pchar(filename), 0);
MyIcon.Handle := icoHandle;
Image1.Height := h;
Image1.Width := w;
Image1.Picture.Icon := MyIcon;
Image1.Proportional := true;
finally
MyIcon.free;
end;
end;
Das funzt so nicht.
Wird im Proze Kopf übergeben.
Delphi-Quellcode:
Image1.Height := 20;
Image1.Width := 18;
Die Icons in den EXE-Dateien sind größer als 20x18 Pixel !!!! WARUM GEHT DAS NICHT ????
devnull