paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 13:39:18 +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, Classes, SysUtils, FileUtil, Laz2_XMLCfg, LCLProc, Controls, Forms,
CodeToolManager, LazConf, LResources, CodeToolManager, LazConf, LResources,
ProjectResourcesIntf, resource; ProjectResourcesIntf, resource;
const
DefaultXPManifestTextName = 'CompanyName.ProductName.AppName';
DefaultXPManifestTextDesc = 'Your application description.';
type type
TXPManifestExecutionLevel = ( TXPManifestExecutionLevel = (
xmelAsInvoker, xmelAsInvoker,
@ -205,8 +208,8 @@ begin
DpiAware := xmdaFalse; DpiAware := xmdaFalse;
ExecutionLevel := xmelAsInvoker; ExecutionLevel := xmelAsInvoker;
UIAccess := False; UIAccess := False;
TextName := 'CompanyName.ProductName.AppName'; TextName := DefaultXPManifestTextName;
TextDesc := 'Your application description.'; TextDesc := DefaultXPManifestTextDesc;
end; end;
function TProjectXPManifest.UpdateResources(AResources: TAbstractProjectResources; 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/DpiAware/Value', ManifestDpiAwareValues[DpiAware], ManifestDpiAwareValues[xmdaFalse]);
TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/ExecutionLevel/Value', ExecutionLevelToStr[ExecutionLevel], ExecutionLevelToStr[xmelAsInvoker]); 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/UIAccess/Value', UIAccess, False);
TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/TextName/Value', TextName, ''); TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/TextName/Value', TextName, DefaultXPManifestTextName);
TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/TextDesc/Value', TextDesc, ''); TXMLConfig(AConfig).SetDeleteValue(Path+'General/XPManifest/TextDesc/Value', TextDesc, DefaultXPManifestTextDesc);
end; end;
procedure TProjectXPManifest.ReadFromProjectFile(AConfig: TObject; procedure TProjectXPManifest.ReadFromProjectFile(AConfig: TObject;