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

• #823 Szalma őstag Fifty #819

  Új Válasz 2005-05-26 07:20:12 #823

  Ú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

  

  Szalma

  őstag

  válasz Fifty #819 üzenetére

  (Továbra is WM_ERASEBKGND kezelést látom a kulcsnak. A hátérben rajzolás sem rossz poén, de akkor is meg kellene küzdeni a frissítéskor adódó felesleges újrafestéssel... WM_ERASEBKGND és Google -> Bővebben: link )
  
  Szeretettel:
  Szalma

• #820 lao ce aktív tag Fifty #819

  Új Válasz 2005-05-25 17:38:20 #820

  Ú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

  

  lao ce

  aktív tag

  válasz Fifty #819 üzenetére

  szivesen segitek ha elarulod melyik 80%-ot nem erted.

• #817 lao ce aktív tag Fifty #814

  Új Válasz 2005-05-24 19:42:32 #817

  Ú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

  

  lao ce

  aktív tag

  válasz Fifty #814 üzenetére

  en azt hiszem ezt ugy szoktak megoldani, hogy eloszor megrajzoljak a memoriaban amire szukseg van es aztan egy lepesben kirakjak a lathato teruletre.
  
  szoval en ugy csinalnam hogy lenne egy image ami a haromszogemet tartja:
  var
  ...triangle: tbitmap;
  
  aztan ezt elokeszitenem a form create-ben:
  ...triangle := TBitmap.Create;
  ...triangle.PixelFormat := pf32bit;
  ...triangle.Width := Form1.Width;
  ...triangle.Height := Form1.Height;
  
  es persze fel is szabaditanam a destroy-ban vagy close-ban:
  triangle.Free;
  
  a mousemove-ban meg eloszor visszaallitanam a 'szurket' a triangle image-ben(azaz torles)
  ...triangle.Canvas.Brush.Color := clSilver;
  ...triangle.Canvas.Rectangle (0,0, Form1.Width, Form1.Height);
  
  aztan megrajzolnam a haromszoget a mar 'ures' kepben:
  ...triangle.Canvas.Brush.Color := clWhite;
  ...triangle.Canvas.Polygon([
  ......point(100, 500),
  ......point(300, 500),
  ......point(X, Y)
  ...]);
  (az utolso sor X es Y koordinataja az egerpozicio, ami a mousemove procedure parametere)
  
  vegul ugyanitt a mousemove-ban, a triangle nevezetu image tartalmat kikopiznam a form canvasara ezzel a konnyeden ertheto, minden igazi programozoba dns szinten oroklott utasitassal:
  ...BitBlt(
  ......Form1.Canvas.Handle,
  ......0, 0,
  ......Form1.Width, Form1.Height,
  ......triangle.Canvas.Handle,
  ......0, 0,
  ......srccopy
  ...);
  
  
  jo szorakozast.
  
  [Szerkesztve]

• #816 Szalma őstag Fifty #815

  Új Válasz 2005-05-24 07:23:21 #816

  Ú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

  

  Szalma

  őstag

  válasz Fifty #815 üzenetére

  (WM_ERASEBKGND üzenet elkapása a kulcs momentum... A delfi túl sok mindent rajzol, így ''lassú'' a frissítés.
  
  (Statikus csíkok keletkeznek esetleg? Vagy ha az egér nyugiban van, akkor nincs gond és tele a háromszög?))
  
  Szeretettel:
  Szalma

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