Új hozzászólás Aktív témák
-
Fifty
csendes tag
Hello!
A következő a kérdésem, (immár a megfelelő helyen) :
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 !
Új hozzászólás Aktív témák
- Új, bontatlan Samsung S24+ 256 GB black
- Dell Latitude E7270, 12,5" HD Kijelző, i5-6300U CPU, 8GB DDR4, 256GB SSD, W10, Számla, Garancia
- Amazfit I T-REX 2 I GTS 3 I GTR 3 I GTR 3 Pro
- Új Latitude 7440 2-in-1, FHD+ IPS kihajtható érintő, i7-1365U, 32GB DDR5, 512GB NVMe, IR kamera, gar
- Beszámítás! GB H610M i5 13400F 32GB DDR4 1TB SSD RTX 3070Ti 8GB MONTECH AIR 1000 Lite Corsair 650W