Hej wszystkim, jestem poczatkujacy programista w delphi i potrzebuje przerysowac linie w taki sposob aby zniknela zanim narysuje nowa gdzie indziej.
prosze o pomoc w kodzie
probowalem metody Mode z klasy TPen i za nic nie moge jej zrozumiec.
pozdr.
0
0
Nie bardzo wiem czy o to Ci chodzi ale moze po prostu przed narysowaniem linii czyść Canvas ?
0
Najpier zmieniasz mode pen. To sprawia że pisak tworzy negatyw. Zatem czarny pisak na bialym tle jest czarny ale na czarnym jest biały.
Image1.Canvas.Pen.Mode:=pmNotXor;
Potem rysujesz linię. W następnym ruchu myszki rysujesz w starym miejscu by wymazać i w nowym.
A tak zmieniasz mode pen na zwykły.
MojImage.Canvas.Pen.Mode:=pmCopy;