So schaut das jetzt bei mir aus
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
NewWidth,NewHeight: Integer;
begin
NewWidth := round(Image1.Width * 1.25);
NewHeight := round(Image1.Height * 1.25);
Image1.Width := NewWidth;
Image1.Height := NewHeight;
end;
Nur da passiert bei mir leider nix !
Gruß