Instrukcja 4

Cel ćwiczenia : Napisanie aplikacji umożliwiającej wykorzystanie myszy do kreślenia obiektów.

1. Uruchomić Delphi.

2. Przejść do widoku kodu źródłowego przyciskiem F12.

3. Pod słowem private w klasie TForm1 umieścić deklarację zmiennej:

rysuj : boolean;

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

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

• Width : 400

• Height : 400

6. Na formatce umieścić komponent RadioGroup z palety komponentów Standard. Wybrać własność Items dla komponentu RadioGroup1 i wpisac dwie pozycie : piksele i linie. Własność Caption ustawić na : Wybór metody .

7. Dla komponentu Form1 wygenerować zdarzenie OnCreate i umieścić w nim następujący kod:

rysuj:=false;

8. Dla komponentu Image1 wygenerować zdarzenia OnMouseDown, OnMoseMove,OnMouseUp i uzupełnic wg następujących wskazówek:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Button=mbLeft then begin

rysuj:=true;

Image1.Canvas.MoveTo(x,y);

end;

end;

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

Y: Integer);

begin

if rysuj=true then begin

case RadioGroup1.ItemIndex of

0 : Image1.Canvas.Pixels[x,y]:=clBlack;

1 : Image1.Canvas.LineTo(x,y);

end;

end;

end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Button=mbLeft then

rysuj:=false;

end;

9. Program skompilować i uruchomić.

2

---