X xieyongyi Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-18 #1 能自动调用图片文件和已经在程序中编写好的文字，并能自动全屏播放。
A AnionF Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-18 #2 1、建议直接在Form的Canvas上画图。 2、响应Form的Onclick，切换幻灯片。 3、全屏播放很简单，把你的程序全屏就好了。 思路就是这样，具体实现也不难。 在Form的Canvas上画字，可以用 Form.Canvas.Textout函数 画图，可以用 Form.Canvas.draw
1、建议直接在Form的Canvas上画图。 2、响应Form的Onclick，切换幻灯片。 3、全屏播放很简单，把你的程序全屏就好了。 思路就是这样，具体实现也不难。 在Form的Canvas上画字，可以用 Form.Canvas.Textout函数 画图，可以用 Form.Canvas.draw
X xieyongyi Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-22 #3 我收到，在问一句，就是我的比较大的图像文件在显示的时候该怎么把他缩放到屏幕能显示出来并居中在屏幕中间呢？
小 小雨哥 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-22 #4 建议你把下面这个帖子看完，把附件里的程序带回去略做加工就行了： http://www.01cn.net/cgi-bin/topic_show.cgi?id=302&h=1&bpg=1&age=30
建议你把下面这个帖子看完，把附件里的程序带回去略做加工就行了： http://www.01cn.net/cgi-bin/topic_show.cgi?id=302&h=1&bpg=1&age=30
A AnionF Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-22 #5 居中很好做,就是 左 := Form.Width - 你的图片.Width) div 2; 右 := Form.Hehght - 你的图片.Height) div 2; 缩放这个有点麻烦,最简单的方法就是先把图片方到一个Visable = False的Image 里面,用Image的缩放功能缩放到合适的大小后画到Canvas上 或者你研究一下Image的源码,看看Image的缩放是怎么做的,然 后从中找出那个算法就好了
居中很好做,就是 左 := Form.Width - 你的图片.Width) div 2; 右 := Form.Hehght - 你的图片.Height) div 2; 缩放这个有点麻烦,最简单的方法就是先把图片方到一个Visable = False的Image 里面,用Image的缩放功能缩放到合适的大小后画到Canvas上 或者你研究一下Image的源码,看看Image的缩放是怎么做的,然 后从中找出那个算法就好了
