Új hozzászólás Aktív témák

• #814 Fifty csendes tag

  Új Válasz 2005-05-23 16:37:03 #814

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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