Как сделать быстрее?

← →
Knight (2004-01-21 14:02) [0]

Решил набросать по-быстрому себе хранитель экрана, чтоб не просто чёрный был, а то иногда не понятно включен комп или нет, а чтобы по экрану пробегала белая полоска, но т.к. с анимацией сталкиваюсь редко, то чё-то у меня это дело очень тупит...
По таймеру вызываю:
Pen.Color:=clBlack; MoveTo(0,Y); LineTo(Width,Y); Inc(Y); if Y>Height then Y:=0; Pen.Color:=clGray; MoveTo(0,Y); LineTo(Width,Y);
Задержка минимальная. Есть более быстрые способы?

← →
Начинающий веб-дизайнер (2004-01-21 15:11) [1]

По таймеру быстрее не получится, у него минимальный интервал около 55мс. Попробуй "перескакивать" через несколько пикселов, может устроит.

with canvas do begin
Pen.Width:= 5;
Pen.Color:=0;
MoveTo(0,Y);
LineTo(Width,Y);
if Y>Height then Y:=0;
Y:= Y + 5;
Pen.Color:=$888888;
MoveTo(0,Y);
LineTo(Width,Y);
end;

← →
_none_ (2004-01-21 15:20) [2]

а нужны ли хранители экрана? народ ведь переходит на lcd-мониторы...
смешно, когда видишь в описании мобилы: "N screensaver-ов"

← →
TUser (2004-01-21 15:36) [3]

Пока еще нужны. Да и попадаются иногда прикольные штуки.

← →
_none_ (2004-01-21 15:43) [4]

Knight application.onidle

← →
Knight (2004-01-21 16:01) [5]

> _none_ © (21.01.04 15:20) [2]
> народ ведь переходит на lcd-мониторы...
Вещь хорошая, главное места мало занимает, мне б в самый раз, но увы... мечты... мечты... может через пару лет.

> TUser © (21.01.04 15:36) [3]
> Пока еще нужны. Да и попадаются иногда прикольные штуки.

Тут недавно притащили на работу забавный "хранитель" (может видели) в виде часов ОРТ, т.е. облака, и огромные статичные белые цифры... руки бы поотрывать тем кто это сделал... :)

← →
Knight (2004-01-21 22:40) [6]

Чё-то подумал... и решил выставить исходник, может пригодится кому. Посмотрите, стоит его в кладовку закидывать или нет?

http://solvichegodsk.narod.ru/BlankSS.rar

От советов тоже не откажусь...

Кстати, если будете компилировать, то не теряйте exe-файл, он автоматом переименовывается в scr :)

← →
Knight (2004-01-22 14:12) [7]

Никто не пробовал?

← →
Knight (2004-01-22 14:14) [8]

Размер маленький WinAPI... чуть больше 30кб... :)

← →
Начинающий веб-дизайнер (2004-01-22 15:46) [9]

Хороший пример скринсейвера, мне понравился - есть всё что нужно и ничего лишнего. Заметил недоработку - по щелчку правой кнопкой мыши на на файле SCR не различает в выборе Configure. Там передаётся параметр /s в нижнем регистре, надо при проверке игнорировать регистр. А зачем из программы менять себе расширение, есть же Target file extension в опциях проекта?

← →
RealRascal (2004-01-22 16:50) [10]

вместо тимера:можно паузу с пом sleep(ms) выдерживать.

← →
Knight (2004-01-22 18:20) [11]

Начинающий веб-дизайнер © (22.01.04 15:46) [9]
> Там передаётся параметр /s в нижнем регистре
А в программе делается UpCase...

> А зачем из программы менять себе расширение, есть же Target
> file extension в опциях проекта?
Я вот тоже думал, что должно такое быть, поискал, не нашёл, а на этот пункт даже внимания не обратил... как сказал АСП "Мы все тупили по-немного, когда-нибудь и где-нибудь..." :)

> RealRascal © (22.01.04 16:50) [10]
> вместо тимера:можно паузу с пом sleep(ms) выдерживать.
А вот тимера я там точно не делал... хотя сперва пробовал, но потом отказался.

← →
sniknik (2004-01-22 19:25) [12]

> Размер маленький WinAPI... чуть больше 30кб... :)
47кб
легко можно сделать ~ 19кб, выкинь модуль SysUtils (одну процедуру только переписать придется StrToInt) или даже 18кб (убрать {$R *.RES} ну кто их в в скринсервере видит?) или уложится в 10,5кб (использовать замены модуля системс из Kol)
высылаю проект в "обратку", убедись работает, несмотря на "порезанный" размер.

← →
Knight (2004-01-22 19:30) [13]

Понял почему не выводится при вызове конфига из попапа... оказывается там не используется никакого параметра, а при прямом запуске автоматом подставляется /S как в "Просмотре" в следующем варианте всё будет на своих местах :)

>> sniknik © (22.01.04 19:25) [12]
Получил, посмотрю.

← →
Knight (2004-01-22 19:51) [14]

Всё-таки без res как-то не так... иконку-то хоцеца... :)
А вообще, спасибо, но размер всё-равно 22к.
Щас тут ещё небольшой наворот для выньНТ сделаю... и закину на ссылку новый вариант.

И всё-же стоит ЭТО "творение" поместить в кладовку? %)

← →
sniknik (2004-01-22 21:47) [15]

> А вообще, спасибо, но размер всё-равно 22к.
это у тебя, а тот который я тебе скомпиленный выслал, 11,5 кб (не заметил? я как знал что без нее тебе плохо будет :о))). это вместе с иконкой внутри (res), без нее будет на нее меньше ~1кб. т.е. 10,5.
про замены Kol мимо ушей пропустил?

> И всё-же стоит ЭТО "творение" поместить в кладовку? %)
дело хозяйское, если это вопрос о "достойности" то там есть и хуже ;о), и мое в том числе (хуже) ложил как ответ на вопрос, но смотрю не он один скачал ;о), значится польза комуто была.
и потом кладовка это временно (уже пару раз на моей памяти здесь она толи рушилась, толи ее сознательно чистили, так из многого что ложил может пара всего осталась). это чтобы не "давила" ответственность ;о)). ложи не бойся.

← →
Knight (2004-01-23 19:26) [16]

Обновил архив по ссылке... повторю:

http://solvichegodsk.narod.ru/BlankSS.rar

От наворота отказался... хотел сделать подмену, для Win2k и выше, зарисовки экрана на плавное его затемнение через изменение прозрачности формы, на такой площиди плавности нет и в помине, поэтому выглядит довольно неприятно... Но добавил сжимание окна при закрытии, чтобы яркий свет не так резко бил по глазам.

Шас, если мастаковский сервер снова в аут не уйдёт, выложу в кладовку :)

← →
Knight (2004-01-23 19:37) [17]

Выложил... :)))

Как сделать быстрее? Найти похожие ветки