Помогите положить ProgressBar в StatusBar.Panels

← →
Злой_Гном (2002-02-01 18:12) [0]

Люди добрые, здравствуйте!!!! ПОМОГИТЕ, пожалуйста!!!!
Есть в дизайн тайме StatusBar с тремя панелями:-).
Как положить компонент ProgressBar в одну из панелей???
В дизайн тайме упорно ложиться не хочет :-). Заранее спасибо за ответ

← →
yaJohn (2002-02-01 18:23) [1]

Alex Ghost Library umeet eto.

Mogu otmilit". 300K v ishodnikah.

Ya segodnia eto uje dvajdi delal :)))) Mojet ee v kladovku?

I stoit shodit po ssilke http://delphi.mastak.ru/news/

← →
McSimm (2002-02-01 18:45) [2]

Разместить ProgressBar в левую панель:
ProgressBar.Parent := StatusBar; ProgressBar.Top := 2; ProgressBar.Left := StatusBar.Panels[0].Width + 2; ProgressBar.Height := StatusBar.Height - 4; ProgressBar.Width := StatusBar.Panels[1].Width - 4

← →
IronHawk (2002-02-01 18:47) [3]

ДЕТО В ХЕЛПЕ ДЕЛФОВОМ ПО ПРОГРЕССБАРУ ВИДЕЛ КАКРАЗ
ТВОЙ СЛУЧАЙ !

← →
Kirill (2002-02-01 18:52) [4]

pb:=TProgressBar.Create(StatusBar1); pb.Parent:=StatusBar1; pb.BoundsRect:=Rect(0,0,StatusBar1.ClientWidth,ClientHeight);//или что-то типа того

← →
McSimm (2002-02-01 20:03) [5]

ClientWidth не подойдет - надо на конкретную Panel[X] положить

← →
Набережных С. (2002-02-01 20:29) [6]

Посмотри почту.

← →
Фэ (2002-02-01 23:07) [7]

Создать новый StatusBar "принимающий" на себя компоненты.
и т.д.

..
type
TtsvStatusBar = class(TStatusBar)
public
constructor Create(AOwner: TComponent); override;
end;

implementation
uses Consts;

constructor TtsvStatusBar.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csAcceptsControls];
end;

← →
Amit (2002-02-01 23:18) [8]

var

pb: TProgressBar;

begin

....
pb:= TProgressBar.Create(self);
with pb do begin
Parent:= StatusBar1;
Position:= 30;
Top:= 2;
Left:= 0;
Height:= StatusBar1.Height - Top;
Width:= StatusBar1.Panels[0].Width - Left;
end; //with;
pb.Visible:= True;
....
end;

← →
Фэ (2002-02-01 23:28) [9]

Речь о design-time идет.
См. мой ответ (01.02.02 23:07)
Визуально размещаешь где хочешь.

← →
Фэ (2002-02-01 23:29) [10]

Пример
ftp://ftp.pi8plus.ru/pub/download/math/images/togray/

← →
Loxly (2002-02-01 23:50) [11]

Существует библиотека Raize. С помощью нее можно сделать самые разные status bar"ы.

← →
KS (2002-02-02 04:18) [12]

to: Злой_Гном (01.02.02 18:12)

В принципе можно в design-time расположить StatusBar,
Align после укладки с alBottom перебить на alNone
Anchors:
akLeft = True
akTop = False
akRight = True
akBottom = True

и на это дело уже лепить ProgressBar с Anchors:
akLeft = True или False, на Ваше усмотрение
akTop = False
akRight = True
akBottom = True

Помогите положить ProgressBar в StatusBar.Panels Найти похожие ветки