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

@Evgeny20 · Регистрация: 09.09.2017

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

Всем привет, как сделать так, чтобы рисование производилось в процедурах PicMouseDown и PicMouseMove по зажатию левой кнопки мыши, а не по определению координат курсора мыши с последующим рисованием. Что нужно изменить?Заранее большое спасибо.

Delphi

procedure TForm1.picMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
press:=true;
x0:=x;
y0:=y;
x2:=x;
y2:=y;
bmp.Canvas.Moveto(x,y);
c:=true;
 
if (LineButton.Down)or (RectButton.Down) or (EllipseButton.Down)then
begin
bmp.Canvas.Pen.Mode:=pmnotxor;
c:=false;
if not Press then exit;
press:=false;
bmp1.transparentcolor:=colordialog1.Color;
 
if ColorDelete.Down then
begin
bmp1.Transparent:=true;
bmp1.Canvas.CopyRect(Rect(0,0,bmp1.width,bmp1.height),bmp.Canvas,Rect(0,0,bmp.Width,bmp.Height));
with bmp.Canvas do
begin
pen.Mode:=pmcopy;pen.Color:=clwhite;
pen.Width:=4; lineto(x,y);
end;
bmp.Canvas.Draw(0,0,bmp1);
end;
 
if DeleteButton.Down then
bmp.Canvas.Pen.Color:=clwhite;
end;
 
if FloodFillButton.Down then
if Button = mbLeft then
begin
bmp.Canvas.Brush.Color:=ColorBox1.Selected;
bmp.Canvas.FloodFill(x,y,bmp.Canvas.Pixels[x,y],fsSurface);
end
else begin
  bmp.Canvas.Brush.Color:=cl;
  bmp.Canvas.FloodFill(x,y,bmp.Canvas.Pixels[x,y],fsSurface)
end;
PicPaint(Sender);
 
 
end;
 
procedure TForm1.picMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
x3:=x;y3:=y;
if not Press then
begin
  if (ColorDelete.Down=true) or (DeleteButton.Down=True) then
begin
Pic.Canvas.Draw(0,0,bmp);
Pic.Canvas.Draw(x-3,y-3,bmp2);
end;
Exit
end;
 
if RectButton.Down then
begin
bmp.Canvas.Brush.Style:=bssolid;
bmp.Canvas.Rectangle(x0,y0,x,y);
x2:=x;y2:=y;
bmp.Canvas.Brush.Style:=bsSolid;
end;
 
if EllipseButton.Down then
begin
bmp.Canvas.Brush.Style:=bsClear;
bmp.Canvas.Ellipse(x0,y0,x2,y2);
bmp.Canvas.Ellipse(x0,y0,x,y);
x2:=x;y2:=y;
bmp.Canvas.Brush.Style:=bsSolid;
end;
 
if (PencilButton.Down) then bmp.Canvas.LineTo(x,y);
 
if DeleteButton.Down then
begin
with bmp.Canvas do
begin
Pen.Color:=clWhite;
LineTo(x,y)
end;
end;
 
if ColorDelete.Down then
begin
bmp1.Transparent:=true;
bmp1.Canvas.CopyRect(Rect(0,0,bmp1.width,bmp1.Height),bmp.Canvas,Rect(0,0,bmp.Width,bmp.height));
bmp1.transparentcolor:=colordialog1.Color;
with bmp.Canvas do
begin
pen.Mode:=pmCopy;
pen.Color:=clWhite;
pen.Color:=clWhite;
pen.Width:=2;
lineto(x,y);
end;
end;
 
if LineButton.Down then
begin
with bmp.Canvas do
begin
moveto(x0,y0);lineto(x2,y2);
moveto(x0,y0);lineto(x,y);
x2:=x;y2:=y;
end;
end;
 
end;

@Puporev · 13.06.2019, 21:23

чтобы рисование производилось в процедурах PicMouseDown и PicMouseMove по зажатию левой кнопки мыши,

По нажатию кнопки мыши только в процедуре OnMouseDown, а что нужно нарисовать по нажатию?

@Evgeny20 · 13.06.2019, 21:26 **[ТС]**

LineButton нужно)

@Puporev · 13.06.2019, 21:30

Думаете Вы что-то объяснили?

@Evgeny20 · 13.06.2019, 21:35 **[ТС]**

Мне рисование обычным карандашом необходимо, такое рисование похожее как у Paint, не знаю как сделать что-то типа такого. А не один раз нажмёшь на карандаш и дальше не отменишь рисование по нажатию левой кнопки мыши

@Puporev · 13.06.2019, 21:50

Вообще мышью рисуют так (на канве формы)

Delphi

var
  Form1: TForm1;
  f:boolean;
implementation
 
{$R *.dfm}
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if ssleft in shift then
 begin
  f:=true;
  canvas.Moveto(x,y);
 end;
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if f then Canvas.Lineto(x, y);
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
f:=false;
end;

@Evgeny20 · 18.06.2019, 17:31 **[ТС]**

Delphi

1	if ssleft in shift then

что означает эта строчка кода?)

@Puporev · 18.06.2019, 17:33

Если нажата левая кнопка мыши.

@AzAtom · 18.06.2019, 17:46

Сообщение от Evgeny20

что означает эта строчка кода?)

Переменная Shift имеет тип TShiftState. А он определён так:

Delphi

1 2	TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);

Конструкция ssleft in shift проверяет, есть ли в Shift значение ssLeft и возвращает true если есть.

Добавлено через 38 секунд
Одновременно там могут быть несколько значений.

Добавлено через 3 минуты
Ещё можно проверять переменную Button. Она может иметь только одно значение.

Delphi

1	if Button = mbLeft then ...

@Evgeny20 · 18.06.2019, 20:17 **[ТС]**

спасибо, хотел спросить насчёт одной ошибки: когда рисую карандашом PencilButton, тогда работают кнопки и EllipseButton, RectButton,LineButton. Фигуры можно нарисовать в данном случае, а если не рисовать карандашом, то не работает рисование фигур, кнопки не работают

Delphi

1 2	Этот способ попроще выглядит с рисованием по нажатию левой кнопки мыши if Button = mbLeft then ...

Добавлено через 48 минут
забыл добавить процедуру противоположную OnMouseDown
проблема с PencilButton решилась, рисует по нажатию левой кнопки мыши, но вот c LineButton, RectButton, EllipseButton так не рисует почему-то

Delphi

procedure TForm1.picMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
press:=false;
end;

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.06.2019, 21:23	2
	чтобы рисование производилось в процедурах PicMouseDown и PicMouseMove по зажатию левой кнопки мыши, По нажатию кнопки мыши только в процедуре OnMouseDown, а что нужно нарисовать по нажатию? 0

@Evgeny20 1 / 1 / 0 Регистрация: 09.09.2017 Сообщений: 116
	13.06.2019, 21:26 [ТС]	3
	LineButton нужно) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.06.2019, 21:30	4
	Думаете Вы что-то объяснили? 0

@Evgeny20 1 / 1 / 0 Регистрация: 09.09.2017 Сообщений: 116
	13.06.2019, 21:35 [ТС]	5
	Мне рисование обычным карандашом необходимо, такое рисование похожее как у Paint, не знаю как сделать что-то типа такого. А не один раз нажмёшь на карандаш и дальше не отменишь рисование по нажатию левой кнопки мыши 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.06.2019, 17:33	8
	Если нажата левая кнопка мыши. 0

	18.06.2019, 20:17