我把 Image 控件 的大小固定在160*160 但是显示比它大的图像时不能全部显示,请问怎么样才能把图像按比例的缩小让整个图像显示出来呢?
解决方案 »
- 关于ADOQuery循环查找并定位多条记录的问题
- 有没有这样一种控件,可以直接连接数据库,但操作又是类似于EXCEL的?
- VISTA 64 下虚拟modem的问题
- 不同服务器表的复制
- 在类中创建类
- 欢迎光临超专业的技术文档搜索引擎www.51base.com,分数不多,up者有分
- 请问我这段代码接受网络数据,有什么毛病,总出现地址访问错误
- 怎样释放一个链表,头都大了,数据结构没学过.研究了半天也没搞明白,请大家帮忙了!有100分.
- deliph连接数据库
- 请问:那里有《Delphi4编程技术内幕》电子版 下载,就是Charlie Calvert写的那本?
- 二个简单问题:DateTimeToStr()和TStringList的
- 大家看看,我这个问题怎么解决?
Image.align=alClient
然后导入图像点PICTURE 弹出菜单 点LOAD 找到图像任何大小的都可。会显示出全部的图了。
判断Picture的尺寸,再按比例设置Image的大小,如按图片10%显示图片:
Image1.Stretch := True;
Image1.Width := Round(Image1.Picture.Width * 0.1);
Image1.Height := Round(Image1.Picture.Height * 0.1);
用image控件怎么编程把这控件里的图片通过弹出式菜单来放大和缩小。
谢谢!
如果想按原图的比例来显示的话,
要自己写代码。判断图像的宽高比与Image的宽高比。
你自己写写试试。
如果不行,联系我。[email protected]
Image.align=alClient
就ok!
Image.align=alClient因为image的大小比例与图像的在小比例有时候会不一致,
这样图像会变形。
所以必须自己计算。
image.align:=alClient;