mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 02:16:14 +02:00
codetools: fixed savebufferas to virtual file, bug #12966
git-svn-id: trunk@18269 -
This commit is contained in:
parent
9a8987c091
commit
162095d09e
@ -391,7 +391,7 @@ begin
|
||||
NewBuffer.DiskEncoding:=NewBuffer.DiskEncoding;
|
||||
NewBuffer.MemEncoding:=NewBuffer.MemEncoding;
|
||||
NewBuffer.FCodeCache:=Self;
|
||||
Result:=NewBuffer.Save;
|
||||
Result:=NewBuffer.IsVirtual or NewBuffer.Save;
|
||||
//DebugLn('[TCodeCache.SaveBufferAs] C ',Result,' ',NewBuffer.IsVirtual);
|
||||
if not Result then begin
|
||||
NewBuffer.FCodeCache:=nil;
|
||||
|
@ -4287,6 +4287,7 @@ var
|
||||
begin
|
||||
LFMCode:=nil;
|
||||
ResourceCode:=nil;
|
||||
//DebugLn(['TMainIDE.DoLoadResourceFile ',AnUnitInfo.Filename,' HasResources=',AnUnitInfo.HasResources,' IgnoreSourceErrors=',IgnoreSourceErrors,' AutoCreateResourceCode=',AutoCreateResourceCode]);
|
||||
if AnUnitInfo.HasResources then begin
|
||||
//writeln('TMainIDE.DoLoadResourceFile A "',AnUnitInfo.Filename,'" "',AnUnitInfo.ResourceFileName,'"');
|
||||
LRSFilename:=MainBuildBoss.FindLRSFilename(AnUnitInfo,false);
|
||||
@ -4933,7 +4934,7 @@ begin
|
||||
SrcEdit:=GetSourceEditorForUnitInfo(AnUnitInfo);
|
||||
if NewUnitName='' then
|
||||
NewUnitName:=AnUnitInfo.UnitName;
|
||||
//debugln('TMainIDE.DoRenameUnit ',AnUnitInfo.Filename,' NewUnitName=',NewUnitName,' OldUnitName=',AnUnitInfo.UnitName);
|
||||
//debugln(['TMainIDE.DoRenameUnit ',AnUnitInfo.Filename,' NewUnitName=',NewUnitName,' OldUnitName=',AnUnitInfo.UnitName,' ResourceCode=',ResourceCode<>nil]);
|
||||
|
||||
// check new resource file
|
||||
NewLFMFilename:=ChangeFileExt(NewFilename,'.lfm');
|
||||
|
Loading…
Reference in New Issue
Block a user