Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

Помогите положить 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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.032 c
3-56981           xmapa                 2002-01-23 14:09  2002.02.18  
Как использовать TIBDataSet.RefreshSQL?


4-57264           vovan1                2001-12-20 15:09  2002.02.18  
CopyFile_ in_Win95


1-57107           Lotus                 2002-02-02 13:53  2002.02.18  
about TMemo


4-57263           Renard                2001-12-20 18:17  2002.02.18  
список приложений которые находятся в system tray e


1-57073           Злой_Гном             2002-02-01 18:23  2002.02.18  
Все, про ProgressBar дотумкал :-)))