Advertisement
Guest User

Untitled

a guest
Dec 30th, 2013
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Diff 2.31 KB | None | 0 0
  1. Index: LuaCalendar.pas
  2. ===================================================================
  3. --- LuaCalendar.pas (wersja 0)
  4. +++ LuaCalendar.pas (kopia robocza)
  5. @@ -0,0 +1,57 @@
  6. +unit LuaCalendar;
  7. +
  8. +{$mode delphi}
  9. +
  10. +interface
  11. +
  12. +uses
  13. +  Classes, SysUtils, lua, lualib, lauxlib, LuaHandler,
  14. +  pluginexports, controls, ComCtrls;
  15. +
  16. +procedure initializeLuaCalendar;
  17. +
  18. +implementation
  19. +
  20. +uses luaclass, LuaWinControl, Calendar;
  21. +
  22. +
  23. +function createCalendar(L: Plua_State): integer; cdecl;
  24. +var
  25. +  Calendar: TCalendar;
  26. +  parameters: integer;
  27. +  owner: TWincontrol;
  28. +begin
  29. +  result:=0;
  30. +
  31. +  parameters:=lua_gettop(L);
  32. +  if parameters>=1 then
  33. +    owner:=lua_toceuserdata(L, -parameters)
  34. +  else
  35. +    owner:=nil;
  36. +
  37. +  lua_pop(L, lua_gettop(L));
  38. +
  39. +
  40. +  Calendar:=TCalendar.Create(owner);
  41. +  if owner<>nil then
  42. +    Calendar.Parent:=owner;
  43. +
  44. +  luaclass_newClass(L, Calendar);
  45. +  result:=1;
  46. +end;
  47. +
  48. +procedure Calendar_addMetaData(L: PLua_state; metatable: integer; userdata: integer );
  49. +begin
  50. +  wincontrol_addMetaData(L, metatable, userdata);
  51. +end;
  52. +
  53. +procedure initializeLuaCalendar;
  54. +begin
  55. +  lua_register(LuaVM, 'createCalendar', createCalendar);
  56. +end;
  57. +
  58. +initialization
  59. +  luaclass_register(TCustomCalendar, Calendar_addMetaData);
  60. +
  61. +end.
  62. +
  63. Index: LuaHandler.pas
  64. ===================================================================
  65. --- LuaHandler.pas  (wersja 2294)
  66. +++ LuaHandler.pas  (kopia robocza)
  67. @@ -63,7 +63,7 @@
  68.    debuggertypedefinitions, symbolhandler, frmautoinjectunit, simpleaobscanner,
  69.    addresslist, memscan, foundlisthelper, cesupport, DBK32functions, sharedMemory,
  70.    disassemblerComments, disassembler, LuaCanvas, LuaPen, LuaFont, LuaBrush, LuaPicture, LuaMenu,
  71. -  LuaDebug, LuaThread, LuaGraphic, LuaProgressBar, LuaOldD3DHook, LuaWinControl,
  72. +  LuaDebug, LuaThread, LuaGraphic, LuaProgressBar, LuaCalendar, LuaOldD3DHook, LuaWinControl,
  73.    LuaMemoryRecord, LuaForm, MemoryBrowserFormUnit, disassemblerviewunit, hexviewunit,
  74.    CustomTypeHandler, LuaStructure, LuaRegion, LuaXMPlayer, LuaMemscan, LuaFoundlist,
  75.    LuaRadioGroup, LuaRasterImage, LuaCheatComponent, LuaAddresslist, byteinterpreter,
  76. @@ -4740,6 +4740,7 @@
  77.      initializeLuaListbox;
  78.      initializeLuaCombobox;
  79.      initializeLuaProgressbar;
  80. +    initializeLuaCalendar;
  81.      initializeLuaTrackbar;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement