[Lazarus] Placing a TProgressBar into a TStatusBar

[Andrea Mauri]

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

cobalt747 at mail.ru ha scritto:
> Здравствуйте, 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:
>
>   
>> 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
>>     

-- 
Dr. Andrea Mauri, PhD
Milano Chemometrics and QSAR Research Group
Department of Environmental Sciences
University of Milano-Bicocca 
P.zza della Scienza, 1
20126 Milano - Italy

Tel: ++39 02 64482801
mailto:andrea.mauri.75 at gmail.com
http://michem.disat.unimib.it/chm/