Timage Icon Grösse anpassen.

[Perlsau]

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

[codenoob]

Danke Perlsau hab's nochmals getestet und jetzt geht es hatte Proportional auf False

L.g Tom