Как сделать значок загрузки?

@ProgSeg · Регистрация: 13.07.2015

Author24 — интернет-сервис помощи студентам

Есть процесс, который выполняется не очень быстро. Прикидывать конкретное время, сколько он будет происходить, и использовать progressBar я не хочу.
Вопрос: есть ли в делфи какой-нибудь компонент, который просто показывает что процесс выполняется, типа как в виндоусе при загрузки или что-то типа?

quwy · 22.10.2015, 18:47

TAnimate

@ProgSeg · 22.10.2015, 19:41 **[ТС]**

а он только avi может воспроизводить? А то тут такая проблема: я анимации только в gif нахожу. А переконвертированные gif он не хочет есть(

@qwertehok · 22.10.2015, 20:32

ProgSeg, для гифов я видел в JVCL компонент

@Sergio Leone · 22.10.2015, 21:28

ProgSeg, а банально курсор заменть на часики не прокатит?

пример из какой-то доки к Delphi:

Delphi

var 
 
  Save_Cursor:TCursor;
Begin
  Save_Cursor := Screen.Cursor;
 
  Screen.Cursor := crHourGlass;    { Show hourglass cursor }
 
  try
    { Do some lengthy operation }
  finally
    Screen.Cursor := Save_Cursor;  { Always restore to normal }
  end;
 
end;

~~Verevkin~~ · 22.10.2015, 21:53

Есть более другие вещи.

тыкни мышой в гифку.

@ProgSeg · 22.10.2015, 22:53 **[ТС]**

Sergio Leone, спасибо я че-то про это даже не подумал, это самый нормальный способ и без лишних понтов

@Sergio Leone · 22.10.2015, 23:02

Verevkin, да никто не спорит - есть и многое на свете, друг Горацио...

ProgSeg, пожалуйста. согласен.
Конечно, иногда просто и без лишних понтов - вполне себе подходящее решение.
А иногда и понты нужны (см. выше пост от Верёвкина!)

~~Verevkin~~ · 22.10.2015, 23:08

Сообщение от Sergio Leone

А иногда и понты нужны

да где понты-то? стандартная финтифлюшка.

@Sergio Leone · 23.10.2015, 07:53

Сообщение от Verevkin

да где понты-то? стандартная финтифлюшка.

Это гифки крутить - стандартная финтифлюшка?!

ладно, уболтал!

выкладывай пример - проект, который откомпилится на стандартной дельфи (включая антикварные)
без необходимости установки дополнительных компонент (типа Rx, Jedi и прочих GifImage/TAnimate).
Думаю, это будет полезно не только мне.

~~Verevkin~~ · 23.10.2015, 08:46

Сообщение от Sergio Leone

выкладывай пример - проект, который откомпилится на стандартной дельфи (включая антикварные)
без необходимости установки дополнительных компонент (типа Rx, Jedi и прочих GifImage/TAnimate).
Думаю, это будет полезно не только мне.

Ты шутишь? Это стандартный компонент RAD XE10 Seattle, расположенный на вкладке "Windows 10". Имя класса: TActiviyIndicator.

Кому надо - попробуйте портировать на более старые версии delphi~~, чикатилы~~.

@texnix · 23.10.2015, 10:11

Verevkin, а что, уже есть XE10 ? пипец, я думал только XE8 в этом году выпустили.

~~Verevkin~~ · 23.10.2015, 10:14

Сообщение от texnix

а что, уже есть XE10 ?

Конечно нету, ты чо?! Я скриншот в фотошопе из Delphi 7 сделал!

Сообщение от texnix

я думал только XE8 в этом году выпустили.

так оно и есть. В начале года.

Похоже, у тебя там какой-то другой интернет. Ты на Марсе живёшь или на Сатурне?

@texnix · 23.10.2015, 10:23

Verevkin, а XE9 был? А то на офсайте только 10й. Или как с виндой, 9ку пропустили?

~~Verevkin~~ · 23.10.2015, 10:23

Сообщение от texnix

Или как с виндой, 9ку пропустили?

да.

@texnix · 23.10.2015, 10:27

Verevkin, Я на сайт ембаркадеро заходил только в начале года, когда думал обновить лицензию 7й версии на XE7, но мне отказали, хотя там была надпись "обновляем любые версии за 70к" Сейчас сморю, чтобы получить 10ю - мне пришлось бы 70к с 7 до XE7, +70к XE7-XE8, +70к XE8-XE10, вышла бы цена новой лицензии на XE10, и это всё в пределах года.

~~Verevkin~~ · 23.10.2015, 10:30

И чо?

@texnix 19 / 19 / 12 Регистрация: 09.12.2014 Сообщений: 250
	23.10.2015, 10:11	12
	Verevkin, а что, уже есть XE10 ? пипец, я думал только XE8 в этом году выпустили. 0

@texnix 19 / 19 / 12 Регистрация: 09.12.2014 Сообщений: 250
	23.10.2015, 10:27	16
	Verevkin, Я на сайт ембаркадеро заходил только в начале года, когда думал обновить лицензию 7й версии на XE7, но мне отказали, хотя там была надпись "обновляем любые версии за 70к" Сейчас сморю, чтобы получить 10ю - мне пришлось бы 70к с 7 до XE7, +70к XE7-XE8, +70к XE8-XE10, вышла бы цена новой лицензии на XE10, и это всё в пределах года. 0

~~Verevkin~~ Заблокирован
	23.10.2015, 10:30	17
	И чо? 0

@ProgSeg 4 / 4 / 0 Регистрация: 13.07.2015 Сообщений: 128
		1
	Как сделать значок загрузки? 22.10.2015, 18:45. Показов 2495. Ответов 16 Метки нет (Все метки) Есть процесс, который выполняется не очень быстро. Прикидывать конкретное время, сколько он будет происходить, и использовать progressBar я не хочу. Вопрос: есть ли в делфи какой-нибудь компонент, который просто показывает что процесс выполняется, типа как в виндоусе при загрузки или что-то типа? 0

quwy Native x86 5514 / 3273 / 934 Регистрация: 13.02.2013 Сообщений: 10,423
	22.10.2015, 18:47	2
	TAnimate 1

@ProgSeg 4 / 4 / 0 Регистрация: 13.07.2015 Сообщений: 128
	22.10.2015, 19:41 [ТС]	3
	а он только avi может воспроизводить? А то тут такая проблема: я анимации только в gif нахожу. А переконвертированные gif он не хочет есть( 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	22.10.2015, 20:32	4
	ProgSeg, для гифов я видел в JVCL компонент 0

~~Verevkin~~ Заблокирован
	22.10.2015, 21:53	6
	Есть более другие вещи. тыкни мышой в гифку. 0

@ProgSeg 4 / 4 / 0 Регистрация: 13.07.2015 Сообщений: 128
	22.10.2015, 22:53 [ТС]	7
	Sergio Leone, спасибо я че-то про это даже не подумал, это самый нормальный способ и без лишних понтов 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	22.10.2015, 23:02	8
	Verevkin, да никто не спорит - есть и многое на свете, друг Горацио... ProgSeg, пожалуйста. согласен. Конечно, иногда просто и без лишних понтов - вполне себе подходящее решение. А иногда и понты нужны (см. выше пост от Верёвкина!) 0

~~Verevkin~~ Заблокирован
	22.10.2015, 23:08	9
	Сообщение от Sergio Leone А иногда и понты нужны да где понты-то? стандартная финтифлюшка. 1

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	23.10.2015, 07:53	10
	Сообщение от Verevkin да где понты-то? стандартная финтифлюшка. Это гифки крутить - стандартная финтифлюшка?! ладно, уболтал! выкладывай пример - проект, который откомпилится на стандартной дельфи (включая антикварные) без необходимости установки дополнительных компонент (типа Rx, Jedi и прочих GifImage/TAnimate). Думаю, это будет полезно не только мне. 0

~~Verevkin~~ Заблокирован
	23.10.2015, 10:14	13
	Сообщение от texnix а что, уже есть XE10 ? Конечно нету, ты чо?! Я скриншот в фотошопе из Delphi 7 сделал! Сообщение от texnix я думал только XE8 в этом году выпустили. так оно и есть. В начале года. Похоже, у тебя там какой-то другой интернет. Ты на Марсе живёшь или на Сатурне? 0

@texnix 19 / 19 / 12 Регистрация: 09.12.2014 Сообщений: 250
	23.10.2015, 10:23	14
	Verevkin, а XE9 был? А то на офсайте только 10й. Или как с виндой, 9ку пропустили? 0

~~Verevkin~~ Заблокирован
	23.10.2015, 10:23	15
	Сообщение от texnix Или как с виндой, 9ку пропустили? да. 0

Как сделать значок загрузки?

Решение