[Lazarus] Control embedded in statusbar strange resizing behaviour

[Birger Jansen]

Hi all,

I encounter a strange behaviour with controls that are placed inside a statusbar. Take the following steps to reproduce:

 - create a new application with a form
 - add a statusbar
 - add a progressbar
 - add this to the OnCreate event of the form: 

   procedure TForm1.FormCreate(Sender: TObject);
   begin
     ProgressBar1.Parent := StatusBar1;
   end; 

Run the application. The progressbar is drawn inside the statusbar. 

Enlarge the form in the vertical direction by dragging the bottom of the form (vert resizing) and see how the progressbar moves with the form. This is how it should be.

Now enlarge the form by dragging the bottom-right corner of the form (hor + vert resizing) and see how the progressbar moves out of focus.

Tested on FPC 2.5.1 and Lazarus SVN Revision 28566 on Windows 7 32 bit.

Is this a bug?

Kind regards,
  Birger Jansen