Kann nicht sein
denn gerade eben habe ich folgenden Code mit XE7 erfolgreich getestet:
Delphi-Quellcode:
Procedure TFormMain.Button1Click(Sender: TObject);
Var
MyIcon : TIcon;
begin
MyIcon := TIcon.Create;
Try
MyIcon.LoadFromFile('D:\Icons\TestIcon.ico');
Image1.Picture.Bitmap.Assign(MyIcon);
Image2.Picture.Bitmap.Assign(MyIcon);
Image3.Picture.Bitmap.Assign(MyIcon);
Finally
MyIcon.Free;
End;
end;
Das Icon hat die Größe 32x32, das Image1 hat 50x50, Image2 32x32 und Image3 mißt 25x25, Stretch steht bei allen ebenso auf True wie Proportional, und das Icon wird bei allen komplett angezeigt.
Kann natürlich schon sein, daß dein Code nicht funktioniert. Übrigens solltest du als Variablen-Bezeichner nicht einen Namen wählen, der bereits in deiner Anwendung existiert. TForm hat nämlich ein Property namens Icon, und wenn du jetzt ein TIcon mit demselben Namen deklarierst, könntest du unerwünschte Konflikte auslösen. Deshalb heißt mein TIcon auch MyIcon
