VPF::Обработка нажатия мыши и закрашивание

jDeuterium

Дата 10.1.2013, 12:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.3.2012

Репутация: нет
Всего: нет

Я рисую на canvas окружность и две линии, которые делят ее на 4 части, при нажатии на одну из частей необходимо ее закрасить, а все остальные оставить не закрашенными.
Заранее спасибо

Добавлено через 12 минут и 58 секунд
С этим я разобрался:

Код


procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Form1.Image1.Canvas.brush.color:=RGB(50, 205, 50);
Form1.Image1.Canvas.FloodFill(x, y,Image1.Canvas.Pixels[x,y], fssurface);
end;

Теперь другой вопрос, так как я делаю тест, то мне надо проверить ту ли я часть окружности выбрал.
Например вопрос в какой части окружности находится 45 градусов?
И если я выбрал правильно, то закрашиваем зеленым, а если не правильно, то красным

Присоединённый файл ( Кол-во скачиваний: 5 )

canvas.png 3,38 Kb

DarkProg

Дата 10.1.2013, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 1
Всего: 19

Самый простой способ - это интерпретировать окружность как квадрат. Квадрат ведь разбить на 4 части и вычислить что координаты входят в ту четвертинку что вы нажали не сложно ;)
И проверка на то что нажали внутри окружности.

Ну а правильнее это привязать параметрической уравнение окружности.
Параметрической уравнение

Знак меняете с равенства на меньше либо равно, только не ошибитесь с углом ;)

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

jDeuterium

Дата 10.1.2013, 13:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.3.2012

Репутация: нет
Всего: нет

Сделал намного проще

Код


procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (x>150) and (y<150) then
begin
Form1.Image1.Canvas.brush.color:=RGB(50, 205, 50);
Form1.Image1.Canvas.FloodFill(x, y,Image1.Canvas.Pixels[x,y], fssurface);
ShowMessage('Правильно!');
Form1.Image1.Enabled:=false;
end
else
begin
Form1.Image1.Canvas.brush.color:=RGB(255, 48, 48);
Form1.Image1.Canvas.FloodFill(x, y,Image1.Canvas.Pixels[x,y], fssurface);
ShowMessage('Не правильно!');
end;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »