Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ProgressBar1, как с ним работать 
:(
    Опции темы
Плаха
Дата 23.11.2004, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 10.11.2004
Где: МО п. Киевский

Репутация: нет
Всего: нет
подскажите где можно найти документацию по работе с этим компонентом или дайте пример как с ним работать
--------------------
Принимай то что есть и устраивайся как хочеш
PM MAIL ICQ   Вверх
Satana
Дата 23.11.2004, 18:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
Плаха в хелпе блин smile


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Плаха
Дата 23.11.2004, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 10.11.2004
Где: МО п. Киевский

Репутация: нет
Всего: нет
Цитата(Satana @ 23.11.2004, 18:12)
Плаха в хелпе блин smile

проблема в том, что я в ангиском не селён. вот
--------------------
Принимай то что есть и устраивайся как хочеш
PM MAIL ICQ   Вверх
teRmit
Дата 23.11.2004, 18:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


забытый...
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.6.2004
Где: Санкт-Петербург

Репутация: нет
Всего: 9
а что тебе конкретно надо?

вот некоторые советы:
если хочешь чтобы прогресс отображался не квадратиками а сплошной линией ставь свойство
ProgressBar1.Smooth:=true;
управлять индикацией можно например так:
в цикле который что-то делает меняешь с нужной скоростью
ProgressBar1.Position:=i; (i - нужная позиция прогрессбара от ProgressBar1.Min до ProgressBar1.Max)

Код

for i:=0 to 100 do
 begin
    .......
    ProgressBar1.Position:=i;
 end;


Это сообщение отредактировал(а) cTePx - 23.11.2004, 18:43
--------------------
Жизнь не настолько длинна, чтобы можно было долго терпеть...
PM ICQ   Вверх
Плаха
Дата 23.11.2004, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 10.11.2004
Где: МО п. Киевский

Репутация: нет
Всего: нет
суть такога:
запущен цыкл(из текста убирам лишние значения). как к этому циклу привязать ProgressBar1.
--------------------
Принимай то что есть и устраивайся как хочеш
PM MAIL ICQ   Вверх
teRmit
Дата 24.11.2004, 09:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


забытый...
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.6.2004
Где: Санкт-Петербург

Репутация: нет
Всего: 9
ты приведи пример цикла
--------------------
Жизнь не настолько длинна, чтобы можно было долго терпеть...
PM ICQ   Вверх
Satana
Дата 24.11.2004, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
Плаха Ну в общем случае будет примерно так:
Код

for i:=1 to max do
begin
...
ProgressBar1.Position:=round((i/max)*100);
end;


Так у тебя будет заполняться прогресс бар в зависимости от того на какой стадии выполнения у тебя цыкл...


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Плаха
Дата 24.11.2004, 10:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 10.11.2004
Где: МО п. Киевский

Репутация: нет
Всего: нет
cTePx
Код

for m:=0 to n do
begin
s:= Memo_ListProxy.Lines[m];
i:= pos(':',s);
ip:= Copy( S,1,i-1);
Edit_DNSName.Text:= ip;  
Ping1.DnsLookup(Edit_DNSName.Text);
end;

--------------------
Принимай то что есть и устраивайся как хочеш
PM MAIL ICQ   Вверх
Akella
Дата 24.11.2004, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Код

pb1.position:=0;
pb1.max:=n
for m:=0 to n do
begin
s:= Memo_ListProxy.Lines[m];
i:= pos(':',s);
ip:= Copy( S,1,i-1);
Edit_DNSName.Text:= ip;  
Ping1.DnsLookup(Edit_DNSName.Text);
pb1.position:=n;
application.processmessages;//дает отработать системе очередь задач другим приложениям
                                               //в том числе и твоему, в том числе и обновление окон, и обно-
                                                //вление твоего pb1
end;
PM MAIL   Вверх
Satana
Дата 24.11.2004, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
dsergey Помойму pb1.position в данному случае нада не в n ставить а в (m/n*100) и округленное до целой части, просто чо получается на первой жеж итерации прогресс бар заполнится до максимума и все...


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Akella
Дата 25.11.2004, 09:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
да ошибочка вышла, но это мелочи

pb1.position:=0;
pb1.max:=m
for m:=0 to n do
begin
s:= Memo_ListProxy.Lines[m];
i:= pos(':',s);
ip:= Copy( S,1,i-1);
Edit_DNSName.Text:= ip;
Ping1.DnsLookup(Edit_DNSName.Text);
pb1.position:=m;
application.processmessages;//дает отработать системе очередь задач другим приложениям в том числе и твоему, в том числе и обновление окон, и обновление твоего pb1
end;
PM MAIL   Вверх
Плаха
Дата 25.11.2004, 09:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 10.11.2004
Где: МО п. Киевский

Репутация: нет
Всего: нет
Всем спасибо. Общими усилиям всетаки всё заработало как надо.
Как говориться : "с миру по нитки каждому рубаха"
итоговый код:
Код


pb1.position:=0;
pb1.max:=100
for m:=0 to n do
begin
s:= Memo_ListProxy.Lines[m];
i:= pos(':',s);
ip:= Copy( S,1,i-1);
Edit_DNSName.Text:= ip;  
Ping1.DnsLookup(Edit_DNSName.Text);
pb1.position:=round(m/n*100);
application.processmessages;//дает отработать системе очередь задач другим приложениям
                                              //в том числе и твоему, в том числе и обновление окон, и обно-
                                               //вление твоего pb1
end;


может кому пригодиться

Satana тебе отдельное спасибо
--------------------
Принимай то что есть и устраивайся как хочеш
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0803 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.