TImage Zoom

[Davidlocke13]

So was haltet ihr davon !

Code:

procedure TForm1.Button1Click(Sender: TObject);
...
...
...
Button3.Width:= round(Button3.Width * 1.25);
Button3.Height := round(Button3.Height * 1.25);
Button3.Left:= round(Button3.Left * 1.25);
Button3.Top:= round(Button3.Top * 1.25);

Ach so der Button muss in die ScrollBox damit der sich mit bewegt beim Scrollen

Ich probiere das noch an ein Par weitern Button und dann müsste mein Problem eigentlich gelöst sein !