Поворот стрелки как на часах

[Dozent]

Добрый день. Столкнулся с проблемой правильного отображения. есть картинка.

Которая должна вращаться по принципу часовой стрелки, но при изменении свойства RotationAnge происходит смещение  стрелки от своего центра вокруг которого она должна вращаться. Как правильно поворачивать стрелку?

[enatechno]

Задан RotationCenter?

В Вашем случае до выполнения RotationAngle нужно опустить по Y центр контрола, отображающего стрелку. Например так:

В run-time:
[контрол со стрелкой].RotationCenter.Y := 0.8;

или в design-time:

 

Значение 0.8 вычислено мной ориентировочно.
 

Изменено 21 ноября, 2015 пользователем enatechno

[AngryOwl]

Типа так )

SampleClock.zip

и никаких "сдвигов" и прочего... все просто ))

[GASCHE]

"uClock.pas" что-то в 10 "uses NamedImage" не могу найти. Не подскажите где он?

[AngryOwl]

Елки зеленые... Не подумал)

вот исправлено на стандартный TImage

SampleClock.zip

[AngryOwl]

вдогонку, кому интересно

SampleCPUUsage.zip

[Вячеслав]

Красота!

[AngryOwl]

Красота!

Спасибо! Развлекался как-то, давно. Было просто самому интересно - как такое сделать