delphi 选择一张照片，让照片缩略图显示在图片控件中间

选择一张照片，让照片缩略图显示在图片控件中间。

procedure TForm1.TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);

begin

doDump(image,image1.Bitmap);

end;

procedure TForm1.doDump(tmpBmp:TBitmap; imgBmp:TBitmap);

var

w,h:integer;

begin

if tmpbmp.Width>tmpbmp.Height then

begin

h:=140;

w:=Ceil((140/tmpbmp.Height)*tmpbmp.Width);

end

else

begin

w:=140;

h:=Ceil((140/tmpbmp.Width)*tmpbmp.Height);

end;

imgbmp.Assign(tmpbmp.CreateThumbnail(w,h));

end;

推荐分享