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

Информатика. Программирование в Delphi
157
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;
8. Запустим приложение рис. 11.3.
Рис. 11.3
Окончательный вариант данного приложения приведен в листинге 11.1.
Комментарии удалены.