Здравствуйте, 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:[email protected] _______________________________________________ Lazarus mailing list [email protected] http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
