Рисование при нажатой кнопке мыши

@aninil · Регистрация: 28.03.2013

Author24 — интернет-сервис помощи студентам

Delphi

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Canvas.MoveTo(X,Y);
 
  cod:=not cod;
 
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if cod then Canvas.LineTo(X,Y);
end;
 
procedure TForm1.ColorGrid1Change(Sender: TObject);
begin
Canvas.Pen.Color:= ColorGrid1.ForegroundColor;  
end;

Собрал рисовалку работает так нажимаю мышкой она рисует опять нажимаю мышкой выключается цвет. А как сделать так чтобы При нажатии только рисовалось?

@volvo · 29.03.2013, 16:27

В OnMouseDown выставляй cod := True, а в OnMouseUp сбрасывай его в False, тогда рисовать будет только при нажатой кнопке мыши.

@aninil · 29.03.2013, 16:38 **[ТС]**

Спасибо огроменное просто.

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	29.03.2013, 16:27	2
	В OnMouseDown выставляй cod := True, а в OnMouseUp сбрасывай его в False, тогда рисовать будет только при нажатой кнопке мыши. 1

@aninil 0 / 0 / 0 Регистрация: 28.03.2013 Сообщений: 9
	29.03.2013, 16:38 [ТС]	3
	Спасибо огроменное просто. 0