paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 15:48:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE EditorMacros: Fix saving macro, after editing in source-editor

Browse Source 
git-svn-id: trunk@43948 -
This commit is contained in:
martin 2014-02-08 01:03:30 +00:00
parent 6244202efc
commit 350b983c0e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/editormacrolistviewer.pas
View File

@ -244,7 +244,7 @@ var
SelectedEditorMacro: TEditorMacro = nil;
const
EditorMacroVirtualDrive = '%Macro:/';
EditorMacroVirtualDrive = '%Macro:|'; // do not use \ or /, they can be converted by the IDE
implementation
@ -1070,7 +1070,7 @@ begin
M := CurrentEditorMacroList.Macros[lbRecordedView.ItemIndex];
if M = nil then exit;
LazarusIDE.DoOpenEditorFile(
EditorMacroVirtualDrive+MacroListToName(CurrentEditorMacroList)+'/'+M.MacroName,
EditorMacroVirtualDrive+MacroListToName(CurrentEditorMacroList)+'|'+M.MacroName,
-1, -1, [ofVirtualFile, ofInternalFile]);
end;
@ -1347,14 +1347,14 @@ end;
function TMacroListView.MacroByFullName(AName: String): TEditorMacro;
const
FolderStart = length(EditorMacroVirtualDrive)+1;
NameStart = FolderStart+length('PRJ/');
NameStart = FolderStart+length('PRJ|');
var
Alist: TEditorMacroList;
i: Integer;
begin
Result := nil;
If (copy(AName, 1, length(EditorMacroVirtualDrive)) <> EditorMacroVirtualDrive) or
(copy(AName, NameStart-1, 1) <> '/')
(copy(AName, NameStart-1, 1) <> '|')
then exit;
Alist := NameToMacroList(copy(AName, FolderStart, 3));
if (Alist = nil) then exit;