- Android programozás, Android alkalmazások készítése
- VPN topic
- Kínában túl sok az EV, fokozódik az árháború
- Az MSI RadiX AXE6600 tesztje – router, játékosoknak
- Sweet.tv - internetes TV
- WLAN, WiFi, vezeték nélküli hálózat
- Milyen program, ami...?
- A Coca-Cola következő nagy újítása az AI
- QNAP hálózati adattárolók (NAS)
- Facebook és Messenger
Aktív témák
-
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 ! -
Agostino
addikt
Van ehun ilyen topic ami az illyen furmányos dolguknak megjuválást tud adni ám-e : Bővebben: link
hey friend listen, i know the world is scary right now but its gonna get way worse
-
Grafiqs
őstag
Térjünk át erre a topikra:
Bővebben: link
Köszönöm, zártam.
GÉs még mindig nem fogja, vagy nem akarja felfogni. Hihetetlen. A Föld tényleg a Naprendszer elmegyógyintézete lenne?! by Bon3ss
Aktív témák
- Lightyear - befektetési app
- Xbox tulajok OFF topicja
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Yettel topik
- Milyen okostelefont vegyek?
- Amlogic S905, S912 processzoros készülékek
- Háztartási gépek
- Formula-1
- AMD Ryzen 9 / 7 / 5 / 3 3***(X) "Zen 2" (AM4)
- Android programozás, Android alkalmazások készítése
- További aktív témák...
- Samsung Galaxy S22 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- AKCIÓ! GAMER PC - RTX 3060Ti - i5 10400F/11400F - 16GB DDR4 - 500GB Nvme SSD - 500W 80+
- GAMER PC - GTX 1060 6GB - i5 10400F/11400F - 16GB RAM - 120- 480GB SSD - 500GB HDD
- GAMER PC - GTX 1080 8GB - i5 10400F/11400F - 16GB RAM - 240GB SSD - 1TB HDD
- IPhone 12 128GB 100% hibátlan gyári független akku 97%
- Creative T20 Series II
- Bomba ár! HP EliteBook 840 G3 - i5-6GEN I 8GB I 256GB SSD I 14" HD I Cam I W10 I Garancia!
- iPhone 14 pro max 128 gb, 98% akkumulátor, független!
- Wharfedale Valdus 400 szép megkímélt állapotban eladó
- Acer Nitro Gaming Notebook - RTX 4050 6GB - i5 13420H - 16GB DDR5 - 512GB SSD - 144Hz