Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: [DELPHI] Bild vergrößern - image zentriert heigth und wi

    Delphi
    by hadschi92, 5. Jul 2009
  Ich hab das bis jetzt so gelöst:
  
  procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
  begin
  //Bild zoomen
  if ssCtrl in Shift then begin
  Image1.Left := Round(Image1.Left - (((Image1.Width * 1.1) - Image1.Width) / 2));
  Image1.Top := Round(Image1.Top - (((Image1.Height * 1.1) - Image1.Height) / 2));
  Image1.Width...