*und nochmal rauskram*
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)"
