本文整理自网络，侵删。
选择一张照片，让照片缩略图显示在图片控件中间。
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;
相关阅读 >>
tsqlconnection连接mysql(utf8)的问题
更多相关阅读请进入《Delphi》频道 >>
