готово, создайте два обьекта, timer1 и shape1
shape должен быть размерами 200*200
на таймере свойства:
Установлен: Да
Интервал (мс.): 100 можно и не сто, но не делайте слишком большое число, не стоит делать больше 500 мс.
Повторять: Да
на событие таймера код:
$t=localtime();
$m=new TControlCanvas(c("shape1"));
$m->clear();
$m->pen->width=3;
$m->moveTo(100,100);
$m->lineTo((round((80*(cos(deg2rad($t[1]*6+270))))+100)), (round((80*(sin(deg2rad($t[1]*6+270))))+100)));
$m->free();
$s=new TControlCanvas(c("shape1"));
$s->pen->width=2;
$s->moveTo(100,100);
$s->lineTo((round((100*(cos(deg2rad($t[0]*6+270))))+100)), (round((100*(sin(deg2rad($t[0]*6+270))))+100)));
$s->free();
$h=new TControlCanvas(c("shape1"));
$h->pen->width=5;
$h->moveTo(100,100);
$h->lineTo((round((60*(cos(deg2rad($t[2]*30+90))))+100)), (round((60*(sin(deg2rad($t[2]*30+90))))+100)));
$h->free();Добавлено (16.05.2012, 23:45)
---------------------------------------------
если кто не понял, я сделал графические часы