浏览代码

Opening same file in a second window don't destroy any changes

Margers 1 年之前
父节点
当前提交
528ff51a8f
共有 1 个文件被更改,包括 3 次插入1 次删除
  1. 3 1
      packages/ide/fpviews.pas

+ 3 - 1
packages/ide/fpviews.pas

@@ -2217,7 +2217,9 @@ begin
     AFileName:='';
   New(Editor, Init(R, HSB, VSB, Indicator,AFileName));
   Editor^.GrowMode:=gfGrowHiX+gfGrowHiY;
-  if LoadFile then
+  {load from file if there is no other window with the same file }
+  if Editor^.Core^.GetBindingCount = 1 then
+    if LoadFile then
     begin
       if Editor^.LoadFile=false then
         ErrorBox(FormatStrStr(msg_errorreadingfile,AFileName),nil)