40
Classes, SysUtils, Contnrs, Controls, LCLProc, LResources, FileUtil, Laz_XMLCfg,
41
Dialogs, ProjectIntf, ProjectResourcesIntf, LazarusIDEStrConsts, AvgLvlTree,
42
KeywordFuncLists, BasicCodeTools, IDEProcs, DialogProcs, CodeToolManager,
43
CodeCache, resource, reswriter,
44
W32Manifest,W32VersionInfo,ProjectIcon;
40
Classes, SysUtils, Contnrs, Controls, LCLProc, LResources, FileUtil,
41
Dialogs, AvgLvlTree, Laz2_XMLCfg, resource, reswriter,
42
KeywordFuncLists, BasicCodeTools, CodeToolManager, CodeCache,
43
ProjectIntf, ProjectResourcesIntf, CompOptsIntf,
45
IDEProcs, DialogProcs,
46
W32Manifest, W32VersionInfo, ProjectIcon;
47
49
{ TProjectResources }
561
564
if not CodeToolBoss.RemoveUnitFromAllUsesSections(CodeBuf, LazResourcesUnit) then
564
Messages.Add(Format(lisCouldNotRemoveFromMainSource, ['"',
565
LazResourcesUnit, '"']));
567
Messages.Add(Format(lisCouldNotRemoveFromMainSource, ['"',LazResourcesUnit,'"']));
566
568
debugln(['TProjectResources.UpdateMainSourceFile adding LResources to main source failed']);
573
575
if not CodeToolBoss.AddUnitToMainUsesSection(CodeBuf, LazResourcesUnit,'') then
576
Messages.Add(Format(lisCouldNotAddToMainSource, ['"', LazResourcesUnit,
578
Messages.Add(Format(lisCouldNotAddToMainSource, ['"',LazResourcesUnit,'"']));
578
579
debugln(['TProjectResources.UpdateMainSourceFile adding LResources to main source failed']);
631
632
if FLrsIncludeAllowed and HasLazarusResources then
633
634
//debugln(['TProjectResources.UpdateMainSourceFile include directive not found: FCanHaveLrsInclude=',FLrsIncludeAllowed,' HasLazarusResources=',HasLazarusResources]);
634
if not CodeToolBoss.AddIncludeDirective(CodeBuf,
635
if not CodeToolBoss.AddIncludeDirectiveForInit(CodeBuf,
635
636
Filename,'') then
708
709
Messages.Add('Could not remove "{$I '+ oldLrsFileName +'"} from main source!');
711
if not CodeToolBoss.AddIncludeDirective(CodeBuf, newLrsFileName, '') then
712
if not CodeToolBoss.AddIncludeDirectiveForInit(CodeBuf, newLrsFileName, '') then
714
715
debugln(['TProjectResources.RenameDirectives adding include directive to main source failed']);