TImage jak usunąć rysunek z canvas

0

Witam,
mam taki problem: mam TImage i w nim załadowany obrazek. Jeśli kliknę na jakąś pozycję w ListBox to na tym obrazku rysuje mi się kwadrat w ustalonym miejscu. Problem jest taki, że jak kliknę na inną pozycję to następny kwadrat też rysuje się ale chciałbym żeby poprzedni zniknął. Próbowałem Refresh;, Update;</code> i <code> RePaint; dla TImage ale bezskutecznie - nie usuwa mi wcześniej narysowanych kwadratów.
Moje pytanie jest więc takie: Jak wyczyścić canvas, po którym rysuję przy każdym kliknięciu na inną pozycję?

0

Narysuj po prostu biały prostokąt o szerokości i wysokości takiej, jak TImage?

0

No właśnie tu jest problem bo jak napisałem wyżej, ja rysuję po wczytanym obrazku. Ja coś zaznaczam na tym obrazku. Może najlepszym rozwiązaniem będzie za każdym razem wczytywanie od nowa tego obrazka czego chciałbym uniknąć...?

0

Wczytaj ten obrazek np.do zmiennej Bmp: TBitmap (Bmp.LoadFromFile(...)), a w TImage robisz potem:
TImage.Picture.Assign(Bmp)
Dzięki temu nie będziesz musiał za każdym razem wczytywać bitmapy od nowa.

0

Inny sposób to rysowanie z opcją Pen.Mode:=pmXor

0

Ale jakby to mogło pomóc? Teraz rysuje się wszystko ok tylko jeśli chcę narysować kolejny kwadrat to chciałbym poprzedni usunąć z obrazka - że tak napiszę - chcę zaznaczyć inny fragment obrazka usuwając poprzednie zaznaczenie.

0

Robi się tak:

  1. Ustawiasz Pen.Mode:=pmXor; Pen.Color:=clWhite (najlepiej)
  2. Rysujesz pierwszy kwadrat w jakimś miejscu i zapamiętujesz jego współrzędne.
  3. Przed narysowaniem drugiego kwadratu, rysujesz jeszcze raz ten pierwszy (zostanie zmazany), następnie rysujesz drugi kwadrat i zapamiętujesz współrzędne.
  4. itd.
0

Hmm... Z tego co orientuję się to ten tryb pnXor odwróci mi kolory ale na obrazku nadal będzie to widoczne, a mi chodzi o usunięcie tego co rysuję.

0

Zadeklaruj sobie zmienne globalne

var
//współrzędne wierzchołka kwadratu 
  StaryX:Integer=-1;
  StaryY:Integer=-1;

I teraz rysowanie kwadratu

  Canvas.Pen.Mode:=pmXor;
  Canvas.Pen.Color:=clWhite;
//zmazanie poprzedniego kwadratu
  if (StaryX<>-1) and (StaryY<>-1) then Rysuj_kwadrat_o_wierzchołku (StaryX,StaryY);
//narysowanie nowego kwadratu
  Rysuj_kwadrat_o_wierzchołku (NowyX,NowyY);
//zapamiętanie współrzędnych
  StaryX:=NowyX;
  StaryY:=NowyY;
0

Co do rysowania xorem, to pomyśl pelsta, że skoro w tle jest obrazek a kwadrat na nim nie był rysowany xorem, to zawartość tego obrazka pod kwadratem jest utracona, zaden xor jej nie odzyska.
Więc niech autor zastosuje pomysł patryka27, lepiej jest po prostu odzyskać zawartość bitmapy, przy czym czy użycie assign chyba spowoduje przypisanie wartości, więc wszystkie operacje będą wykonywane na oryginale czego nie chemy więc ja bym skopiował...

0

Wypróbuj ten sposób a potem go komentuj. I przeanalizuj mój powyższy post.

Zdaje mi się kolego że nie wiesz na czym polega tryb rysowania xorujący.

Bo z twojego kodu wynika że nie powstanie biały kwadrat ale odwrócenie tła czego nie chcemy. Kolega pyta jak wymazać kwadrat a nie xorować miejsce gdzie ma być kwadrat.

0

@123 Poczytaj sobie kolego jak działa funkcja XOR.

Jakbym nie wiedział na czym polega XOR. Tylko że z XORa jasno wynika że: x xor $FFFFFF00 = (not x) and $FFFFFF00 (bez alfy)
Więc biały kwadrat powstanie tylko w przypadku gdyby tło było całkowicie czarne. Jeżeli znajduje się tam jakikolwiek wzór to jego kolory zostaną odwrócone. Dlatego zapewne nie powstanie biały kwadrat (zakładamy że w tle jest jakiś obrazek). No ale widać ja się nie znam (albo wy nie rozumiecie o co mi chodzi).

0

123 przetestowałem kod pelsta na obrazku i to co zrobił to rysuje figurę na obrazku (oczywiście o odwróconych kolorach), a narysowanie nowej figury o tych samych współrzędnych sprawia, że ta poprzednia figura znika i obrazek robi się taki jak przed rysowaniem o co mi właśnie chodziło. Sam myślałem tak jak Ty dopóki nie sprawdziłem tego w Delphi.

0

a narysowanie nowej figury o tych samych współrzędnych sprawia, że ta poprzednia figura znika i obrazek robi się taki jak przed rysowaniem o co mi właśnie chodziło. Sam myślałem tak jak Ty dopóki nie sprawdziłem tego w Delphi.

Ja nie jestem żadnym newbie, dokładnie wiem na czym polega xor i znam większość różności co w delphi siedzą. Mi właśnie chodziło o to że kolory są odwracane, myślałem że jest to nieporządane. Jeżeli nie sprawia to problemu to ok.

0

Po odpowiednich zmianach wszystko działa tak jak chciałem. Dzięki za pomoc szczególnie dla pelsta:)

0

Można po prostu tak

Image1.Picture := nil;

1 użytkowników online, w tym zalogowanych: 0, gości: 1