posts - 33, comments - 46, trackbacks - 0, articles - 2

PowerBuilder+Kodak Image Edit Control实现图片鼠标拖动、放大效果

Posted on 2007-04-11 17:21 在路上... 阅读(2082) 评论(0)  编辑  收藏 所属分类: PowerBuilder
PowerBuilder在显示图片方面的确是一个弱项，以前一直没有找到好的方法，如果自己用delphi写个ActiveX控件，在关闭的时候总会出现错误，实在是很郁闷，后来发现Kodak Image Edit Control就没有这个问题，而且可以支持BMP,DCX,GIF,JPG-JFIF,PCX,TIFF,WIFF,XIF等常见的图片格式，该控件在win98,win2000等环境中都已经安装好了，对于XP环境也可以简单的从Win2000移植过来。
1、鼠标放大、缩小效果
在OLE控件的other事件中加入下面的代码
 1Choose   Case   Message.Number   
 2  Case   522  
 3      if   IntHigh(message.wordparm)   =   120   then   //鼠标滚轮向上 
 4        if int(ole_1.object.zoom)<=20 then return
 5          ole_1.object.zoom= ole_1.object.zoom -10
 6      else   
 7          ole_1.object.zoom= ole_1.object.zoom+10
 8      end   if   
 9      ole_1.object.display()
10End   Choose
2、鼠标拖动效果
如果不想选择框老是出现的话，需要加入
ole_1.object.SelectionRectangle = False
1//1.定义Instance变量
2int mousex,mousey
3int moveon
以下代码属于OLE控件的事件
1//Event MouseDown事件
2moveon=1
3mousex=ocx_x
4mousey=ocx_y

1//MouseMove事件
2if moveon=0 then return
3ole_1.object.ScrollPositionX =ole_1.object.ScrollPositionX+(MouseX -ocx_x)
4ole_1.object.ScrollPositionY =ole_1.object.ScrollPositionY+(MouseY -ocx_y)
5ole_1.object.refresh()
6mousex=ocx_x
7mousey=ocx_y

1//mouseUp事件
2moveon=0

只有注册用户登录后才能发表评论。
网站导航: