Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Negativ bei TImage

    Delphi
    by xaromz, 17. Apr 2006
  Hallo,
  
  da hatte ich wohl auch einen kleinen Fehler drin. So ist's richtig:
  function Umkehrfarbe(const Color: TColor): TColor;
  begin
  Result := not ColorToRGB(Color) and $FFFFFF; // Erstes Byte muss null sein
  end;
  
  @Hawkeye: Das mit dem Rotanteil war ja nur ein Beispiel...
• Forum: Multimedia

  Re: Negativ bei TImage

    Delphi
    by xaromz, 17. Apr 2006
  Hallo,
  
  Ja, und?
  
  Gruß
  xaromz
• Forum: Multimedia

  Re: Negativ bei TImage

    Delphi
    by xaromz, 17. Apr 2006
  Hallo,
  
  Dazu hab' ich doch schon was gepostet (Post #13), musst Du nur noch an Deine Bedürfnisse anpassen.
  
  Gruß
  xaromz
• Forum: Multimedia

  Re: Negativ bei TImage

    Delphi
    by xaromz, 17. Apr 2006
  Hallo,
  
  das ist üblicher:
  function Umkehrfarbe(const Color: TColor): TColor;
  begin
  // Result := not ColorToRGB(Color);
  Result := not ColorToRGB(Color) and $FFFFFF; // <-verbessert
  end;
  Gruß
  xaromz
• Forum: Multimedia

  Re: Negativ bei TImage

    Delphi
    by xaromz, 17. Apr 2006
  Hallo,
  
  p := rgb(255 - p, 255 - p, 255 - p);
  Du weist einem Byte einen RGB-Farbwert (Integer) zu, den Du auch noch mit dreimal dem gleichen Wert erstellst.
  
  Gruß
  xaromz
• Forum: Multimedia

  Re: Negativ bei TImage

    Delphi
    by xaromz, 17. Apr 2006
  Hallo,
  
  Da ist auch was falsch.
  
  Versuch's mal hiermit:
  procedure NegativeBitmapFX(aBitmap: TBitmap);
  var
  x, y: integer; // Koordinaten
  p: pbytearray; // Pixel
  begin