<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    posts - 33, comments - 46, trackbacks - 0, articles - 2
    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

    只有注冊用戶登錄后才能發表評論。


    網站導航:
     
    主站蜘蛛池模板: 成人黄动漫画免费网站视频| 99热这里只有精品6免费| 在线免费一区二区| 亚洲国产91在线| 在线播放高清国语自产拍免费| 亚洲天堂一区在线| 99在线视频免费观看视频 | 亚洲AV无码一区二区大桥未久| 16女性下面扒开无遮挡免费| 亚洲国产综合第一精品小说| 91免费播放人人爽人人快乐| 亚洲国产精品人久久电影| 免费H网站在线观看的| 亚洲天然素人无码专区| 日本免费福利视频| 精选影视免费在线 | 91亚洲国产在人线播放午夜| 久久受www免费人成_看片中文| 亚洲精品乱码久久久久蜜桃| 亚洲国产天堂久久综合| 日韩免费高清播放器| 亚洲国产片在线观看| 国产网站免费观看| 亚洲五月午夜免费在线视频| 亚洲人成在线影院| 免费看大美女大黄大色| 人妻仑刮八A级毛片免费看| 国产精品亚洲аv无码播放| 57PAO成人国产永久免费视频| 亚洲AV无码男人的天堂 | 久久亚洲免费视频| 国产卡一卡二卡三免费入口| 国产亚洲精品精品精品| 婷婷亚洲综合五月天小说| 无限动漫网在线观看免费 | 亚洲第一中文字幕| 在线A级毛片无码免费真人| 美女被免费网站91色| 亚洲乱码一二三四区国产| 亚洲午夜精品久久久久久浪潮 | 亚洲国产中文v高清在线观看|