Практична робота в Delphi "Елементи керування"

Элементы управления

RadioGroup1

RadioGroup2

SpinEdit1

GroupBox1

Shape1                   Button1                              CheckBox1

Добавить на форму компонент ColorDialog

Дописать процедуры:

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

  case RadioGroup1.ItemIndex of

    0: Shape1.Shape:=stCircle;

    1: Shape1.Shape:=stEllipse;

    2: Shape1.Shape:=stSquare;

    3: Shape1.Shape:=stRectangle;

    4: Shape1.Shape:=stRoundRect;

  end;

end;

procedure TForm1.RadioGroup2Click(Sender: TObject);

begin

  case RadioGroup2.ItemIndex of

    0: Shape1.Brush.Style:=bsSolid;

    1: Shape1.Brush.Style:=bsCross;

    2: Shape1.Brush.Style:=bsDiagCross;

  end;

end;

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

  Shape1.Pen.Width:=SpinEdit1.Value;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if ColorDialog1.Execute then

   Shape1.Brush.Color:= ColorDialog1.Color;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

  Button1.Enabled:=CheckBox1.Checked;

end;