paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

EditorMacroScript: clean up

Browse Source 
git-svn-id: trunk@39862 -
This commit is contained in:
martin 2013-01-15 20:15:13 +00:00
parent f0478fa8a2
commit 66c18deb3f
2 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/macroscript/emscriptclasses.pas
View File

@ -459,18 +459,18 @@ end;
(* ClipBoard *)
function HandleGetClipboard(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
var
e: TPSExec;
function HandleGetClipboard({%H-}Caller: TPSExec; {%H-}p: TPSExternalProcRec; {%H-}Global, Stack: TPSStack): Boolean;
//var
// e: TPSExec;
begin
e := TPSExec(p.Ext1);
//e := TPSExec(p.Ext1);
Stack.SetClass(-1, Clipboard);
Result := True;
end;
procedure TClipboard_AsText_W(Self: TClipboard; S: String);
procedure TClipboard_AsText_W({%H-}Self: TClipboard; S: String);
begin Clipboard.AsText := S; end;
procedure TClipboard_AsText_R(Self: TClipboard; var S: String);
procedure TClipboard_AsText_R({%H-}Self: TClipboard; var S: String);
begin S := Clipboard.AsText; end;
procedure CompRegisterTClipboard(AComp: TPSPascalCompiler);

11
components/macroscript/emscriptmacro.pas
View File

@ -28,7 +28,7 @@ type
function GetErrorMsg: String; override;
function GetKeyBinding: TEditorMacroKeyBinding; override;
procedure DoRecordMacro(aEditor: TWinControl); override;
procedure DoRecordMacro({%H-}aEditor: TWinControl); override;
procedure DoPlaybackMacro(aEditor: TWinControl); override;
procedure DoStop; override;
procedure DoPause; override;
@ -50,7 +50,7 @@ type
function IsEmpty: Boolean; override;
function IsInvalid: Boolean; override;
function IsRecording(AnEditor: TWinControl): Boolean; override;
function IsRecording({%H-}AnEditor: TWinControl): Boolean; override;
end;
@ -77,7 +77,7 @@ var
TheCLassImp: TPSRuntimeClassImporter;
function HandleEcCommandFoo(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
function HandleEcCommandFoo({%H-}Caller: TPSExec; p: TPSExternalProcRec; {%H-}Global, Stack: TPSStack): Boolean;
var
i: integer;
pt: TPoint;
@ -100,12 +100,13 @@ begin
Result := True;
end;
function HandleGetCaller(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean;
function HandleGetCaller({%H-}Caller: TPSExec; p: TPSExternalProcRec; {%H-}Global, Stack: TPSStack): Boolean;
var
e: TEMSTPSExec;
begin
e := TEMSTPSExec(p.Ext1);
Stack.SetClass(-1, e.SynEdit);
Result := True;
end;
function CompilerOnUses(Sender: TPSPascalCompiler; const Name: TbtString): Boolean;
@ -237,7 +238,7 @@ begin
Compile;
if IsInvalid then exit;
TheCompiler.GetOutput(s);
TheCompiler.GetOutput({%H-}s);
if not TheExec.LoadData(s) then // Load the data from the Data string.
exit;