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);
1
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