| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

полный экран

Гриха ©   (2005-08-18 02:36:00) 

Помогите, пожалуйста!
Подскажите, как можно написать алгоритм, который в фуллскрине выводил бы текущую дату и время (как, например, виндоузовский скринсейвер, но просто текст, без всяких вращений и смены цвета)?

ЗЫ: С полным экраном не общался ни разу, поэтому, если можно, поподробнее.

---

Гриха   (2005-08-18 03:53:00) [1]

Спасибо за совет...

---

Джо   (2005-08-18 02:51:00) [2]

Делаешь у формы
BorderStyle := bsNone;
WindowState := wsMaximized;
Вот тебе уже и "фулскрин".
Далее, текущую дату и время в формате TDateTime возвращает функция Now();
Перевод из TDateTime в string осуществляет функция DateTimeToStr(..). Нежиданно?
Едем дальше. У формы есть событие OnPain, вызываемое каждый раз при перерисовке формы. Также, у формы есть свойство Canvas типа (не упади) TCanvas.
Этого достаточно для "написания алгоритма"? ;)

---

Наверх