Dear all,
anyone can suggest me a way in order to place a TProgressBar into a TStatusBar?
I found some tutorials but they are just for Delphi and Win. Thanks,
Andrea

I'm going to give you a possibility but it will probably not be the best way. I have laz 9.26.3; and the status bar has a z order. This means, you can set the progress bar's z order to top and it should be able to be moved on top of the status bar. Is this considered a bug? I don't know. Doing it this way may also require you to do a bit more work, but it's the only way I can think of.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.lazarus.freepascal.org/pipermail/lazarus/attachments/20090310/6c87c6f2/attachment.html

Anchoring it "on" the statusbar might work?

2009/3/10 matt shaffer

Also... What I've done before...

Just add the text...
0%
5%
15%
95%
100%

Not so "nice" but effective.

????????????, Andrea.

Try this:

procedure TForm1.FormCreate(Sender: TObject);
var
   ProgressBar1: TProgressBar;
begin
     ProgressBar1:= TProgressBar.Create(StatusBar1);
     with ProgressBar1 do
     begin
       Parent := StatusBar1;
       Left := 50;
       Visible:= true;
       Height:=15;
       Width:=50;
       Max:=100;
       Position:=20;
     end;
end;

?? ?????? 10 ????? 2009 ?., 19:01:27:

Thanks, it works.
Just the Left property seems to have no effect, the ProgressBar is placed on the left corner ot the StatusBar1, like having Left:= 0.

There's a way to associate a ProgressBar with a TStatusPanel? I tried using this code, but nothing happens:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  if Panel = StatusBar.Panels[1] then
  with ProgressBar1 do
  begin
    Top := Rect.Top;
    Left := Rect.Left;
    Width := Rect.Right - Rect.Left - 5;
    Height := Rect.Bottom - Rect.Top;
  end;
end;

Regards,
Andrea

ha scritto:

????????????, Andrea.

I think, now it is no way to associate some control with TCollectionItem-descendant like TStatusPanel

I make it with OnResize event by updating it's coordinates.

?? ?????? 14 ????? 2009 ?., 0:02:36: