Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Вниз

Progress в Status Bar   Найти похожие ветки 

 
Wolverin   (2002-09-20 17:38) [0]

Как отобразить прогресс в статус баре?


 
Reindeer Moss Eater   (2002-09-20 17:53) [1]

procedure TProgressBar.PaintTo(DC: HDC; X, Y: Integer);


 
Link   (2002-09-20 18:02) [2]

ProgressBar1.StepBy(100);

Можно распределить по процедуре, написав несколько раз эту строчку, но сотню распределить по количеству строчек.
100 - это проценты от ProgressBar.


 
Алексей Ким   (2002-09-20 18:11) [3]

можно использовать панели тогда можно делать панель с другим цветом
как статус бар


 
Reindeer Moss Eater   (2002-09-20 18:52) [4]

Дополнение :
DC:=GetDC(StatusBar1.Handle);
SBar.Panels[N].Style:=psOwnerDraw;
X и У - координаты, что бы попасть на нужную Panels[N]


 
Link   (2002-09-20 19:08) [5]

Сори за ошибку...
Только щас заметил, что тут о StatusBar, а не о ProgressBar


> Reindeer Moss Eater

!)


 
Толик   (2002-09-20 19:43) [6]


with(ProgressBar1)do begin
Parent := StatusBar1;
Left := 0;
Top := 0;
end;

На мой взгляд это наиболее элегантное решений.


 
jones   (2002-09-23 09:43) [7]

в развитие последнего предложения можно сделать свой компонент и юзать его как захочеться. возьми базовый statusbar за основу и в его конструктор добавь
ControlStyle = ControlStyle << csAcceptsControls;
(енто в билдёре, на дельфях сам сориентируешься)
потом пожешь на statusbar кидать все что хочешь

__fastcall TMyStatusBar::TMyStatusBar(TComponent* Owner)
: TStatusBar(Owner)
{
ControlStyle = ControlStyle << csAcceptsControls;
}



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

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

Наверх





Память: 0.46 MB
Время: 0.013 c
14-8126
Anatoly Podgoretsky
2002-09-07 17:19
2002.10.03
День рождения у Андрея Юдина


1-7989
Melnyk
2002-09-20 14:53
2002.10.03
Как изменить имя логического диска


6-8100
BJValentine
2002-07-24 11:30
2002.10.03
Время домена.


8-8074
Arhangel
2002-05-27 20:02
2002.10.03
MSAgent


1-8044
Yuraz
2002-09-20 13:09
2002.10.03
Как прочитать формат TTF (шрифт)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский