Цитата:
Сообщение от Bunvsem
Как в этом коде добавить минутную стрелку, скажите пожалуйста!
|
Так она у Вас рисуется! Вот только...
1. Для значений секунд и минут нужно ввести по паре значений — например, sec_old, sec_new, min_old, min_new, т.е. "старые" и "новые". Исходные значения "старых" минут и секунд взять нулевыми.
2. Цикл построить так:
а) Сосчитать (как это сделано у Вас) новые координаты ("_new") ОБЕИХ стрелок.
б) Нарисовать стрелки (линии).
в) Установить цвет, соответствующий цвету фона (белый).
Если значения УГЛОВ минут и секунд НЕ СОВПАДАЮТ (тут можно несколькими способами это проверять, например, введя раздельные координати Xs, Ys, Xm, Ym и поставив соответствующее условие), то нарисовать линию секунд БЕЛЫМ цветом, используя sec_old.
г) Присвоить СТАРЫМ секундам значения НОВЫХ (sec_old:=sec_new).
д) Если значение минут ИЗМЕНИЛОСЬ, т.е. min_new>min_old, то нарисовать линию минут БЕЛЫМ цветом с использованием min_old. Присвоить СТАРЫМ минутам значение НОВЫХ (min_old:=min_new).
д) Установить контрастный (черный) цвет.
ВСЁ!
P.S. К сожалению, Паскаля АВС не имею. Будь это Borland-графика, я бы Вам отладил программу.