全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1583
推到 Plurk!
推到 Facebook!

没人回答,再来个吧:请问怎么把GIF缩小而不出现锯齿?

答題得分者是:RootKit
rainxie
一般會員


發表:20
回覆:27
積分:14
註冊:2008-03-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-08-02 18:21:38 IP:58.38.xxx.xxx 訂閱
我用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;
RootKit
資深會員


發表:16
回覆:357
積分:419
註冊:2008-01-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-08-03 09:43:04 IP:122.126.xxx.xxx 訂閱
你阿土啊!
TGIFImage 格式如何能直接用 Bitmap 方式作 Antialias。然後 canvas.Draw 是 draw 到哪裡去。

天啊!雖然今天是禮拜天,我可不想浪費寶貴的時間在這題上。
rainxie
一般會員


發表:20
回覆:27
積分:14
註冊:2008-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-08-03 10:06:57 IP:58.38.xxx.xxx 訂閱
惭愧,自己已解决,不过还是谢谢您!该骂,呵呵呵
系統時間:2017-10-19 13:29:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!