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

IDE: clean up

Browse Source 
git-svn-id: trunk@63608 -
This commit is contained in:
mattias 2020-07-20 21:22:17 +00:00
parent d0123e2ed8
commit 950091831c
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/sourcefilemanager.pas
View File

@ -4624,7 +4624,6 @@ var
OldUnitName, NewUnitName: string; OldUnitName, NewUnitName: string;
ACaption, AText, APath: string; ACaption, AText, APath: string;
Filter, AllEditorExt, AllFilter: string; Filter, AllEditorExt, AllFilter: string;
NeedOverwritePrompt: Boolean;
begin begin
if (AnUnitInfo<>nil) and (AnUnitInfo.OpenEditorInfoCount>0) then if (AnUnitInfo<>nil) and (AnUnitInfo.OpenEditorInfoCount>0) then
SrcEdit := TSourceEditor(AnUnitInfo.OpenEditorInfo[0].EditorComponent) SrcEdit := TSourceEditor(AnUnitInfo.OpenEditorInfo[0].EditorComponent)