/script_binding/lua/demo_scrollbar.lua

http://ftk.googlecode.com/ · Lua · 68 lines · 49 code · 18 blank · 1 comment · 0 complexity · 30d98305fa85d2dd2f505843c68b7d4c MD5 · raw file

  1. function OnQuit(button)
  2. print("OnQuit: " .. button:GetText())
  3. Ftk.Quit()
  4. return RET_OK
  5. end
  6. function OnScroll(scrollbar)
  7. print("current value: " .. scrollbar:GetValue())
  8. return RET_OK
  9. end
  10. function AppInit()
  11. win=FtkAppWindow.Create()
  12. win:SetAttr(FTK_ATTR_QUIT_WHEN_CLOSE)
  13. win:SetText("Demo scrollbar")
  14. width=win:Width()
  15. height=win:Height()
  16. scroll_bar=FtkScrollBar.Create(win, width/8, 5, 0, height/2)
  17. scroll_bar:SetParam(0, 120, 120)
  18. scroll_bar:SetListener("OnScroll")
  19. scroll_bar=FtkScrollBar.Create(win, width/4, 5, 0, height/2)
  20. scroll_bar:SetParam(40, 120, 60)
  21. scroll_bar:SetListener("OnScroll")
  22. scroll_bar=FtkScrollBar.Create(win, 3*width/8, 5, 0, height/2)
  23. scroll_bar:SetParam(110, 120, 30)
  24. scroll_bar:SetListener("OnScroll")
  25. scroll_bar=FtkScrollBar.Create(win, width/2, 5, 0, height/2)
  26. scroll_bar:SetParam(120, 120, 20)
  27. scroll_bar:SetListener("OnScroll")
  28. -- h
  29. scroll_bar=FtkScrollBar.Create(win, 5, height/2 + 10, width - 10, 0)
  30. scroll_bar:SetParam(0, 120, 120)
  31. scroll_bar:SetListener("OnScroll")
  32. scroll_bar=FtkScrollBar.Create(win, 5, height/2 + 30, width - 10, 0)
  33. scroll_bar:SetParam(40, 120, 60)
  34. scroll_bar:SetListener("OnScroll")
  35. scroll_bar=FtkScrollBar.Create(win, 5, height/2 + 50, width - 10, 0)
  36. scroll_bar:SetParam(110, 120, 30)
  37. scroll_bar:SetListener("OnScroll")
  38. scroll_bar=FtkScrollBar.Create(win, 5, height/2 + 80, width - 10, 0)
  39. scroll_bar:SetParam(120, 120, 20)
  40. scroll_bar:SetListener("OnScroll")
  41. button=FtkButton.Create(win, 2*width/3, height/4, width/3-5, 50)
  42. button:SetText("Quit")
  43. button:SetClickedListener("OnQuit")
  44. win:SetFocus(button)
  45. win:ShowAll(1)
  46. return 1
  47. end
  48. Ftk.Init(1, {"scroll_bar"})
  49. AppInit()
  50. Ftk.Run()