我用GIFImage显示GIF，把image的stretch设为true后，发现图片很难看，有锯齿，网上查到说可以变为smooth，代码如下，但我执行出来没有图像，能帮忙看看吗？

救救我啊，谢谢您了！

procedure SmoothResize(var Bmp: TBitmap; SrcBmp: TBitmap; FrameColor: TColor = -1);
begin
SetStretchBltMode(Bmp.Canvas.Handle, STRETCH_HALFTONE);
StretchBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, SrcBmp.Canvas.Handle, 0, 0,
SrcBmp.Width, SrcBmp.Height, SRCCOPY);
if FrameColor > -1 then
begin
Bmp.Canvas.Brush.Color := FrameColor;
Bmp.Canvas.FrameRect(Rect(0, 0, Bmp.Width, Bmp.Height));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
begin
image1.Picture.LoadFromFile('c:\a.gif');
bmp := TBitmap.Create;
try
bmp.Width := 500;
bmp.Height := 600;
SmoothResize(bmp, Image1.Picture.Bitmap, clBlue);
canvas.Draw(0, 0, bmp);
finally
bmp.Free;
end;
end;

你阿土啊！
TGIFImage 格式如何能直接用 Bitmap 方式作 Antialias。然後 canvas.Draw 是 draw 到哪裡去。

天啊！雖然今天是禮拜天，我可不想浪費寶貴的時間在這題上。

惭愧，自己已解决，不过还是谢谢您！该骂，呵呵呵