ВНИМАНИЕ! ЕСЛИ У ВАС ПОЯВИЛАСЬ ОШИБКА ПРИ КОМПИЛЯЦИИ ПРОГРАММЫ, ТО ЭТО ЯВНО ОШИБКА В КОДЕ! (ПОСЛЕ КОПИРОВАНИЕ ТЕКСТА ИЗ ВЕБ И ВСТАВКОЙ ЕГО В РЕДАКТОР ПХП КОДА МОГУТ ПОЯВИТСЯ "?"!

ЕСЛИ ТАКОЕ СЛУЧИОСЬ, НАЖМИТЕ СЮДА!

 картинка (размер 300х300)
 Форма 1 (размер ШИРИНА349хВЫСОТА345)
 событие "создание"
global $canvas, $x0, $y0, $clearColor, $r, $k, $arrow;
c("Form1")->doubleBuffered = true;
c("image1")->h = c("image1")->w;
$canvas = new TControlCanvas( c("image1") );
$canvas->brush->color = $clearColor = c("Form1")->color;
$canvas->clear();
$x0 = round( c("image1")->w / 2);
$y0 = round( c("image1")->h / 2);
$r = c("image1")->w/2-20;
$k = 16;
dial();
arrows();
function dial(){
         global $x0, $y0, $r, $k;
         $canvas = new TControlCanvas( c("image1") );
         for($i=1; $i<=60; $i++){
          $a = deg2rad( $i*6 - 90);
          $x1 = $x0 + round( cos($a) * ($r-$k));
          $y1 = $x0 + round( sin($a) * ($r-$k));
          if( !fmod($i,5)){
           $x2 = $x0 + round( cos($a) * ($r + (strlen($i/5)-1)*$canvas->textWidth($i/5)/$k));
           $y2 = $x0 + round( sin($a) * ($r + (strlen($i/5)-1)*$canvas->textHeight($i/5)/$k));
           $canvas->textOut($x2 - $canvas->textWidth($i/5)/2,$y2 - $canvas->textHeight($i/5)/2,$i/5);//сотрите эту строчку, что-бы убрать текст цифры (цифры рядом с точками)
           $canvas->ellipse($x1-2,$y1-2,$x1+4,$y1+4);//$x1+тут размер шарика цифры, $y1+4тут размер шарика цифры
          }else{
           $canvas->ellipse($x1-1,$y1-1,$x1+2,$y1+2);//$x1+тут размер шарика цифры, $y1+тут размер шарика цифры
          }
         }
}
function arrows(){
        global $clearColor, $arrow;
        arrow("H", 32, 3, $clearColor, $arrow[0]);
        arrow("i", 16, 2, $clearColor, $arrow[1]);
        arrow("s", 8,  1, $clearColor, $arrow[2]);
        arrow("H", 32, 3, clBlack);//часовая стрелка
        arrow("i", 16, 2, clBlack);//минутная стрелка
        arrow("s", 8,  1, clRed);//секундная стрелка
        c("Form1")->caption = "Часы - ".date("H:i:s");//задаём заголовок приложения - часы - а потом время
        $arrow[0] = date("H"); $arrow[1] = date("i"); $arrow[2] = date("s");
}
function arrow($d="s", $t=0, $s=1, $c=clBlack, $n=0){
        global $canvas, $x0, $y0, $r, $k;
        if($n){$date = $n;}else{$date = date($d);}
        $a = deg2rad($date*6 - 90);
        $x1 = $x0 + round( cos($a) * ($r-$t-$k));
        $y2 = $x0 + round( sin($a) * ($r-$t-$k));
        $canvas->pen->color = $c;
        $canvas->pen->width = $s;
        $canvas->moveTo($x0, $y0);
        $canvas->lineTo($x1, $y2);
}
 таймер 1
  установлен ДА
  интервал 500
  повторять ДА
 событие "таймер"
arrows();

Конструктор сайтов - uCoz