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

IDE: project: fixed default value of XPManifest.TextName+TextDesc

Browse Source 
git-svn-id: trunk@53644 -
This commit is contained in:
mattias 2016-12-11 21:13:08 +00:00
parent b1c5dac366
commit cc8b085612
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/w32manifest.pas
View File

@ -40,7 +40,10 @@ uses
Classes, SysUtils, FileUtil, Laz2_XMLCfg, LCLProc, Controls, Forms,
CodeToolManager, LazConf, LResources,
ProjectResourcesIntf, resource;
const
DefaultXPManifestTextName = 'CompanyName.ProductName.AppName';
DefaultXPManifestTextDesc = 'Your application description.';
type
TXPManifestExecutionLevel = (
xmelAsInvoker,
@ -205,8 +208,8 @@ begin
DpiAware := xmdaFalse;
ExecutionLevel := xmelAsInvoker;
UIAccess := False;
TextName := 'CompanyName.ProductName.AppName';
TextDesc := 'Your application description.';
TextName := DefaultXPManifestTextName;
TextDesc := DefaultXPManifestTextDesc;
end;
function TProjectXPManifest.UpdateResources(AResources: TAbstractProjectResources;
@ -242,8 +245,8 @@ begin
TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/DpiAware/Value', ManifestDpiAwareValues[DpiAware], ManifestDpiAwareValues[xmdaFalse]);
TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/ExecutionLevel/Value', ExecutionLevelToStr[ExecutionLevel], ExecutionLevelToStr[xmelAsInvoker]);
TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/UIAccess/Value', UIAccess, False);
TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/TextName/Value', TextName, '');
TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/TextDesc/Value', TextDesc, '');
TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/TextName/Value', TextName, DefaultXPManifestTextName);
TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/TextDesc/Value', TextDesc, DefaultXPManifestTextDesc);
end;
procedure TProjectXPManifest.ReadFromProjectFile(AConfig: TObject;