Проблема масштабирования TRect

[Serg76]

по событию OnResize пытался увеличить размеры объкта TRect и столкнулся с интересной проблемой
упрощенный пример кода

Код:

__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  TRect R=Rect(0,0,Image1->Width,Image1->Height);
  Image1->Canvas->Brush->Color=clOlive;
  Image1->Canvas->FillRect(R);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Image1->Width+=50;
  Image1->Height+=50;

  TRect R=Rect(0,0,Image1->Width,Image1->Height);
  Image1->Canvas->Brush->Color=clLime;
  Image1->Canvas->FillRect(R);
}

вроде бы квадрат должен расти с размерами Image ан не.
в обратную сторону всё работает

как решить проблему?

[RXL]

Serg76, а ты после увеличения размеров Image проверь эти поля отладчиком. Они точно изменились? Может там autosize стоит...

[Serg76]

RXL, autosize не стоит

[Serg76]

  Нашел решение на другом форуме

Код:

  Image1->Width+=50;
  Image1->Height+=50;

  Image1->Picture->Bitmap->Height+=50;
  Image1->Picture->Bitmap->Width+=50;

  TRect R=Rect(0,0,Image1->Width,Image1->Height);
  Image1->Canvas->Brush->Color=clLime;
  Image1->Canvas->FillRect(R);