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

Вниз

Как ProgressBar поместить на одну из панелей StatusBar?   Найти похожие ветки 

 
AlexanderMS ©   (2007-01-13 15:11) [0]

Видел в одной программе, а самому сделать слабо" :).


 
TUser ©   (2007-01-13 15:51) [1]

> Видел в одной программе

internet explorer ?

Можно на OnDrawPanel повесить отрисовку прогресса на Canvas"е, благо он у статусбара есть.


 
Плохиш ©   (2007-01-13 15:57) [2]


> Как ProgressBar поместить на одну из панелей StatusBar?

Разве он на статусбар в дизайнере  не бросается?


 
begin...end ©   (2007-01-13 16:44) [3]

with ProgressBar do
begin
 Parent := StatusBar;
 SetBounds(...);
end


 
AlexanderMS ©   (2007-01-13 17:28) [4]

Спасибо, сейчас попробую.


 
Kolan ©   (2007-01-13 18:48) [5]

function TMainForm.CreateProgresBar: TProgressBar;
begin
 Result := TProgressBar.Create(Self);
 with Result do begin
   Parent:= StatusBar;
   Position:= 0;
   Top:= 2;
   Left:= StatusBar.Panels[0].Width + StatusBar.Panels[1].Width + 50;
   Height:= StatusBar.Height - Top;
   Width:= StatusBar.Panels[2].Width - 51;
 end;
 Result.Visible:= True;
end;


Аналог [3]


 
Джо ©   (2007-01-13 18:51) [6]

> [5] Kolan ©   (13.01.07 18:48)
> Аналог [3]

Какой же это «аналого»? Это, собственно, то же самое :) Разве что с SetBounds лучше будет.


 
Kolan ©   (2007-01-13 19:05) [7]

«[6] Джо ©   (13.01.07 18:51)
> [5] Kolan ©   (13.01.07 18:48)
> Аналог [3]

Какой же это «аналого»? Это, собственно, то же самое :)
Разве что с SetBounds лучше будет.»

Дык я думал что слово «Аналог» и означает тожесамое&#133


 
AlexanderMS ©   (2007-01-13 19:18) [8]

Конечно, получилось.
А теперь как можно поверх этого ProgressBar"a вывести текст в этой же панели StatusBar"a?



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

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

Наверх




Память: 0.46 MB
Время: 0.042 c
15-1167579985
DevilDevil
2006-12-31 18:46
2007.01.28
Отдельное поздравление DimeBr!


15-1167857316
rolex
2007-01-03 23:48
2007.01.28
NEC 1100


2-1168335875
danger
2007-01-09 12:44
2007.01.28
Форма и обработка сообщений


2-1168499525
Roma L
2007-01-11 10:12
2007.01.28
SQL Server


2-1168509060
Вася
2007-01-11 12:51
2007.01.28
Запуск с параметрами.





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