|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Фантазии на тему ScreenSaver-а от ART
Собственно сабж. Написано без использования VCL, "голое" API. От идеи ART-а взята форма настройки ну и плывущий текст, а вот до выделения ключевых слов цветом и жирностью руки не дошли. Проверял в XP и 7-ке.
coderun.rar Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 15.10.2011 в 01:42. |
#2
|
|||
|
|||
Хм, интересно. В принципе, я против выделения слов. Ведь можно запихнуть туда какой угодно текст и читать, учить, да и делфийский код не всем по духу
|
#3
|
||||
|
||||
А у меня там в диалоге выбора файла имеется выбор по типам.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#4
|
||||
|
||||
Прикольно.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#5
|
||||
|
||||
По моему, это уже перебор.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#6
|
||||
|
||||
В чём собственно?
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#7
|
|||
|
|||
не работает превью. изображение на нем пропадает если окно было перекрыто. настройки не модально относительно окна свойств экрана.
|
#8
|
||||
|
||||
У меня таких проблем не было, есть претензии указывайте ОС.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#9
|
|||
|
|||
windows xp
|
#10
|
||||
|
||||
Код:
procedure RunSettings(AParent: HWND); begin DialogBoxParam(hInstance, MAKEINTRESOURCE(ID_SETTINGS), AParent, @SettingsDialogProc, ord(Settings.szFile <> '')); end; case Command of 'c', 'C' : RunSettings(StrToIntDef(Copy(ParamStr(1), 4, Length(ParamStr(1))), 0)); // Executing dialogue of the settings Код:
function StrToIntDef(const S: String; Default: Integer): Integer; var E: Integer; begin Val(S, Result, E); if E<>0 then Result:=Default; end; на 7 после перекрытия все ок, но картинка превью исчезает после перемещения окна свойств экрана за пределы экрана и обратно. Пишу программы за еду. __________________ |
#11
|
||||
|
||||
Да, я об этом не подумал. Там идёт разовое копирование в контекст, без обновления.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#12
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |