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

2010/12/8 Birger Jansen :

Maybe. See also http://bugs.freepascal.org/view.php?id=15675

Vincent

Maybe. See also http://bugs.freepascal.org/view.php?id=15675 Vincent

It could be related. The solution that is proposed in that report only makes it worse: the progressbar is not visible at all after adding ProgressBar1.Anchors := [];.

Birger