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ę?
- Rejestracja:prawie 15 lat
- Ostatnio:ponad 7 lat
0
Delphi 
- Rejestracja:prawie 19 lat
- Ostatnio:20 dni
- Postów:819
0
Robi się tak:
- Ustawiasz Pen.Mode:=pmXor; Pen.Color:=clWhite (najlepiej)
- Rysujesz pierwszy kwadrat w jakimś miejscu i zapamiętujesz jego współrzędne.
- Przed narysowaniem drugiego kwadratu, rysujesz jeszcze raz ten pierwszy (zostanie zmazany), następnie rysujesz drugi kwadrat i zapamiętujesz współrzędne.
- itd.
- Rejestracja:prawie 15 lat
- Ostatnio:ponad 7 lat
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ę.
pelsta
No przecież wyraźnie napisałem. Drugie (ponowne) narysowanie w trybie pmXor tego samego kwadratu zmaże go!
Dyspenser
Tak tylko, że zanim zaczynam rysować nie mam tam nic. Jak narysuję kwadrat o białej ramce to po zamianie dostanę czarną ale ramka nadal będzie widoczna. To jest rysowanie po obrazku nie czystym canvas więc muszę pozbyć się całkowicie tego co narysuję.
- Rejestracja:prawie 19 lat
- Ostatnio:20 dni
- Postów:819
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ł...
Wypróbuj ten sposób a potem go komentuj. I przeanalizuj mój powyższy post.
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).
Ja wcale nie napisałem że kwadrat będzie biały :). Nie teoretyzuj tylko napisz i sprawdź kawałek kodu. ( x XOR $FF = not(x) -> not(x) XOR $FF = not(not(x)) = x)
- Rejestracja:prawie 15 lat
- Ostatnio:ponad 7 lat
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.
edytowany 1x, ostatnio: Dyspenser
Jedyna niedogodność jest taka, że nie da się ustawić koloru tak rysowanej figury.
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.
123 dobrze myślałeś bo o to mi chodziło ale jednak kod pelsta robi dokładnie to do czego dążysz. Rysowanie figury o odwróconych kolorach (zamiast na czarno rysuje na biało więc wystarczy zamienić), a narysowanie drugiej figury - zmienne NowyX i NowyY o tych samych współrzędnych sprawia, że ta figura narysowana znika i nic nie ma na obrazku.
- Rejestracja:prawie 15 lat
- Ostatnio:około 11 godzin
- Lokalizacja:Laska, z Polski
- Postów:10056
0
Można po prostu tak
Image1.Picture := nil;
Zobacz pozostałe 2 komentarze
czytałeś w ogóle treść wątku? [facepalm]
Kurde, znowu to samo! Czemu wszyscy myślą że nie czytałem!!
Image1.Picture:=nil wyczyści mi cały obrazek, a ja chciałem żeby obrazek pozostał, a wyczyściło mi to co ja rysowałem - działa sposób napisany przez pelsta
aaaa... No to faktycznie, nie doczytałem.