1. Index: LuaCaller.pas
  2. ===================================================================
  3. --- LuaCaller.pas (wersja 1707)
  4. +++ LuaCaller.pas (kopia robocza)
  5. @@ -26,6 +26,7 @@
  6. procedure SelectionChangeEvent(Sender: TObject; User: boolean);
  7. procedure MouseEvent(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  8. procedure MouseMoveEvent(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  9. + procedure MouseWheelUpDownEvent(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var h: Boolean);
  10. procedure KeyPressEvent(Sender: TObject; var Key: char);
  11. procedure LVCheckedItemEvent(Sender: TObject; Item: TListItem); //personal request to have this one added
  12. procedure CloseEvent(Sender: TObject; var CloseAction: TCloseAction);
  13. @@ -55,6 +56,7 @@
  14. function LuaCaller_CloseEvent(L: PLua_state): integer; cdecl;
  15. function LuaCaller_MouseEvent(L: PLua_state): integer; cdecl;
  16. function LuaCaller_MouseMoveEvent(L: PLua_state): integer; cdecl;
  17. +function LuaCaller_MouseWheelUpDownEvent(L: PLua_state): integer; cdecl;
  18. function LuaCaller_KeyPressEvent(L: PLua_state): integer; cdecl;
  19. function LuaCaller_LVCheckedItemEvent(L: PLua_state): integer; cdecl;
  20. function LuaCaller_MemoryRecordActivateEvent(L: PLua_state): integer; cdecl;
  21. @@ -514,6 +516,24 @@
  22. end;
  23. end;
  25. +procedure TLuaCaller.MouseWheelUpDownEvent(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var h: Boolean);
  26. +var oldstack: integer;
  27. +begin
  28. + Luacs.enter;
  29. + try
  30. + oldstack:=lua_gettop(Luavm);
  31. + pushFunction;
  32. + luaclass_newClass(luavm, sender);
  33. + lua_pushinteger(luavm, MousePos.x);
  34. + lua_pushinteger(luavm, MousePos.y);
  35. +
  36. + lua_pcall(LuaVM, 3, 0, 0);
  37. + finally
  38. + lua_settop(Luavm, oldstack);
  39. + luacs.leave;
  40. + end;
  41. +end;
  42. +
  43. procedure TLuaCaller.MouseMoveEvent(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  44. var oldstack: integer;
  45. begin
  46. @@ -729,6 +749,30 @@
  47. lua_pop(L, lua_gettop(L));
  48. end;
  50. +function LuaCaller_MouseWheelUpDownEvent(L: PLua_state): integer; cdecl;
  51. +var
  52. + parameters: integer;
  53. + m: TMethod;
  54. + sender: TObject;
  55. + p: TPoint;
  56. + b: Boolean;
  57. +begin
  58. + result:=0;
  59. + parameters:=lua_gettop(L);
  60. + if parameters=3 then
  61. + begin
  62. + m.code:=lua_touserdata(L, lua_upvalueindex(1));
  63. + m.data:=lua_touserdata(L, lua_upvalueindex(2));
  64. + sender:=lua_toceuserdata(L, 1);
  65. + p.x:=lua_tointeger(L, 2);
  66. + p.y:=lua_tointeger(L, 3);
  67. + lua_pop(L, lua_gettop(L));
  68. + TMouseWheelUpDownEvent(m)(sender, [], p, b);
  69. + end
  70. + else
  71. + lua_pop(L, lua_gettop(L));
  72. +end;
  73. +
  74. function LuaCaller_KeyPressEvent(L: PLua_state): integer; cdecl;
  75. var
  76. parameters: integer;
  77. @@ -989,7 +1033,8 @@
  78. registerLuaCall('TCloseEvent', LuaCaller_CloseEvent, pointer(TLuaCaller.CloseEvent),'function %s(sender)'#13#10#13#10'return caHide --Possible options: caHide, caFree, caMinimize, caNone'#13#10'end'#13#10);
  79. registerLuaCall('TMouseEvent', LuaCaller_MouseEvent, pointer(TLuaCaller.MouseEvent),'function %s(sender, button, x, y)'#13#10#13#10'end'#13#10);
  80. registerLuaCall('TMouseMoveEvent', LuaCaller_MouseMoveEvent, pointer(TLuaCaller.MouseMoveEvent),'function %s(sender, x, y)'#13#10#13#10'end'#13#10);
  81. - registerLuaCall('TKeyPressEvent', LuaCaller_KeyPressEvent, pointer(TLuaCaller.KeyPressEvent),'function %s(sender, key)'#13#10#13#10' return key'#1310'end'#13#10);
  82. + registerLuaCall('TMouseWheelUpDownEvent', LuaCaller_MouseWheelUpDownEvent, pointer(TLuaCaller.MouseWheelUpDownEvent),'function %s(sender, x, y)'#13#10#13#10'end'#13#10);
  83. + registerLuaCall('TKeyPressEvent', LuaCaller_KeyPressEvent, pointer(TLuaCaller.KeyPressEvent),'function %s(sender, key)'#13#10#13#10' return key'#13#10'end'#13#10);
  84. registerLuaCall('TLVCheckedItemEvent', LuaCaller_LVCheckedItemEvent, pointer(TLuaCaller.LVCheckedItemEvent),'function %s(sender, listitem)'#13#10#13#10'end'#13#10);
  85. registerLuaCall('TMemoryRecordActivateEvent', LuaCaller_MemoryRecordActivateEvent, pointer(TLuaCaller.MemoryRecordActivateEvent),'function %s(sender, before, current)'#13#10#13#10'end'#13#10);
  87. Index: LuaObject.pas
  88. ===================================================================
  89. --- LuaObject.pas (wersja 1707)
  90. +++ LuaObject.pas (kopia robocza)
  91. @@ -340,6 +340,9 @@
  92. if pi.PropType.Name ='TMouseMoveEvent' then
  93. m:=tmethod(TMouseMoveEvent(lc.MouseMoveEvent))
  94. else
  95. + if pi.PropType.Name ='TMouseWheelUpDownEvent' then
  96. + m:=tmethod(TMouseWheelUpDownEvent(lc.MouseWheelUpDownEvent))
  97. + else
  98. if pi.PropType.Name ='TKeyPressEvent' then
  99. m:=tmethod(TKeyPressEvent(lc.KeyPressEvent))
  100. else