РАЗРАБОТКА ПРОГРАММНЫХ МОДУЛЕЙ

Инструменты

Для инструментов графического редактора используется следующий код:

procedure TForm1.btn6Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := false;

rb2.Visible := false;

end;

procedure TForm1.btn8Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := true;

rb2.Visible := true;

end;

procedure TForm1.btn7Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := true;

rb2.Visible := true;

end;

procedure TForm1.btn4Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := false;

rb2.Visible := false;

end;

procedure TForm1.btn1Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := false;

rb2.Visible := false;

end;

procedure TForm1.btn3Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := false;

rb2.Visible := false;

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := false;

rb2.Visible := false;

end;

Толщина линии

Для выбора толщины линии используется следующий код:

procedure TForm1.edt1Change(Sender: TObject);

begin

fat := strtoint(edt1.text);

if not btn5.Down then

img1.Canvas.Pen.Width := fat;

end;