|
Kurs Delphi #3
W trzeciej czΩ╢ci tego kursu opiszΩ rysowanie po formie przy u┐yciu canvas.
Zadeklaruj zmienn▒ klik typu boolean, w tym celu na g≤rze pliku ╝r≤d│owego w sekcji var nad Implementation dodaj taki kod :
klik:boolean;
Kliknij na formΩ i w zak│adce events ( w Object Inspector) kliknij dwa razy na zdarzeniu OnMouseDown
i wpisz kod ,kt≤ry ma za zadanie wtedy kiedy wci╢niΩty jest przycisk myszy, podstawienie pod zmienn▒ klik warto╢ci true :
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
klik:=true;
end;
Do zdarzenia OnMouseUp wstaw kod ,kt≤ry podstawi pod zmienn▒ klik warto╢µ false wtedy kiedy zostanie zwolniony przycisk myszy :
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
klik:=false;
end;
Do zdarzenia OnMouseMove wpisz kod ,kt≤ry bΩdzie rysowa│ czarne piksle wtedy kiedy bΩdzie naci╢niΩty klawisz myszki :
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if klik=true then //sprawdzanie czy zmienna klik jest r≤wna true
begin
Form1.Canvas.Pixels[x,y]:=clblack; //rysuje piksel w pozycji kursora xûpozycja x, y pozycja y;
end;
end;
Mo┐esz r≤wnie┐ zamiast kodu Form1.Canvas.Pixels[x,y]:=clblack; wstawiµ jaki╢ inny kod np.
Form1.Canvas.Rectangle(x,y,x+100,y+100);
lub
Form1.Canvas.Ellipse(x,y,x+100,y+100);
lub
Form1.Canvas.TextOut(x,y,'Kurs');
Je┐eli chcia│by╢ to mo┐esz zmieniaµ kolory pΩdzla i pi≤ra np.
kolor pΩdzia :
Form1.Canvas.Brush.Color:=clyellow;
kolor pi≤ra :
Form1.Canvas.Pen.Color:=clyellow;
Dariusz úazowski
_________________________ 53 _________________________
:: Poprzednia strona :: WstΩp :: NastΩpna strona ::
|
