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 隐藏,显示其他程序的托盘图标

Delphi 调用golang dll

Delphi xe7使用本身的md5单元进行字符串加密

Delphi 获取网卡mac代码可用2020.01.22

Delphi中time消息的使用方法

Delphi 根据注册表信息判断程序是否安装

tsqlconnection连接mysql(utf8)的问题

Delphi注入下载者源代码

Delphi 在单独线程中运行窗体

Delphi获取千千静听歌词下载地址源码

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...