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

ide: find lfm refs: better hack for revert designer, from Włodzimierz Bień

Browse Source
This commit is contained in:
mattias 2025-05-16 16:20:52 +02:00
parent d80d642a7e
commit 09dee74383
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/findrenameidentifier.pas
View File

@ -538,6 +538,7 @@ var
TreeOfPCodeXYPosition, LFMTreeOfPCodeXYPosition: TAVLTree;
Refs, OldRefs: TSrcNameRefs;
AUnitInfo: TUnitInfo;
PageIdx,WinID:integer;
begin
Result:=mrCancel;
if not LazarusIDE.BeginCodeTools then exit(mrCancel);
@ -850,6 +851,13 @@ begin
CloseUnitComponent(AUnitInfo, [cfCloseDependencies]);
SaveEditorFile(AUnitInfo.Filename,[sfProjectSaving, sfSkipReferences]);
SaveEditorFile(Code.Filename,[sfProjectSaving, sfSkipReferences]);
PageIdx:=AUnitInfo.EditorInfo[0].PageIndex;
WinID:=AUnitInfo.EditorInfo[0].WindowID;
OpenEditorFile(Code.Filename,PageIdx,WinID,AUnitInfo.EditorInfo[0],
[],true);
end;
end;
end;