Re: [Lazarus] Placing a TProgressBar into a TStatusBar
Здравствуйте, 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 -- С уважением, Cobalt747 mailto:cobalt...@mail.ru ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Placing a TProgressBar into a TStatusBar
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 cobalt...@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...@gmail.com http://michem.disat.unimib.it/chm/ ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Placing a TProgressBar into a TStatusBar
Здравствуйте, 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: 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; -- С уважением, Cobalt747 mailto:cobalt...@mail.ru ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] Placing a TProgressBar into a TStatusBar
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 ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Placing a TProgressBar into a TStatusBar
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. On Tue, Mar 10, 2009 at 11:01 AM, Andrea Mauri andrea.mauri...@gmail.comwrote: 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 ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Placing a TProgressBar into a TStatusBar
Anchoring it on the statusbar might work? 2009/3/10 matt shaffer dazappa.m...@gmail.com 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. On Tue, Mar 10, 2009 at 11:01 AM, Andrea Mauri andrea.mauri...@gmail.comwrote: 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 ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus -- o__ ,_./ _ (_)_\(_)___ ...speed is good ___ I believe five out of four people have a problem with fractions. ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] Placing a TProgressBar into a TStatusBar
Also... What I've done before... Just add the text... 0% 5% 15% 95% 100% Not so nice but effective. On Tue, Mar 10, 2009 at 10:40 PM, Reenen Laurie rlau...@gmail.com wrote: Anchoring it on the statusbar might work? 2009/3/10 matt shaffer dazappa.m...@gmail.com 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. On Tue, Mar 10, 2009 at 11:01 AM, Andrea Mauri andrea.mauri...@gmail.com wrote: 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 ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus -- o__ ,_./ _ (_)_\(_)___ ...speed is good ___ I believe five out of four people have a problem with fractions. -- o__ ,_./ _ (_)_\(_)___ ...speed is good ___ I believe five out of four people have a problem with fractions. ___ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus