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 如何清空image1

Delphi中限制鼠标的移动区域

Delphi 向其他程序发送模拟按键

Delphi 延时程序

Delphi 根据关键字取关键词以后的字符串

Delphi 密码框写完后按enter直接登录

Delphi 得到执行程序的当前所在完整路径

Delphi 日期相关总结20190702完结篇

Delphi 修改ie首页代码

Delphi 调用浏览文件夹 selectdirectory

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



打赏

取消

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

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

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

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

评论

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