VPF::рисование фигуры в событии OnMouseDown

VanHelsing

Дата 9.9.2008, 18:57 (ссылка)

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

Загрузка ...

ХОЧУ ВСЕ ЗНАТЬ!!!

Награды: 1

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

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

Проблема в следующем: допустим рисую на канве Image прямоугольник, по нажатию клавиши мыши(левой) делаю следющее

Код


procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if (Button=mbLeft) then
 begin
  Image1.Canvas.MoveTo(X,Y);//получение начальных координат фигуры
  x1:=X;
  y1:=Y;
  ris:=true; //если true, в данный момент мы что-то рисуем
 end;
end;

когда клавишу отпускаю рисую окончательно фигуру

Код


procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Canvas.Rectangle(x1,y1,X,Y); //рисование прямоугольника
   ris:=false;
end;

А как рисовать компонент когда мышью ведешь при нажатой клавиши. Делаю

Код


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ris=true) then
    Image1.Canvas.LineTo(X,Y);//получение конечных координат фигуры 
  end;
end;

Когда так делашь при увеличении фигуры все норм но когда ведешь на уменьшение получается куча прямоугольников. Подскажите как правильно сделать?
Решение вижу в ледующем6 мне при рисовании надо рисовать фигуру с предыдущими значениями X,Y, а потом рисовать фигуру с нынешними координатами. Как получить предыдущие значения курсора в Delphi я не знаю.

Это сообщение отредактировал(а) VanHelsing - 10.9.2008, 17:10

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

Мой блог.
Specialist

VanHelsing

Дата 11.9.2008, 15:37 (ссылка)

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

Загрузка ...

ХОЧУ ВСЕ ЗНАТЬ!!!

Награды: 1

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

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

Решил проблему. Всего-то надо было одно свойство поменять:

Код


Image1.Canvas.Pen.Mode:=pmNotXor;

P.S. копал глубоко, а ответ на поверхности. smile

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

Мой блог.
Specialist

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