37 lines
854 B
ObjectPascal
37 lines
854 B
ObjectPascal
unit LuaCommonDialog;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, dialogs, lua, lauxlib, lualib;
|
|
|
|
procedure commondialog_addMetaData(L: PLua_state; metatable: integer; userdata: integer );
|
|
|
|
implementation
|
|
|
|
uses LuaClass, LuaHandler, LuaComponent;
|
|
|
|
function commondialog_execute(L: Plua_State): integer; cdecl;
|
|
var
|
|
t: TFileDialog;
|
|
begin
|
|
t:=luaclass_getClassObject(L);
|
|
lua_pushboolean(L, t.Execute);
|
|
result:=1;
|
|
end;
|
|
|
|
procedure commondialog_addMetaData(L: PLua_state; metatable: integer; userdata: integer );
|
|
begin
|
|
//only export "execute" the rest is already published
|
|
component_addMetaData(L, metatable, userdata);
|
|
luaclass_addClassFunctionToTable(L, metatable, userdata, 'execute', commondialog_execute);
|
|
end;
|
|
|
|
initialization
|
|
luaclass_register(TCommonDialog, commondialog_addMetaData);
|
|
|
|
end.
|
|
|