Kako risati z miško neprekinjeno črto ?

Vse o grafiki, canvasu, directdraw, itd.
Odgovori
Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

Kako risati z miško neprekinjeno črto ?

Odgovor Napisal/-a Fortuna » 30.06.2011 09:59:12

Koda: Izberi vse

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.Canvas.Pen.Color:=clyellow;
 Image1.Canvas.MoveTo(X,Y);
Image1.Canvas.LineTo(X+1,Y+1);
Image1.Canvas.LineTo(X,Y);
Image1.Canvas.LineTo(X-1,Y-1);
end; 
Tole sicer riše. Če premikam miško počasi še nekam zgleda.
Hitreje ko premika miško večji razmaki so med posameznimi piksli.

Kako rešiti da bo to črta neprekinjena, neglede kako hitro premikam miško?
Kakšna ideja?

edit by admin: hvala, ker uporabljaš code značko

mig640
Prispevkov: 59
Pridružen: 03.01.2008 11:36:54

Re: Kako risati z miško neprekinjeno črto ?

Odgovor Napisal/-a mig640 » 30.06.2011 10:27:03

Vrzi ven Image1.Canvas.MoveTo(X,Y);

Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

Re: Kako risati z miško neprekinjeno črto ?

Odgovor Napisal/-a Fortuna » 30.06.2011 10:33:58

Ja to je to!
Hvala.

Odgovori