Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Pixelmanipulation

    Delphi
    by Phantom1, 18. Sep 2005
  Du weißt aber schon das die Bedingung (x+0 mod 2)=0 immer False ergibt, wenn x>0? Denn das Mod bindet mehr als das + zeichen.
  
  Hier mal eine Variante von mir, ist dank Scanline auch recht schnell:
  
  // Alpha 127 ist Halbtransparent
  procedure TAnimation.DrawAlpha(Src, Dest: TBitmap; x, y: Integer; Alpha: Byte);
  var
  s, d: PRGBQuad;
  Rect: TRect;
  x1, y1: Integer;