寫在前面:
下面的這段代碼可以直接在LuaForWindows的Scite中運行,這個函數的是仿照LuaForWindows自帶教程中的那個創建iup菜單的函數寫的,改進的一個地方是可以用一個消息處理回調函數來響應多個菜單項,然后再統一dispatch,個人認為寫法上比直接把進行實際處理的函數寫在菜單定義表前面美觀一些,
說來慚愧,就改寫的這個小函數,也是調試了一大會才弄好的,剛接觸Lua的時候,就是不熟練啊...(廢話? !)


  require 'cdlua'
  require 'iuplua'
  require 'iupluacd'

  function event_handler_g (self)
      iup.Message(self.title,'dispatch message')
  end

  function event_handler1 (self)
      iup.Message(self.title,'event 1 dispatch message')
  end
  function event_handler2 (self)
      iup.Message(self.title,'event 2 dispatch message')
  end
  function event_handler3 (self)
      iup.Message(self.title,'event 3 dispatch message')
  end

  my_menu_test =
  {
      nil,'M1',{event_handler_g,'M11','M12','M13',{event_handler3,'M21','M22',},},'M2',{event_handler_g,'M22','M23',},
  }

  function my_create_menu2(menu_define_table)

      local items={}

      for k,v in pairs(menu_define_table) do
          if type(v) == 'function' or type(v)=='nil' then
  --~             event_handler=v
              ___my_library__global__event_handler=v
          end

          if type(v) =='string' then
  --~             local item=iup.item{title=v,action=event_handler}
              local item=iup.item{title=v,action=___my_library__global__event_handler}
              table.insert(items,item)
          end

          if type(v) =='table' then
              m1_menu_title=table.remove(items)
              local item=iup.submenu {my_create_menu2(v),title=tostring(m1_menu_title.title)}
              table.insert(items,item)
          end
      end--end of for
      return iup.menu(items)
  end

  my_main_frame=iup.frame
      {
          iup.canvas
          {
              cursor='CROSS',
              scrollbar='VERTICAL',
              posy=0.0,
              ymax=0.8,
          }
      }

  dlg = iup.dialog
  {
      my_main_frame,
      size="HALFxHALF",
      title="finally I got the expected result",
      menu=my_create_menu2(my_menu_test),
  }

  dlg:showxy(iup.CENTER,iup.CENTER)

  if (not iup.MainLoopLevel or iup.MainLoopLevel()==0) then
    iup.MainLoop()
  end

后記,已經發布在了我的粘貼里,不過它上面說是根據時間訪問來刪除舊帖子的,我怕時間久了這點記憶再沒有了

#if(_WIN32_WINNT>=0x0501)
#defineWS_EX_COMPOSITED       0x02000000L
#endif/* _WIN32_WINNT >= 0x0501 */

準備把語言寫的精煉一些,這樣節省作者和讀者的時間.

相關資料:這里不再摘錄,請自行查看msdn

問題描述:在窗口使用了WS_EX_COMPOSITED 風格后,繪圖就會變得不正常了,原因是xp特有的雙緩沖繪圖機制(可能后續版本Windows沒有,參考WS_EX_COMPOSITED 風格的定義,在msdn里)的bug(應該算是一個系統的bug)

問題1:GetDC系繪圖API不可用,表現為畫出來的內容會被立即刷新掉,這個應該不算bug,

解決方法:

把所有的繪圖操作放到WM_ERASEBKGND和WM_PAINT消息處理函數里,這個應該滿足大多數情況下的要求,特殊情況可以使用加bool標志的方法在這兩個函數里面繪圖,然后在需要使用GetDC的地方設置bool標志

問題2:即使在上述的兩個消息handler里面,GDI+繪圖操作還是無法正常工作,而同一個消息處理函數里面的GDI函數就可以工作,這個問題msdn論壇上有人問過,也給出了解決方案,我試了一下果然ok,這個問題應該是GDI+函數內部的問題,具體原因不明

解決方法:

使用內存dc繪圖.創建內存兼容dc,然后把這個內存兼容dc傳給GDI+,繪圖完成后,bitblt到原dc

至此,xp下的系統雙緩沖窗口可以正常工作了,也使用GDI+來繪圖了.

本文為俠客西風原創,請尊重別人勞動成果,如果轉載引用請保留作者出處,謝謝合作.