/*
BoundsRect example
This code resizes the active control to twice as wide and half as high:
*/ 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TRect MyRect;
  MyRect = ActiveControl->BoundsRect;
  MyRect.Right = MyRect.Left + 2 * (MyRect.Right - MyRect.Left);
  MyRect.Bottom = MyRect.Top + (MyRect.Bottom - MyRect.Top) / 2;
  ActiveControl->BoundsRect = MyRect;
} 
