Aktív témák
-
Grafiqs
őstag
Térjünk át erre a topikra:
Bővebben: link
Köszönöm, zártam.
G -
Agostino
addikt
Van ehun ilyen topic ami az illyen furmányos dolguknak megjuválást tud adni ám-e : Bővebben: link
-
Fifty
csendes tag
Hello!
A következő a kérdésem:
Delphiben írtam egy progit, ami a következőt csinálja: rajzol egy háromszöget, aminek két csúcsa rögzített helyen van. A 3. csúcsot az egérmutatóhoz rakja. Ezt a háromszöget valamilyen színnel ki is tölti, majd ha az egér megmozdul, akkor ugyanilyen háromszöget rajzol a régire, csak háttérszínnel, azaz letörli azt, és kezdődik az egész elölről. Nem is ez a gond, az egész tökéletesen működne, csak valahogy becsíkozódik a háromszög háttérszínű csíkokkal, egy pillanatig.
Próbáltam úgy is, hogy egy timerre raktam rá az egészet, és pl. 0,001 másodpercenként frissített, akkor is frankón mükszik, de egy kb. 1cm-es csík fut alulról felfelé szépen lassan a képernyőn. Kb. így néz ki az algoritmus, kisebb változtatással (a változók értékének megadásával kapcsolatban) :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
f[1].X:=600;
f[1].y:=768;
f[2].X:=850;
f[2].y:=768;
canvas.Brush.Color:=clbtnface;
canvas.Pen.Color:=clbtnface;
canvas.polygon(f);
canvas.Brush.Color:=clgray;
canvas.Pen.Color:=clgray;
getcursorpos(f[3]);
canvas.polygon(f);
end;
Na ezt hogyan lehetne kiküszöbölni ???
Előre is hálás köszönetem minden válaszért !

Aktív témák
- A fociról könnyedén, egy baráti társaságban
- Otthoni hálózat és internet megosztás
- Kész rémálom lesz Linuxot használni jövőre az USA egyes államaiban
- Milyen HASZNÁLT notebookot vegyek?
- Cities Skylines II
- Fűnyíró topik
- Samsung Galaxy Felhasználók OFF topicja
- Házimozi haladó szinten
- Autós topik
- sziku69: Fűzzük össze a szavakat :)
- További aktív témák...
- Szép! HP EliteBook 840 G10 Hordozható Ultrabook Fémház 14" -50% i5-1335U 32/1TB Iris Xe FHD+
- iPad Pro M4 Space Black 256 GB Wi-Fi + Cellular garanciás, tokkal, pencillel
- LG OLED42C21LA 42 OLED TV hibátlan panel, beégésmentes, 4K HDR, HDMI 2.1
- 2 x Dell Optiplex 7010 USFF i5-3470S 16GB RAM Home Lab csomag
- Logitech G920 kormány + váltó + bajuszkapcsolók ingyenes szállítással
- 195 - Lenovo Legion Pro 5 (16IAX10) - Intel Core U7 255HX, RTX 5070 (ELKELT)
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- HP Z420 Workstation,Xeon E5-1620 CPU,8GB RAM,500GB SATA3 HDD,WIN10
- BESZÁMÍTÁS! MSI B450 R7 1700 16GB DDR4 512GB SSD GTX 1070 8GB Rampage SHIVA Thermaltake 500W
- HIBÁTLAN iPhone 11 64GB White-1 ÉV GARANCIA - Kártyafüggetlen, MS4532,100% Akksi
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


