Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Ein Bild mit einer Farbe multiplizieren?

    Delphi
    by Phantom1, 26. Jan 2008
  Doch es können Bild-Fehler im obigen code entstehen. Es werden zwar diese "nutzlosen" Bytes auch umgerechnet (was eigentlich nichts macht), jedoch fehlen dann zum schluß genau diese anzahl an bytes bzw pixel zur umrechnung. Je nach größe des Bildes bleiben dann viele Pixel unbearbeitet.
• Forum: Multimedia

  Re: Ein Bild mit einer Farbe multiplizieren?

    Delphi
    by Phantom1, 26. Jan 2008
  Oh stimmt, da ich sonst immer mit 32bit arbeite hab ich jetzt im moment garnicht daran gedacht...
  
  Hier die korrigierte Version:
  procedure Multi(src: TBitmap; r, g, b, Intensiv: Byte);
  var
  P: PRGBTriple;
  x, y: integer;
  begin
  if src.PixelFormat<>pf24bit then
  src.PixelFormat:=pf24bit;
• Forum: Multimedia

  Re: Ein Bild mit einer Farbe multiplizieren?

    Delphi
    by Phantom1, 26. Jan 2008
  @Cyberstorm: du kannst deinen code noch etwas vereinfachen und auf geschwindigkeit optimieren, ich hab das mal für dich gemacht :wink:
  
  procedure Multi(src: TBitmap; r, g, b, Intensiv: Byte);
  var
  P: PRGBTriple;
  xy: integer;
  begin
  if src.PixelFormat<>pf24bit then
  src.PixelFormat:=pf24bit;