Page 10 - 6370

procedure TForm2.FormMouseDown(Sender:
TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
begin if (button=mbright) then

begin
sx:=x;

sy:=y;
end;
if (button=mbleft) then

begin
Canvas.MoveTo(x,y);

end;
end;

procedure TForm2.FormMouseUp(Sender:
TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
begin

if (ssShift in Shift) then
Canvas.Rectangle(sx,sy,x,y);

if (ssAlt in Shift) then
Canvas.LineTo(x,y);

end;
7. Після команди Run з допомогою мишки виставляють
курсор в початкову точку проектованого відрізка,
натискають ліву клавішу миші (ця умова дописана в
опрацьовувачі події FormMouseDown) і не відпускаючи її
при натиснутій клавіші Alt (дана умова дописана у подію

12