Instrukcja 1a

Cel ćwiczenia: Napisanie aplikacji umożliwiającej wyświetlanie grafiki przy użyciu klasy TCanvas.

Rys.1 Widok formularza z umieszczonymi komponentami

Część I : Przygotowanie aplikacji

1. Uruchomić Delphi.

2. Na formatce umieścić komponent Image z palety komponentów Additional. Pozostawić domyślną nazwę Image1.

3. Dla komponentu Image1 ustawić następujące własności (w Object Inspector):

• Width : 400

• Height : 400

4. Umieścić na formatce komponent Button i ustawić własność Caption na Rysuj. Własność name pozostawić domyślną - Button1.

5. Wygenerować zdarzenie OnClick w zakładce Events - Object Inspector.

Rys. 2 Widok inspektora obiektów z zakładką Events

6. W zdarzeniu OnClick komponentu Button1 umieścić przykładowy kod rysujący:

with Image1.Canvas do begin

//kwadrat wypełniony kratą

Brush.Color:=clRed;

Brush.Style:=bsDiagCross;

Rectangle(10,10,200,200);

//elipsa

Brush.Color:=clBlue;

Brush.Style:=bsHorizontal;

Ellipse(50,300,350,350);

//przykładowy tekst

Font.Name:='Courier';

Font.Color:=clBlack;

Font.Size:=14;

Font.Style:=[fsBold,fsUnderLine];

TextOut(200,250,'Przykładowy tekst');

end;

7. Umieścić na formatce komponent Button i ustawić własność Caption na Czysc. Własność name pozostawić domyślną - Button2.

8. Wygenerować zdarzenie OnClick dla komponentu Button2 i umieścić następujący kod:

with Image1.Canvas do begin

Brush.Color:=clWhite;

Brush.Style:=bsSolid;

FillRect(Rect(0,0,Image1.Width,Image1.Height));

end;

Część II : Funkcja zoom

9. Umieścić dodatkowy komponent Image na formatce i ustawić następujące własności:

• Height : 200

• Width : 200

Własność name pozostawić domyślną - Image2.

10. Wygenerować zdarzenie OnMouseMove dla komponentu Image1 i wstawić do niego następujący kod:

Image2.Canvas.CopyRect(Rect(0,0,200,200),Image1.Canvas,Rect(x-20,

y-20,x+20,y+20));

Część III : Funkcja zapisywania obrazu do pliku

11. Z palety Dialogs wybrać i umieścić na formatce komponent SavePictureDialog.

12. Umieścić na formatce kolejny przycisk Button i ustawić własność Caption na Zapisz.

13. W zdarzeniu OnClick dla przycisku Zapisz wstawić następujący kod:

SavePictureDialog1.DefaultExt:='bmp';

if SavePictureDialog1.Execute then begin

Image1.Picture.SaveToFile(SavePictureDialog1.FileName);

end;

14. Skompilować i uruchomić program.

Rys.3 Uruchomiony program

1

---