Event を持つ TForm がありFormResize
ます。その関数内で、TImage 内に何かを描画したいと考えています。
私の FormResize 関数は以下のようになります
void __fastcall TForm1::FormResize(TObject *Sender)
{
// Teken de blokjes
_viewPort->draw(_viewPortImage->Canvas, _viewPortImage->Width, _viewPortImage->Height);
}
この関数内では、境界線を描画する四角形を描画するだけです。
ViewPort::draw(Vcl::Graphics::TCanvas* Canvas, int width, int height)
{
Canvas->Rectangle(0, 0, width, height);
}
今問題。フォームを元のフォームよりも小さくすると、うまくスケーリングされます。ただし、フォームが元のサイズよりも大きくなった場合。背景+ボーダーがうまく描かれていません。以下のスクリーンショットを参照してください。白い背景/キャンバスは TImage からのものです。TImage は 4 方向すべてにアンカーされています。
画像のサイズを大きくできるようにする方法を知っている人はいますか?