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;

 

相关阅读 >>

Delphi 打造mygetprocaddress函数(Delphi源码)

Delphi使用idhttp 获取 httpsurl内容

Delphi xe2 硬盘序列号

Delphi strtofloat 将“字符型”转换成“浮点型”

扩展 Delphi 线程 使之传递参数.（给匿名线程增加参数）

Delphi 比较俩组ip地址是否一样

Delphi java设置环境变量小工具

Delphi stringgrid 实例3： 本例功能: 1、修改 tstringgrid的默认宽与高; 2、添加行; 3、确认当前单元并赋值.

Delphi窗口界面必学的知识

Delphi调用游戏call代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 选择一张照片，让照片缩略图显示在图片控件中间