[@broveymimo]

Надоело мне ковыряться с VCL библиотеками и решил я попробовать что есть такое FireMonkey.

Для примерчика попробовал оживить вот такие вот часики.



Решил не заморачиваться с фигурным вырезанием стрелок, а просто удалил их в фотошопе. Потом вырезал сами часы из фона и сохранил их как png с прозрачным фоном.



Далее, создал новый проект FireMonkey Desctop Application



На форму кидаем объект TImage. Но у него не оказалось свойства Picture, как у аналогичного в VCL. Зато есть MultiResBitmap. Значит сюда и загрузим наш циферблат.

Далее, во вкладке Shapes находим объекты TRectangle.



Рисуем из них стрелки (часовую, минутную и секундную).
Для их позиционирования вместо привычных Top и Left используем проперти Position (x, y). Должно получиться что-то в этом роде:



Стрелки я для удобства переименовал в aHour, aMin, aSec.

Теперь для каждой стрелки в свойстве RotationAngle создаем TFloatAnimation. И выставляем для следующие проперти. Enabled=true; Loop=true; StartValue=0; StopValue=360. Duration для секундной стрелки 60, для минутной 3600, для часовой 86400.

Анимации я переименовал в anHour, anMin, anSec.

У меня получилась вот такая структура объектов на форме.



Не забываем указать центр вращения стрелок в пропертях RotationCenter x=0,5 y=0,98.

Пока не забыли, ставим проперти формы Transparency=true.

Наши часы готовы. Теперь необходимо выставить на них правильное время.

unsigned short wHour, wMin, wSec, wMSec;
	DecodeTime(Now(), wHour, wMin, wSec, wMSec);

	anSec->StartValue = wSec*360/60;
	anSec->StopValue = anSec->StartValue + 360;

	anMin->StartValue = wMin*360/60;
	anMin->StopValue = anMin->StartValue + 360;

	anHour->StartValue = wHour%12*360/12 + wMin*360/720;
	anHour->StopValue = anHour->StartValue + 360;

Так как вы делаем форму невидимой, то кнопки закрытия окна у нас тоже отсутсвуют. Я решил закрывать программу по двойному клику мышкой на часах. Соответственно в событии OnblClick прописал Close();

Также я решил чтобы мои часы распологались в правом верхнем углу. Соответственно в проперти формы Top я записал ноль, а в проперти Left нужно записать значение (ширина разрешения экрана минус ширина формы). Но вот незадача, так просто, как в VCL (Screen->Width) определить разрешение экрана не получится. Пришлось брать ширину экрана из структуры TSize.

Form1->Top = 0;
	TSize monSize = Screen->Size();
	Form1->Left = monSize.cx - Form1->Width;

В итоге получился вот такой код.



Ну и вот готовый пример.

http://yadi.sk/d/ali09zXENatPZ

ВирусТотал

[@MASTERMIND]

Ну че сказать молодец,часики работают верно .Единственно доведи их до уровня полноценного гаджета рабочего стола ,с управлением и сменой расположение и все.
кстати эти часики то простенькие но ведь можно нашлепать и красивый стимпанк и например вот такие Уверен будут скачивать многие для украшения рабочего стола.

[@broveymimo]

Мне было интересно просто попробовать возможности FMX. К сожалению особо много времени посвящать этому не могу (на эти часы я потратил пол часа), работаю в других направлениях. А так ради забавы выложил, может кто захочет - разовьет дальше.

[@broveymimo]

я сам не успеваю, только подумал опробовать FMX, как они уже Метрополис выложили, и поддержку Андроида, и iOS. Когда со всем этим разбираться?

[@broveymimo]

меня андроид интересует с точки работы в связке с промышленными контроллерами по протоколу Modbus.