image控件的Picture属性如何用?? Image1.Picture=????

sunfei4000 2003-12-08 05:45:04

??

...全文

186 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

lengda 2003-12-09

打赏
举报

回复

经检查，是书写错误，开来以后要小心了。

lengda 2003-12-09

打赏
举报

回复

我用Image1.Picture=LoadPicture("picture路径")时，报‘子程序或函数’未定义的错误。

51study 2003-12-08

打赏
举报

回复

Image1.Picture=loadpicture("picture路径")

Delphi7可用的PngImage控件 PNG Delphi v.1.564，可用于D7显示Png图片。使用方法：（Delphi 7 使用成功案例） 1、将本包中所有文件复制到开发文件保存的目录中 2、在USES单元中加入pngimage 3、窗体中插入image1控件 4、在调用位置，加入如下代码就OK啦！ var Png: TPngObject; begin Png := TPngObject.Create; try Png.LoadFromFile(getcurrentdir() + '\test.png'); img1.Picture.Assign(Png); finally Png.Free; end; end;

VB 动态改变图像框Image的Stretch属性，用户通过自定义的两款代码，可随意改变image的长度和宽度大小，不过本源码将此两种操作封装在按钮事件中，用户只需单击按钮，即可放大或缩小image框，动态改变了Image的Stretch属性，可以按如下方法定义按钮事件：　　Private Sub Form_Load() 　　Image1.Picture = LoadPicture(App.Path "\e055.ico") '加载图片　　End Sub 　　Private Sub Command1_Click() 　　Image1.Stretch = True '缩放图形来适应控件的大小　　End Sub 　　Private Sub Command2_Click() 　　Image1.Stretch = False '缩放控件来适应图形的大小　　End Sub 　　Private Sub Command3_Click() 　　Image1.Width = Image1.Width * 2 '放大图像框　　Image1.Height = Image1.Height * 2 　　End Sub 　　Private Sub Command4_Click() 　　Image1.Width = Image1.Width / 2 '缩小图像框　　Image1.Height = Image1.Height / 2 　　End Sub 　　完整的源代码请下载查看。

通过本教程您可以收获：（1）学会在windows上安装自己的显卡驱动（2）学会在windows上安装cuda+cudnn （3）学会在windows上安装anaconda3 （4）学会在windows安装PPOCRLabel以及使用PPOCRLabel标注自己的数据集 ...

使用方法：（Delphi 7 使用成功案例） 1、将本包中所有文件复制到开发文件保存的目录中 2、在USES单元中加入pngimage 3、窗体中插入image1控件 4、在调用位置，加入如下代码就OK啦！ var png: tpngimage; begin png := tpngimage.Create; png.LoadFromFile(getcurrentdir() + '\pic.png'); Image1.Picture.Bitmap.Assign(png); png.Free; end;

只要把里面的GIFImage.pas文件引用,然后添加Timage控件,就可以使用image1.picture.loadfromfile('xxx.gif');进行播放GIF动画了

1,451

社区成员

41,355

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章