paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 09:19:50 +01: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 *) (* ClipBoard *)
function HandleGetClipboard(Caller: TPSExec; p: TPSExternalProcRec; Global, Stack: TPSStack): Boolean; function HandleGetClipboard({%H-}Caller: TPSExec; {%H-}p: TPSExternalProcRec; {%H-}Global, Stack: TPSStack): Boolean;
var //var
e: TPSExec; // e: TPSExec;
begin begin
e := TPSExec(p.Ext1); //e := TPSExec(p.Ext1);
Stack.SetClass(-1, Clipboard); Stack.SetClass(-1, Clipboard);
Result := True; Result := True;
end; end;
procedure TClipboard_AsText_W(Self: TClipboard; S: String); procedure TClipboard_AsText_W({%H-}Self: TClipboard; S: String);
begin Clipboard.AsText := S; end; 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; begin S := Clipboard.AsText; end;
procedure CompRegisterTClipboard(AComp: TPSPascalCompiler); procedure CompRegisterTClipboard(AComp: TPSPascalCompiler);

11
components/macroscript/emscriptmacro.pas
View File

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