1С++ users forum - бегущий курсорчик. мелочь, а приятно...

(UTC)

1С++ users forum › 1С++ и прочие расширения v7 › Репозиторий › бегущий курсорчик. мелочь, а приятно...

(Группа Модераторов: 1c++ moderator)

‹ Предыдущая Тема | Следующая Тема ›

Страницы: 1

Отправить

Печать

бегущий курсорчик. мелочь, а приятно... (число прочтений - 3786 )

trdm 1c++ power user qt1l developer 1c++ moderator Отсутствует Сообщений: 2343 Местоположение: г. Ростов-на-Дону Зарегистрирован: 19. Мая 2006 Пол:	бегущий курсорчик. мелочь, а приятно... 25. Сентября 2008 :: 11:20	Печать
	бегущий курсорчик. маленька процедуринка, которая оживит непонятно когда заканчивающийся цыкл... мелочь, а приятно... Боян конечно А куда без них...

	___________________001.ert ( 60 KB \| Загрузки )
	Skype/VoIP ICQ IP записан

trdm 1c++ power user qt1l developer 1c++ moderator Отсутствует Сообщений: 2343 Местоположение: г. Ростов-на-Дону Зарегистрирован: 19. Мая 2006 Пол:	Re: бегущий курсорчик. мелочь, а приятно... Ответ #1 - 01. Октября 2008 :: 10:14	Печать
	Чиста принцып фиговинки Код // глБегущийКурсор( псСохрСтрока, псДопТекст = "") © trdm 2008 //вВремСтрока = ""; СЦ = 0; //Для СЦ = 1 По 600000 Цикл // глБегущийКурсор( вВремСтрока, " обрабатываем "); //КонецЦикла; Процедура глБегущийКурсор( псСохрСтрока, псДопТекст = "") Экспорт вСмещение = Число(Прав(_GetPerformanceCounter(),4))/30%20+1; вСимволы = "----------=========="; // длина 20 вДобавить = 20 - вСмещение; вСимволыСмещ= прав(вСимволы,вСмещение); вСимволыДоб = Лев(вСимволы,вДобавить); вСимволыРез = вСимволыСмещ + вСимволыДоб; Если псСохрСтрока <> вСимволыРез Тогда Состояние(вСимволыРез+" "+псДопТекст ); КонецЕсли; псСохрСтрока = вСимволыРез; КонецПроцедуры // глБегущийКурсор()

	bc.JPG ( 10 KB \| Загрузки )
	Skype/VoIP ICQ IP записан

JohnyDeath 1c++ power user 1c++ donor Отсутствует Сообщений: 3050 Местоположение: Волгоград Зарегистрирован: 19. Мая 2006 Пол:	Re: бегущий курсорчик. мелочь, а приятно... Ответ #2 - 01. Октября 2008 :: 10:38	Печать
	Отлично!


	IP записан

trdm 1c++ power user qt1l developer 1c++ moderator Отсутствует Сообщений: 2343 Местоположение: г. Ростов-на-Дону Зарегистрирован: 19. Мая 2006 Пол:	Re: бегущий курсорчик. мелочь, а приятно... Ответ #3 - 01. Октября 2008 :: 10:42	Печать
	JohnyDeath писал(а) 01. Октября 2008 :: 10:38: Отлично! Сенк!


	Skype/VoIP ICQ IP записан

Kapet Senior Member Отсутствует Ламер - вансист Сообщений: 262 Местоположение: Ukraine, Kyiv Зарегистрирован: 27. Декабря 2006 Пол:	Re: бегущий курсорчик. мелочь, а приятно... Ответ #4 - 01. Октября 2008 :: 13:24	Печать
	А насколько чувствительно эта фиговинка дополнительно грузит систему?


	ICQ IP записан

trdm 1c++ power user qt1l developer 1c++ moderator Отсутствует Сообщений: 2343 Местоположение: г. Ростов-на-Дону Зарегистрирован: 19. Мая 2006 Пол:	Re: бегущий курсорчик. мелочь, а приятно... Ответ #5 - 01. Октября 2008 :: 13:29	Печать
	Kapet писал(а) 01. Октября 2008 :: 13:24: А насколько чувствительно эта фиговинка дополнительно грузит систему? как заюзаешь, так и пригрузит.. я пользуюсь так: Код Пока вЗапрос.Группировка(1) = 1 Цикл глБегущийКурсор(вСост," обр что-то..");


	Skype/VoIP ICQ IP записан

Страницы: 1

Отправить

Печать

‹ Предыдущая Тема | Следующая Тема ›

« Главная ‹ Раздел Вверх