Тәжірибелік жұмыс №20

Тапсырма: PaintBox компонентін қолданып дөңгелек және төртбұрышты

салатын бағдарлама жасау.

Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(2), SpinEdit(2), ColorBox(2), Label(4), PaintBox(1) компоненттерін алып, форманы келесі түрге келтіреміз (39-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 20).

Компонент	Терезе бөлігінен Object Inspector	Қасиеті	Сипаттама
Button1	Properties	Caption	Выход
Button2	Properties	Caption	Очистить
ColorBox1	Properties	NoneColorColor	clBlack
ColorBox2	Properties	NoneColorColor	clRed
Label1	Properties	Capion	Радиус круга
Label2	Properties	Capion	Сторона
Label3	Properties	Capion	Цвет границы фигурки
Label4	Properties	Capion	Цвет заливки фигурки

39-сурет. Форма түрі.

PaintBox1 компонентінің OnMouseMove қасиетіне келесі кодты жазамыз:

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Paintbox1.Canvas.Pen.Color:=ColorBox1.Selected;

Paintbox1.Canvas.brush.Color:=ColorBOX2.Selected;

if ssLeft in shift then

PaintBox1.Canvas.Ellipse(x,y,x+SpinEdit1.Value,y+Spinedit1.Value);

if ssRight in shift then

PaintBox1.Canvas.Rectangle(x,y,x+Spinedit2.Value,y+SpinEdit2.Value);

end;

Button2 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.Button2Click(Sender: TObject);

begin

Paintbox1.Refresh;

end;

Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

ColorBox1 компонентінің OnChange қасиетіне келесі кодты жазамыз:

procedure TForm1.ColorBox1Change(Sender: TObject);

begin

end;

end.

40-сурет. Нәтиже.

Дата добавления: 2015-11-16