1. Завантажити середовище програмування Borland Delphi7.0. Створити процедуру обробки події OnPaint. Для цього
в Інспекторі Об’єктів перейти на вкладку Events, і виконати подвійний клік біля OnPaint.
2. Встановити колір форми:
Color:=clBlack; (ClGreen;ClGray;ClRed;ClYellow;ClOlive;)
3. Встановити колір контуру об’єктів, які будуть виводитись далі:
Canvas.Pen.Color:=clRed;
4. Встановити колір заповнення об’єктів, які будуть виводитись далі:
Canvas.Brush.Color:=clYellow;
5. Вивести еліпс
Canvas.Ellipse(20,20,200,200);
6. Вивести лінію
Canvas.MoveTo(20,20);
Canvas.LineTo(200,200);
7. Вивести многокутник
Canvas.Polygon([Point(20,20), Point(200,200), Point(200,20)]);
8. Вивести напис заданого розміру і кольору
Canvas.Font.Size:=24;
Canvas.Font.Color:=clRed;
Canvas.TextOut(200,200,’HELLO’);
9. Вивести точку
Canvas.Pixels[100,100]:=clBlue;
Хід роботи
1. Завантажити середовище програмування Borland Delphi7.0. Створити процедуру обробки події OnPaint
2. Ввести команду для виводу на форму 100 точок з випадковими координатами
fori:=1 to 100 do Canvas.Pixels[random(640), random(480)]:=clWhite;
3. Самостійно доповнити програму командою для зміни кольору форми на чорний і виводу в правому верхньому куті форми жовтого кола радіусом 50
4. Закрити проект. Відкрити новий, створити процедуру обробки події OnPaint і ввести код для виводу на екран десяти букв “А” починаючи з позиції (10,20) в стовбчик з інтервалом 60 пікселів :
procedure TForm1.FormPaint(Sender: TObject);
Var x,i,y:integer;
begin
y:=10;{початкова позиція}
x:=20;
for i:=1 to 10 do
begin
Canvas.Font.Size:=24;
Canvas.Font.Color:=clRed;
Canvas.TextOut (x,y,'A');
y:=y+60;{інтервал між буквами}
end;
end ;
5. Змінити програму так, щоб букви виводились в рядок (10 букв з інтервалом 40 пікселів)
6. Записати створений проект у папку FOR і закрити проект.
7. Створити процедуру обробки події OnPaintі ввести команди:
procedure TForm1.FormPaint(Sender: TObject);
Var i,j,cl:integer;
begin
for i:=0 to 640 do
for j:=0 to 480 do
begin
cl:=trunc(sqr(i))+trunc(sqr(j));
Canvas.Pixels[trunc(i),trunc(j)]:=cl;
end
end;
8. Відкрити новий проект. Розмістити на форму компонент Timer1із сторінки System. Написати для нього процедуру обробки події
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(i,10);{Збільшити значення і на 10}
Canvas.Pen.Color:=ClBtnFace;
Canvas.Ellipse(i-10,10,i+90,200);
Canvas.Pen.Color:=ClRed;
Canvas.Ellipse(i,10,i+100,200);
end;
Глобально описати змінну і.
Змінити програму так, щоб коло рухалось справа наліво
9.Відкрити новий проект. Вивести на форму компоненти Label1, Timer1. Написати для Timer1 процедуру обробки події
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Visible:=False;
end;
Виконати програму. Текст через деякий інтервал часу зникає з форми. Змінити цей інтервал часу, встановивши значення властивості Interval компонента Timer1 на 2000.
Хід роботи
1. Завантажити середовище програмування Borland Delphi7.0. Створити процедуру обробки події OnPaint
2. Написати команди для виводу на форму графіка лінійної функції у=х
procedure TForm1.FormPaint(Sender: TObject);
Var x:integer; y:real;
begin
x:=0; y:=-x+400;
Canvas.Pixels[trunc(x),trunc(y)]:=clBlue;
Repeat
Canvas.Pixels[trunc(x),trunc(y)]:=clBlue;
x:=x+1;y:=-x+400;
until x>800
end;
Змінити програму так, щоб виводився графік функції у=-х
3. Написати процедуру для виводу на форму синусоїди
procedure TForm1.FormPaint(Sender: TObject);
Var x:integer; y:real;
begin
x:=0; y:=60+30*sin(Pi*x/180);
Canvas.Pixels[trunc(x),trunc(y)]:=clBlue;
Repeat
Canvas.Pixels[trunc(x),trunc(y)]:=clBlue;
x:=x+1;y:= 60+30*sin(Pi*x/180);
until x>800
end;
Змінити амплітуду, частоту і колір синусоїди. Перенести синусоїду нижче на 30 пікселів.
3. Написати процедуру для виводу на форму параболи, повернутої вітками вгору
procedure TForm1.FormPaint(Sender: TObject);
Var x:integer; y:real;
begin
x:=0; y:=-Sqr(200-x)+300;
Canvas.Pixels[trunc(x),trunc(y)]:=clBlue;
Repeat
Canvas.Pixels[trunc(x),trunc(y)]:=clBlue;
x:=x+1;y:=-Sqr(200-x)+300;
until x>800
end;
Змінити прграму так, щоб парабола виводилась вітками вниз. Перемістити її вправо і вниз, домалювати систему координат
