Procedure TForm1.btn7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

Begin

stat1.Panels[0].Text := 'Рисование эллипса';

end;

Procedure TForm1.btn8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

Begin

stat1.Panels[0].text := 'Рисование прямоугольника';

end;

Procedure TForm1.edt1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

Begin

stat1.Panels[0].text := 'Выбор толщины ';

end;

Procedure TForm1.clrgrd1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

Begin

stat1.Panels[0].Text := 'Выбор цветов';

end;

Procedure TForm1.pnl4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

Begin

stat1.Panels[0].Text := 'Цвет левой кнопки мыши';

end;

Procedure TForm1.pnl3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

Begin

stat1.Panels[0].Text := 'Цвет правой кнопки мыши';

end;

Procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

Begin

stat1.Panels[0].Text := 'Область для рисования';

stat1.Panels[1].text := 'x:'+inttostr(x)+ ' y:'+inttostr(y);

If ((ssRight in Shift) or (ssLeft in Shift)) then

Begin

fsave := false;

backp := true;

nextp := false;

If btn1.Down then

Begin

img1.Canvas.Pen.color:=pnl3.Color;

img1.Canvas.pen.Width:=strtoint((edt1.text));

Img1.Canvas.lineto(x,y);

end;

If btn5.down then

Begin

if mb = 'l' then

img1.Canvas.Pen.Color := pnl4.Color

Else

img1.Canvas.Pen.Color := pnl3.Color;

img1.Canvas.LineTo(x,y);

end;

If btn6.Down then

Begin

img1.canvas.Pen.Width := strtoint(edt1.Text);

if mb = 'l' then

img1.Canvas.Pen.Color := pnl4.Color

Else

img1.Canvas.Pen.Color := pnl3.Color;

img1.canvas.lineto(x,y);

end;