mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Lua - various clipboard functions

Browse source
This commit is contained in:
Alexander Koblov 2017-06-17 09:29:46 +00:00
commit ac4cab3c21
1 changed files with 33 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

35
src/uluapas.pas
View file

@ -36,8 +36,8 @@ function ExecuteScript(const FileName: String; Args: array of String): Boolean;
implementation
uses
Forms, Dialogs, LazUTF8, DCOSUtils, DCConvertEncoding, fMain, uFormCommands,
uOSUtils, uGlobs, uLog;
Forms, Dialogs, Clipbrd, LazUTF8, DCOSUtils, DCConvertEncoding, fMain,
uFormCommands, uOSUtils, uGlobs, uLog, uClipboard;
procedure luaPushSearchRec(L : Plua_State; var Rec: TSearchRec);
var
@ -121,6 +121,30 @@ begin
lua_pushboolean(L, mbDirectoryExists(lua_tostring(L, 1)));
end;
function luaClipbrdClear(L : Plua_State) : Integer; cdecl;
begin
Result:= 0;
Clipboard.Clear;
end;
function luaClipbrdGetText(L : Plua_State) : Integer; cdecl;
begin
Result:= 1;
lua_pushstring(L, PAnsiChar(Clipboard.AsText));
end;
function luaClipbrdSetText(L : Plua_State) : Integer; cdecl;
begin
Result:= 0;
ClipboardSetText(luaL_checkstring(L, 1));
end;
function luaClipbrdSetHtml(L : Plua_State) : Integer; cdecl;
begin
Result:= 0;
Clipboard.SetAsHtml(luaL_checkstring(L, 1));
end;
function luaGetEnvironmentVariable(L : Plua_State) : Integer; cdecl;
var
AValue: String;
@ -178,6 +202,13 @@ begin
luaP_register(L, 'DirectoryExists', @luaDirectoryExists);
lua_setglobal(L, 'SysUtils');
lua_newtable(L);
luaP_register(L, 'Clear', @luaClipbrdClear);
luaP_register(L, 'GetAsText', @luaClipbrdGetText);
luaP_register(L, 'SetAsText', @luaClipbrdSetText);
luaP_register(L, 'SetAsHtml', @luaClipbrdSetHtml);
lua_setglobal(L, 'Clipbrd');
lua_newtable(L);
luaP_register(L, 'ExecuteCommand', @luaExecuteCommand);
lua_setglobal(L, 'DC');