- Ubuntu Linux
- Még több AI-generálta reklám jön a Facebookra és az Instagramra
- Windows 11
- Crypto Trade
- Van, ahol lesz összecsomagolt Disney+ és Max
- Linux kezdőknek
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- ASUS routerek
- Visszavonta az Intel és a Qualcomm Huawei-hez kiadott exportlicencét az USA
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
- Sorozatok
- Ubuntu Linux
- Milyen okostelefont vegyek?
- gban: Ingyen kellene, de tegnapra
- Okos Otthon / Smart Home
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Még több AI-generálta reklám jön a Facebookra és az Instagramra
- Windows 11
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Samsung Galaxy A04s 32GB, Kártyafüggetlen, 1 Év Garanciával
- HP Spectre x360 16-aa0075ng - ÚJ - 16"-os OLED notebook - U7 155H, 32GB
- HP Spectre x360 16-aa0770ng - ÚJ - 16"-os OLED notebook - U7 155H, RTX4050 (6GB)
- DDR3 BAZÁR! Kingston Samsung Crucial 8GB/16GB DDR3 memória garanciával hibátlan működéssel
- Samsung Galaxy A22 5G 64GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen