Gif bei verkleinerter Bildauflösung farblich stark veränder

[Hallo_Thomas]

Ich hab folgendes Problem, wenn ich mein transparentes Gif Bild verkleinerer, wird es immer dunkler(genauer gesagt, die Pixel werden ersetzt durch schwarze Pixel), dadurch wird das Bild immer unansehnlicher.

P.S. Ich verwende TImage

[turboPASCAL]

Weil GifImage keine Standard-Komponennte von Delphi ist, wäre es nett wenn du angeben würdest welche du verwendest.

[PierreB]

Zitat von turboPASCAL:

Weil GifImage keine Standard-Komponennte von Delphi ist, wäre es nett wenn du angeben würdest welche du verwendest.

Zitat von Hallo_Thomas:

P.S. Ich verwende TImage

[Robert Marquardt]

Zitat von Hallo_Thomas:

P.S. Ich verwende TImage

Das hat aber nichts zu sagen. Das GIF-Format wird bei TImage per Format-Pluugin nachgeruestet.
Da gibt es mehrere. Namentlich TGifImage oder TJvGifImage.


Womit wird eigentlich verkleinert? Das ist doch keine Eigneschaft von TImage.

[Hallo_Thomas]

GifImage verwende ich, welche Lösung gibt es da noch,bei .bmp hab ich das Problem, das es bei veränderungen mit grösse zu Problemen bei der Transparens kommt

[Delphi-Freak]

Eine Windows-Bitmap (*.bmp) unterstützt grundsätzlich keine Transparenz. Und wenn du mit Filtern beim Vergrößern/Verkleinern arbeiten willst, dann empfehle ich dir Graphics 32. Da gibts nette Filter und viele Effekte, Transparenz-Unterstützung, gute Performance und vieles mehr.

LG, ich

[Hallo_Thomas]

Wie/Wo stelle ich denn bei timage32 die transparenzein?

[Delphi-Freak]

Such vielleicht mal in der Hilfe, da ist eh eine dabei. Ich habe nur leider Delphi jetzt nicht gestartet...
Wie meinst du das aber eigentlich. Die Transparenz vom ganzen Bild (ich glaube da ist was in den Demos dabei) oder nur ein Pixel oder beim Zeichnen von Linien etc. ???

[Khabarakh]

Falls das nicht klar ist: GR32 unterstützt keine Bittransparenz (ColorKey-Transparenz, z.B. bei Gifs und den 1st-Party Komponenten), sondern "echte" 8-Bit-Transparenz für jedes Pixel (+RGB = 32-Bit Farbformat, z.B. bei PNG).

Für das Umrechnen gibt es allerdings eine Funktion auf der GR32-Website:

Delphi-Quellcode:

procedure CromaKey(ABitmap: TBitmap32; TrColor: TColor32);
var
  P: PColor32;
  C: TColor32;
  I: Integer;
begin
  TrColor := TrColor and $00FFFFFF; // erase alpha, (just in case it has some)
  with ABitmap do
  begin
    P := PixelPtr[0, 0];
    for I := 0 to Width * Height - 1 do
    begin
      C := P^ and $00FFFFFF; // get RGB without alpha
      if C = TrColor then // is this pixel "transparent"?
        P^ := C; // write RGB with "transparent" alpha back into the SrcBitmap
      Inc(P); // proceed to the next pixel
    end;
  end;
end;

[Hallo_Thomas]

Ist mir irgendwie noch unklar wie ich das anwende, gibt es ein Beispielprogramm vieleicht!