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

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

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

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

參考一下

http://delphi.ktop.com.tw/board.php?cid=168&fid=921&tid=32450

Fishman

謝謝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));

不知那裡出錯

可否提供完整的 Codes ?

Fishman

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

改了一下

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