Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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



Страницы: 1 вся ветка

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

Наверх





Память: 0.46 MB
Время: 0.004 c
3-57037
Malyatkoya
2002-01-21 21:46
2002.02.18
IBQuery + Edit


3-56995
vopros
2002-01-22 15:03
2002.02.18
Опять paradox. опять индексы...Теперь пишет Index is ReadOnly


1-57122
fag2000@ok.ru
2002-02-01 14:39
2002.02.18
А где можно найти статьи, примеры разработки COM+ серверов и клиентов?


1-57043
SAlex
2002-02-04 11:57
2002.02.18
вставка таблицы в RichEdit


4-57246
YUS
2001-12-12 20:43
2002.02.18
Нужна помощь





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский