Thema: TImage Zoom

Einzelnen Beitrag anzeigen

Benutzerbild von Davidlocke13
Davidlocke13

Registriert seit: 19. Sep 2012
Ort: MD (Sachsen-Anhalt)
166 Beiträge
 
Delphi 2010 Enterprise
 
#44

AW: TImage Zoom

  Alt 20. Sep 2012, 18:59
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 !
David

Geändert von Davidlocke13 (21. Sep 2012 um 10:07 Uhr)
  Mit Zitat antworten Zitat