Hirdetés
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Yettel topik
- Bemutatkozott a Poco F2 Pro (már megint)
- Honor Magic 8 Pro Air a neve, január 19-én mutatják be
- Akciófigyelő: jelentős kedvezménnyel nyit a Honor 600
- Vivo X300 Pro – messzebbre lát, mint ameddig bírja
- Így spórolhat az Apple az iPhone 18 kijelzőin
- Telekom mobilszolgáltatások
- Milyen okostelefont vegyek?
- One mobilszolgáltatások
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
Hirdetés
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Kerékpárosok, bringások ide!
- Vicces képek
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Debrecen és környéke adok-veszek-beszélgetek
- Napelem
- Autós topik
- További aktív témák...
- BONTATLAN Új iPhone 17 PRO 256-512GGB Független 1év Apple GARANCIA Deák Térnél Azonnal Átvehető.
- Bomba ár! HP ProBook 430 G3 - i5-6GEN I 4GB I 500GB I HDMI I 13,3" HD I Cam I W10 I Garancia!
- Bomba ár! Lenovo Tablet 10 - Intel N4100 I 8GB I 128SSD I 10,1" WUXGA I HDMI I Cam I W11 I Gari!
- Eladó egy Xiaomi k50 ultra (Xiaomi 12t pro) snapdragon cpu
- Bomba ár! Dell Latitude 3500 - i5-8GEN I 8GB I 256SSD I HDMI I 15,6" HD I Cam I W11 I Gar!
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- 274 - Lenovo Legion Pro 5 (16IAX10H) - Intel Core U9 275HX, RTX 5070Ti
- HP EliteBook x360 1040 G11 - 14" WUXGA Érintő - Ultra 7 155H - 16GB - 512GB - Win11
- Telefon felvásárlás!! Huawei P20 Lite/Huawei P20/Huawei P30 Lite/Huawei P30/Huawei P30 Pro
- AKCIÓ! ASUS Z790 i9 14900KF 64GB DDR5 1TB SSD RTX 5080 16GB LIAN LI LANCOOL 216R ADATA 850W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



