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

縮圖問題

尚未結案
jay4878
一般會員


發表:9
回覆:8
積分:3
註冊:2005-05-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-07-31 16:24:06 IP:220.130.xxx.xxx 訂閱

各位先進.我有一個問題想請教.


我將桌面以類似keyboard上的print screen方式的功能.將它存成一個jpg圖檔大小約1024*768.


但我想要將此圖檔再縮小更多.要如何做呢?


(我有將原本存出的圖檔長.寛去除以10.大小是有變小.但畫面卻不是全圖裡內容.它只縮小顯示某一小區域)

Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-08-01 08:26:42 IP:210.65.xxx.xxx 未訂閱
------
Fishman
jay4878
一般會員


發表:9
回覆:8
積分:3
註冊:2005-05-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-08-01 09:34:45 IP:220.130.xxx.xxx 訂閱

謝謝Fishman.但我試了一下和我原本相同.它還是縮小到某一區域.而不是全圖縮小=.=

以下是我程式碼

TImg_s.Picture.Bitmap.Width := Sx_s div 2;
TImg_s.Picture.Bitmap.Height := Sy_s div 2;
TImg_s.Picture.Bitmap.Canvas.CopyRect(Rect(0,0,TImg_s.Picture.Bitmap.Width,TImg_s.Picture.Bitmap.Height),
TImg_s.Picture.Bitmap.Canvas,Rect(0,0,TImg_s.Picture.Bitmap.Width,TImg_s.Picture.Bitmap.Height));

不知那裡出錯

Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2006-08-01 11:15:46 IP:210.65.xxx.xxx 未訂閱

可否提供完整的 Codes ?

Fishman

------
Fishman
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#5 引用回覆 回覆 發表時間:2006-08-01 11:41:26 IP:210.65.xxx.xxx 未訂閱

翻箱倒櫃找了一下以前的程式,居然被我給找到了

改了一下

procedure TForm1.Button2Click(Sender: TObject);
var
BMP1,BMP2 : TBitMap;
begin
BMP1 := TBitMap.Create;
BMP2 := TBitMap.Create;
try
BMP1.LoadFromFile('Windows 2000.bmp');

BMP2.Width := Round(BMP1.Width / 2);
BMP2.Height := Round(BMP1.Height / 2);

BMP2.Canvas.BrushCopy(Rect(0,0,BMP1.Width,BMP1.Height),BMP1,Rect(0,0,BMP1.Width,BMP1.Height),clWhite);
SetStretchBltMode(BMP2.Canvas.Handle, COLORONCOLOR);
StretchBlt(BMP2.Canvas.Handle, 0, 0, BMP2.Width, BMP2.Height, BMP1.Canvas.Handle, 0, 0,BMP1.Width, BMP1.Height, SrcCopy);
BMP2.SaveToFile('Result.bmp');
finally
BMP1.Free;
BMP2.Free;
end;
end;

Fishman

------
Fishman
jay4878
一般會員


發表:9
回覆:8
積分:3
註冊:2005-05-31

發送簡訊給我
#6 引用回覆 回覆 發表時間:2006-08-01 13:04:29 IP:220.130.xxx.xxx 訂閱
謝謝Fishman
系統時間:2017-12-17 23:46:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!