TPaintBoxで図形を拡大／縮小表示するには (ID:29625)

名前

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

本文

KHE00221さん、junkiさんご回答ありがとうございます。
ご返事が遅くなり、すみません。

KHE00221さん。
>ペイントツールでも作ろうとしているのかな？
 そのような高級なツールをつくろうとは、しておりません。
 単に図形の縮小／拡大をしたいと考えています。

junkiさん。
  示されたコードを実行すると、JPGの画像が縮小されることが確認
  できました。拡大のほうもつくりましたが、こちらのほうは
  縮小してから拡大すると、画像がつぶれました。
  junkiさんのＨＰを拝見しますと（画像の拡大は）、かなり難解だと思われ  ました。
  
今回は、Imageに線と四角形を描画してそれを縮小／拡大したかったので
下記のコードで実現できそうなので、これで解決とさせていただきます。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Canvas.MoveTo(10,10);
  Image1.Canvas.LineTo(100,100);

Image1.Canvas.Rectangle(100, 100, 150, 150);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  bmp:TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := Image2.Width;
    bmp.Height := Image2.Height;
    bmp.Canvas.CopyRect(Image1.Canvas.ClipRect, Image1.Canvas,       Image1.Canvas.ClipRect);
    StretchBlt(Image2.Canvas.Handle, 0,0, Round(Image1.Width*0.8), Round(Image1.Height*0.8),
               bmp.Canvas.Handle, 0,0, bmp.Width, bmp.Height, SRCCOPY);
  finally
    bmp.Free;
  end;

end;

KHE00221さん、junkiさん
ご教示いただきありがとうございました。

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

戻る