mirror of
https://github.com/cheat-engine/cheat-engine
synced 2026-08-15 02:26:08 -04:00
44 lines
1 KiB
ObjectPascal
44 lines
1 KiB
ObjectPascal
unit LuaFileDialog;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, dialogs, lua, lauxlib, lualib;
|
|
|
|
implementation
|
|
|
|
uses LuaClass, LuaHandler, LuaComponent;
|
|
|
|
function filedialog_getFiles(L: Plua_State): integer; cdecl;
|
|
var
|
|
t: TFileDialog;
|
|
begin
|
|
t:=luaclass_getClassObject(L);
|
|
luaclass_newClass(L, t.Files);
|
|
result:=1;
|
|
end;
|
|
|
|
function filedialog_execute(L: Plua_State): integer; cdecl;
|
|
var
|
|
t: TFileDialog;
|
|
begin
|
|
t:=luaclass_getClassObject(L);
|
|
lua_pushboolean(L, t.Execute);
|
|
result:=1;
|
|
end;
|
|
|
|
procedure filedialog_addMetaData(L: PLua_state; metatable: integer; userdata: integer );
|
|
begin
|
|
//only export "execute" and "Files", the rest is already published
|
|
component_addMetaData(L, metatable, userdata);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'execute', filedialog_execute);
|
|
Luaclass_addPropertyToTable(L, metatable, userdata, 'Files', filedialog_getFiles, nil);
|
|
end;
|
|
|
|
initialization
|
|
luaclass_register(tfiledialog, filedialog_addMetaData);
|
|
|
|
end.
|
|
|