paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Margers 2024-09-04 08:27:34 +00:00 committed by Michael Van Canneyt
parent 31bc7c4054
commit 528ff51a8f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/ide/fpviews.pas
View File

@ -2217,7 +2217,9 @@ begin
AFileName:=''; AFileName:='';
New(Editor, Init(R, HSB, VSB, Indicator,AFileName)); New(Editor, Init(R, HSB, VSB, Indicator,AFileName));
Editor^.GrowMode:=gfGrowHiX+gfGrowHiY; 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 begin
if Editor^.LoadFile=false then if Editor^.LoadFile=false then
ErrorBox(FormatStrStr(msg_errorreadingfile,AFileName),nil) ErrorBox(FormatStrStr(msg_errorreadingfile,AFileName),nil)