Стр. 160 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
160
Canvas.Ellipse(x-1,y-1,x+1,y+1);
a:=a-6;
end;
Canvas.Pen.Color:=clBlack;
Canvas.Pen.Width:=3;
Vector(x0,y0,ahr,r-30);
Vector(x0,y0,amin,r-10);
Vector(x0,y0,asec,r-7);
t:=Now;
ahr:=90-HourOf(t)*30-(MinuteOf(t) div 12)*6;
amin:=90-MinuteOf(t)*6;
asec:=90-SecondOf(t)*6;
Canvas.Pen.Width:=3;
Canvas.Pen.Color:=clGreen;
Vector(x0,y0,ahr,r-30);
Canvas.Pen.Width:=2;
Vector(x0,y0,amin,r-10);
Canvas.Pen.Width:=1;
Canvas.Pen.Color:=clLime;
Vector(x0,y0,asec,r-7);
Form1.Caption:='Время: '+FormatDateTime('hh:mm:ss',t);
end;
end.
Пример 11.2 (выполнить самостоятельно)
Разработать приложение, которое содержит перемещающуюся по по-
верхности формы кнопку. При каждом новом перемещении цвет кнопки и
стиль надписи на ней изменяются.