1

Instrukcja 7a

Cel ćwiczenia : Napisanie aplikacji wyświetlającej przykładową kompozycję
graficzną. Geometria jeża.

Rys. 1 Widok formularza z umieszczonymi komponentami

1. Uruchomić Delphi.

2. Umieścić na formularzu komponent Image i ustawić następujące parametry:

• Width : 400

•

Height : 400

3. Umieścić na formularzu komponent GroupBox ( paleta Standard ). Własność Caption

ustawić na Dane.

4.

Na komponencie Groupbox1 umieścić 5 komponentów Edit i 5 komponentów Label.
Poszczególne własności ustawić zgodnie z tabelami.

Tabela własności dla komponentów Edit

Domyślma nazwa:

Name:

Text:

Edit1

En

150

Edit2

Efi

123

Edit3

Es

5

2

Edit4

Edfi

1

Edit5

Eds

2

Tabela własności dla komponentów Label

Domyślna nazwa:

Caption:

Label1

Liczba kroków - n:

Label2

Kąt obrotu - fi:

Label3

Długość kroku - s:

Label4

Przyrost kąta obrotu - dfi:

Label5

Przyrost długości kroku - ds:

5. Na formularzu umieścić komponent RadioGroup. Wybrać własność Items dla

RadioGroup1 i wpisać następujące pozycje:

linii

tła

Własność Columns ustawić na: 2, Caption na: Wybór koloru, ItemIndex na: 0

6. W części private klasy TForm1 umieścić deklaracje zmiennych:

clTla,clLinii : TColor;

7. Wygenerować zdarzenie OnCreate dla komponentu Form1 i wpisać następujący kod:

procedure TForm1.FormCreate(Sender: TObject);
begin
clTla:=clBlack;
clLinii:=clWhite;
end;

8. Umieścić komponent ColorDialog i Button. Dla przycisku własność Caption zmienić

na: Wybór koloru.

9. Utworzyć zdarzenie OnClick dla przycisku Button1 i wpisać kod:

procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then begin
case RadioGroup1.ItemIndex of
0 : clLinii := ColorDialog1.Color;
1 : clTla := ColorDialog1.Color;
end;
end;
end;

10. Umieścić kolejny komponent Button na formularzu, własność Caption ustawić na:

Rysuj, utworzyć zdarzenie OnClick i wpisać następujący kod rysujący:

procedure TForm1.Button2Click(Sender: TObject);

3

label et;
var
N,krok,X,Y,X0,Y0,ZX,ZY: Integer;
alfa,fi,dfi,s,ds,xp,yp,xn,yn: Real;
begin
n:=StrToInt(En.Text);
fi:=StrToFloat(Efi.Text);
dfi:=StrToFloat(Edfi.Text);
s:=StrToFloat(Es.Text);
ds:=StrToFloat(Eds.text);
with Image1.Canvas do begin
Brush.Color:=clTla;
Brush.Style:=bsSolid;
FillRect(Rect(0,0,Image1.Width,Image1.Height));
Pen.Color:=clLinii;
fi:=fi*Pi/180; dfi:=dfi*Pi/180;
ZX:=Image1.Width; ZY:=Image1.Height;
xp:=ZX/2; yp:=ZY/2;
X0:=Round(xp); Y0:=Round(yp);
krok:=0; alfa:=0;
MoveTo(X0,Y0);
et:
krok:=krok+1;
xn:=xp+s*Cos(alfa);
yn:=yp+s*Sin(alfa);
X:=Round(xn);
Y:=Round(ZY-yn);
LineTo(X,Y);
if krok<=N then begin
alfa:=alfa+fi+dfi;
if fi>2*Pi then fi:=fi-2*Pi;
xp:=xn; yp:=yn; s:=s+ds;
goto et;
end;
end;
end;

11. Skompilować i uruchomić program przyciskiem F9 na klawiaturze komputera.

4

Rys. 2 Uruchomiony program