表示画像の中心を原点に画像の拡大・縮小表示するには？ (ID:39746)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ScrollBoxにImageを乗せ、下の例で「左上角を原点」に画像の拡大表示が出来ました。 この画像の拡大表示で、ScrollBoxの「表示中心を原点」に拡大・縮小をしたくて、 HorzScrollBar.PositionやVertScrollBar.PositionのPositionを変えてみたり、ImageのTopやLeftを変えたりしています。 画像がScrollBoxより大きい場合、小さい場合、ScrollBar.Positionを動かしスクロールした場合 ・・・と考え試してみていますが全く思うようにはいきません。 ImageやScrollBoxのサイズ、HorzScrollBar.Position 、Range 等が関係した計算問題のような気が しますが、正解がわからず困っています。 どなたか「表示中心を原点に拡大、縮小」のアドバイスをよろしくお願いします。 var Rate: Real; procedure TForm1.Button2Click(Sender: TObject); begin //拡大 Rate := Rate + 0.2; if Rate > 2.0 then Rate := 2.0; //最大倍率の指定 Image1.Width := Trunc(Image1.Picture.Width * Rate); Image1.Height := Trunc(Image1.Picture.Height * Rate); end;