Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите положить ProgressBar в StatusBar.Panels [D6, Win95/98]

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

KS (2002-02-02 04:18:00) [1]
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

Loxly (2002-02-01 23:50:00) [2]
Существует библиотека Raize. С помощью нее можно сделать самые разные status bar"ы.

Фэ (2002-02-01 23:29:00) [3]
Пример
ftp://ftp.pi8plus.ru/pub/download/math/images/togray/

Фэ (2002-02-01 23:28:00) [4]
Речь о design-time идет.
См. мой ответ (01.02.02 23:07)
Визуально размещаешь где хочешь.

Amit (2002-02-01 23:18:00) [5]
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:07:00) [6]
Создать новый 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;

Набережных С. (2002-02-01 20:29:00) [7]
Посмотри почту.

McSimm (2002-02-01 20:03:00) [8]
ClientWidth не подойдет - надо на конкретную Panel[X] положить

Kirill (2002-02-01 18:52:00) [9]
pb:=TProgressBar.Create(StatusBar1); pb.Parent:=StatusBar1; pb.BoundsRect:=Rect(0,0,StatusBar1.ClientWidth,ClientHeight);//или что-то типа того

IronHawk (2002-02-01 18:47:00) [10]
ДЕТО В ХЕЛПЕ ДЕЛФОВОМ ПО ПРОГРЕССБАРУ ВИДЕЛ КАКРАЗ
ТВОЙ СЛУЧАЙ !

McSimm (2002-02-01 18:45:00) [11]
Разместить 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

yaJohn (2002-02-01 18:23:00) [12]
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/

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »