Randpixel von Icons glätten oder Imagelist mit PNG?

[glkgereon]

So, endlich zum testen gekommen :-)

Funktioniert Super, danke :thumb:

[glkgereon]

*und nochmal rauskram* :-D

Nun möchte ich das ganze mit Gif's machen...

Folgendes funktioniert mit png wunderbar:

Delphi-Quellcode:

  else if Ext='.png' then
  begin 
    P:=TPNGObject.Create;
    P.LoadFromFile(FileName);
    Bmp.Width:=P.Width;
    Bmp.Height:=P.Height;
    Bmp.Canvas.Brush.Color:=BC;
    Bmp.Canvas.FillRect(Rect(0,0,Bmp.Width,Bmp.Height));
    P.Draw(Bmp.Canvas,Rect(0,0,Bmp.Width,Bmp.Height));
    P.Free;
  end

im Prinzip das selbe mit gifs...

Delphi-Quellcode:

  else if Ext='.gif' then
  begin
    G:=TGIFImage.Create;
    G.LoadFromFile(FileName);
    Bmp.Width:=G.Width;
    Bmp.Height:=G.Height;
    Bmp.Canvas.Brush.Color:=BC;
    Bmp.Canvas.FillRect(Rect(0,0,Bmp.Width,Bmp.Height));
    G.Paint(Bmp.Canvas,Rect(0,0,Bmp.Width,Bmp.Height),[]);
    G.Free;
  end

wirft leider bei "G.Paint" eine Exception...
"Das Handle ist ungültig (6)"
:wiejetzt:

[glkgereon]

kommt, ihr könnt das :-)

[chaosben]

Ich wundere mich gerade, warum du das mit GIF's machen willst. Das GIF-Format kennt doch nur "transparent" oder "nicht-transparent". Warum sollte man das auf Bild denn vorher auf eine Farbe abmischen wollen? :gruebel:

[glkgereon]

Weil, wenn ich das einfach so einem Bitmap zuweise, die Bildecken schwarz sind...

[chaosben]

so funktioniert das bei mir:

Delphi-Quellcode:

procedure TForm1.btn_Button1Click(Sender: TObject);
var
  Gif : TGIFImage;
  bmp : TBitmap;
begin
  gif:=TGIFImage.Create;
  gif.LoadFromFile('c:\test.gif');
  bmp:=TBitmap.Create;
  bmp.Width:=gif.Width;
  bmp.Height:=gif.Height;
  bmp.PixelFormat:=pf24bit;
  bmp.Canvas.Brush.Color:=clRed;
  bmp.Canvas.FillRect(bmp.Canvas.ClipRect);
  bmp.Canvas.Draw(0,0, gif);
  Image1.Picture.Graphic:=bmp;
  gif.Free;
  bmp.Free;
end;

[glkgereon]

Danke, bei mir auch :-D

mit Assign ging es halt nicht :wall: