mirror of
https://github.com/cheat-engine/cheat-engine
synced 2026-08-15 02:26:08 -04:00
50 lines
1.2 KiB
ObjectPascal
50 lines
1.2 KiB
ObjectPascal
unit LuaCustomControl;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Controls, lua, lualib, lauxlib;
|
|
|
|
procedure customcontrol_addMetaData(L: PLua_state; metatable: integer; userdata: integer );
|
|
procedure initializeLuaCustomControl;
|
|
|
|
implementation
|
|
|
|
uses luahandler, luaclass, LuaWinControl;
|
|
|
|
|
|
function customControl_getCanvas(L: PLua_State): integer; cdecl;
|
|
var
|
|
parameters: integer;
|
|
c: TCustomControl;
|
|
i: integer;
|
|
begin
|
|
c:=luaclass_getClassObject(L);
|
|
if c.Canvas.handle=0 then
|
|
i:=c.Canvas.Pixels[0,0];
|
|
|
|
luaclass_newClass(L, c.Canvas);
|
|
result:=1;
|
|
end;
|
|
|
|
procedure customcontrol_addMetaData(L: PLua_state; metatable: integer; userdata: integer );
|
|
begin
|
|
wincontrol_addMetaData(L, metatable, userdata);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'getCanvas', customControl_getCanvas);
|
|
luaclass_addPropertyToTable(L, metatable, userdata, 'Canvas', customControl_getCanvas, nil);
|
|
end;
|
|
|
|
procedure initializeLuaCustomControl;
|
|
begin
|
|
lua_register(LuaVM, 'customControl_getCanvas', customControl_getCanvas);
|
|
lua_register(LuaVM, 'customcontrol_getCanvas', customControl_getCanvas);
|
|
end;
|
|
|
|
initialization
|
|
luaclass_register(TCustomControl, customcontrol_addMetaData);
|
|
|
|
|
|
end.
|
|
|