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

名前

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

本文 昔TrackBarを使って拡大、縮小をさせた時の抜粋です。 これだけで、役に立つかどうか疑問ですが、参考程度に。 BMPWidth:=BMP.Width; BMPHeight:=BMP.Height; Form1.TrackBar1.Max:=BMPWidth; Form1.ScrollBox1.VertScrollBar.Position:=0; Form1.ScrollBox1.HorzScrollBar.Position:=0; procedure TForm1.TrackBar1Change(Sender: TObject); begin Image1.SetBounds(0, 0,TrackBar1.Position ,Round(TrackBar1.Position /BMPWidth * BMPHeight)); end;