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

Merged revision(s) 64891 #db10027e7d from trunk:

Browse Source 
IDE: make sure to always load form resources when resaving forms with i18n, bug #38640
........

git-svn-id: branches/fixes_2_0@64892 -
This commit is contained in:
maxim 2021-03-29 22:26:27 +00:00
parent c52f196400
commit 674ce565ff
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -4074,7 +4074,7 @@ begin
LFMFileName:=AnUnitInfo.UnitResourceFileformat.GetUnitResourceFilename(AnUnitInfo.Filename,true); LFMFileName:=AnUnitInfo.UnitResourceFileformat.GetUnitResourceFilename(AnUnitInfo.Filename,true);
if FileExistsCached(LFMFileName) and (not AnUnitInfo.DisableI18NForLFM) then if FileExistsCached(LFMFileName) and (not AnUnitInfo.DisableI18NForLFM) then
begin begin
OpenStatus:=LazarusIDE.DoOpenEditorFile(AnUnitInfo.Filename,-1,-1,[ofAddToRecent]); OpenStatus:=LazarusIDE.DoOpenEditorFile(AnUnitInfo.Filename,-1,-1,[ofAddToRecent, ofDoLoadResource]);
if OpenStatus=mrOk then if OpenStatus=mrOk then
begin begin
AnUnitInfo.Modified:=true; AnUnitInfo.Modified:=true;