Как сделать чтобы делая клик по одному из секторов окружности он выделялся определённым цветом?

Posted by Chas under Delphi, Пост-обзор

Всем доброго времени суток! помогите плиз,есть рисунок две окружности одна в одной и каждая из окружностей разбита на сектора,как сделать чтобы делая клик по одному из секторов он выделялся определённым цветом?

NetSpace
перебрать все пиксели в данной области и перекрасить их. два цикла надо. т.к. у тебя область круглая, то лучше использовать полярные координаты: x =r *cos(alpha) и y=r*sin(alpha).
например, так:

for r= 2 to 4 do//2 - это внутренний радиус кольца, 4 - это внешний радиус кольца

begin

for alpha=0 to 180 do//угол альфа в градусах, но придётся переделать в радианы

begin

     x=r*cos(alpha*3.14/180);

     y=r*sin(alpha*3.14/180);//

     //и вот тут закрашиваешь свой пиксель с координатами (x,y)

end;

end;

угол alpha выбираешь сам, исходя из сектора.
вся окружность — от 0 до 360
верхняя половина — от 0 до 180
нижняя половина — от 180 до 360
левая половина — от 90 до 270
правая половина — от 270 до 360 и от 360 до 90.
и будет ещё одна проверка — на какой области твоя мышка. её координаты узнаешь так:

xmous=Mouse.CursorPos.X;

ymous=Mouse.CursorPos.Y;

а дальше только ставь условия и сравнивай: в нужном она у тебя месте или не там, где надо…

Пост написан при поддержке информационного сайта — Предприятия, Товары, Услуги Молдовы : ALL.BIZ: Молдова, детские товары в Молдове и не только.

тема на форуме

Похожие статьи

• Заливка замкнутого контура, как в Paint
• Рисование эллипса удержанием кнопки на любом месте TImage
• Вращение шестиугольника в Делфи 7
• Нарисовать стрелку на Делфи
• Закруглить углы image
• Нарисовать флаг Дании и Швейцарии
• Движение обьекта на заданный угол
• Соединить 2 edit линией
• Окружность на канве
• Крестики нолики исходник