mirror of
https://github.com/cheat-engine/cheat-engine
synced 2026-08-15 02:26:08 -04:00
27 lines
486 B
ObjectPascal
27 lines
486 B
ObjectPascal
unit LuaFindDialog;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, dialogs, luaclass, lua, lauxlib, luahandler;
|
|
|
|
procedure initializeLuaFindDialog;
|
|
|
|
implementation
|
|
|
|
function createFindDialog(L: Plua_State): integer; cdecl;
|
|
var fd: TFindDialog;
|
|
begin
|
|
luaclass_newClass(L, TFindDialog.Create(lua_ToCEUserData(L, -1)));
|
|
result:=1;
|
|
end;
|
|
|
|
procedure initializeLuaFindDialog;
|
|
begin
|
|
lua_register(LuaVM, 'createFindDialog', createFindDialog);
|
|
end;
|
|
|
|
end.
|
|
|