画像を拡大・縮小する方法を紹介します。
Graphics.TCustomCanvas.StretchDraw()を使うと、簡単に画像を拡大・縮小できます。
virtual void __fastcall StretchDraw(const Types::TRect & Rect, Graphics::TGraphic * Graphic);
第一引数 Rect で画像のサイズを指定し、第二引数の Graphic で画像を指定します。
フォームのキャプチャー画像をサイズを半分にして描画します。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//フォームのキャプチャー画像を取得する
Graphics::TBitmap* bitmap = this->GetFormImage();
//半分にしたサイズを計算する
TRect rect(0, 0, bitmap->Width / 2, bitmap->Height / 2);
//サイズを半分にした画像を作成する
bitmap->Canvas->StretchDraw(rect, bitmap);
//フォームに配置したTImageに描画する
Image1->Picture->Assign(bitmap);
delete bitmap;
}