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

Тапсырма: Button компоненті арқылы сурет шығару.

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

Компонент	Терезе бөлігінен Object Inspector	Қасиеті	Сипаттама
Button1	Properties	Caption	Нарисовать

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

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

procedure TForm1.Button1Click(Sender: TObject);

var

x,y:integer;

x2,y2:integer;

begin

Form1.Canvas.Pen.Color:=$aa1100;

Form1.Canvas.Brush.Color:=clBtnFace;

x2:=60;

y2:=80;

Form1.Canvas.RoundRect(x2,y2,x2+240,y2+160,50,50);

x:=100;

y:=80;

Form1.Canvas.Pen.Color:=$aa1100;

Form1.Canvas.Brush.Color:=$aa1100;

Form1.Canvas.Ellipse(x,y,x+160,y+160);

Form1.Canvas.Brush.Color:=$aa1100;

Form1.Canvas.Font.Color:=clBtnFace;

Form1.Canvas.Font.Style:=[fsItalic];

Form1.Canvas.Font.Size:=65;

Form1.Canvas.Font.Name:='Tahoma';

Form1.Canvas.TextOut(125,100,'hp');

end;

end.

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

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

Тапсырма: Дөңгелекті жылжыту бағдарламасын жасау.

Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға GroupBox(1), Shape(1) компоненттерін алып, форманы келесі түрге келтіреміз (45-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 24).

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