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

名前

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

本文

こーゆことかね？
type
  TForm2 = class(TForm)
    ScrollBox1: TScrollBox;
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private 宣言 }
  public
    procedure ResizeImage;
  end;

var
  Form2: TForm2;
  V: Integer;

implementation

{$R *.dfm}

procedure TForm2.ResizeImage;
begin
    Image1.Width  := Image1.Picture.Width  * V;
    Image1.Height := Image1.Picture.Height * V;
    Image1.Left := ((Image2.Width  - Image1.Width ) div 2) - ScrollBox1.HorzScrollBar.Position;
    Image1.Top  := ((Image2.Height - Image1.Height) div 2) - ScrollBox1.VertScrollBar.Position;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
    V := V + 1;
    ResizeImage;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
    if V > 1 then V := V - 1;
    ResizeImage;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
    Image2.Left := 0;
    Image2.Top  := 0;
    Image2.Width := 6400;
    Image2.Height := 4000;
    V := 1;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
    ScrollBox1.HorzScrollBar.Position := (Image2.Width div 2) - (Width div 2);
    ScrollBox1.VertScrollBar.Position := (Image2.Height div 2) - (Height div 2);
    ResizeImage;
end;

←解決時は質問者本人がここをチェックしてください。

戻る