moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-16 07:10:10 -05:00
Code Issues Releases Wiki Activity

Simba: GetClipBoard/SetClipBoard Added.

Browse Source
This commit is contained in:
John P (Dgby714) 2010-10-10 16:54:50 -04:00
parent b09880a116
commit 7f23ae10b5
4 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Projects/Simba/psextension.pas
View File

@ -68,6 +68,7 @@ uses
lclintf, lclintf,
httpsend, httpsend,
superobject, superobject,
Clipbrd,
SimbaUnit,updateform, mmisc, mmlpsthread; // for GetTickCount and others.//Writeln SimbaUnit,updateform, mmisc, mmlpsthread; // for GetTickCount and others.//Writeln
{$ifdef Linux} {$ifdef Linux}

10
Units/MMLAddon/PSInc/Wrappers/other.inc
View File

@ -264,3 +264,13 @@ function ps_Random(Int: integer): integer; extdecl;
begin begin
result := Random(int); result := Random(int);
end; end;
procedure ps_SetClipBoard(const Data: string); extdecl;
begin
Clipboard.AsText := Data;
end;
function ps_GetClipBoard: string; extdecl;
begin
Result := Clipboard.AsText;
end;

2
Units/MMLAddon/PSInc/psexportedmethods.inc
View File

@ -193,6 +193,8 @@ AddFunction(@ps_InputQuery,'function InputQuery(const ACaption, APrompt : String
AddFunction(@ps_ShowMessage,'procedure ShowMessage(msg : string);'); AddFunction(@ps_ShowMessage,'procedure ShowMessage(msg : string);');
AddFunction(@ps_messageBox,'function MessageBox(Text, Caption: string; Flags: LongInt): Integer;'); AddFunction(@ps_messageBox,'function MessageBox(Text, Caption: string; Flags: LongInt): Integer;');
AddFunction(@ps_MessageDlg,'function MessageDlg(const Caption, Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons) : integer;'); AddFunction(@ps_MessageDlg,'function MessageDlg(const Caption, Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons) : integer;');
AddFunction(@ps_SetClipBoard, 'procedure SetClipBoard(const Data: string);');
AddFunction(@ps_GetClipBoard, 'function GetClipBoard: string;');
{$ENDIF} {$ENDIF}
{string} {string}

4
Units/MMLAddon/mmlpsthread.pas
View File

@ -261,8 +261,8 @@ uses
tpa, //Tpa stuff tpa, //Tpa stuff
forms,//Forms forms,//Forms
SynRegExpr, SynRegExpr,
lclintf // for GetTickCount and others. lclintf, // for GetTickCount and others.
; Clipbrd;
{$ifdef Linux} {$ifdef Linux}
{$define PS_SafeCall} {$define PS_SafeCall}
{$else} {$else}