paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 04:16:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: add resource strings for various windows manifest keys

Browse Source 
git-svn-id: trunk@36696 -
This commit is contained in:
paul 2012-04-10 02:28:44 +00:00
parent b976510e44
commit cf85a988a4
3 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/project_application_options.lfm
View File

@ -216,7 +216,7 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
Left = 125
Height = 23
Top = 284
Width = 160
Width = 223
BorderSpacing.Around = 6
ItemHeight = 15
Style = csDropDownList

11
ide/frames/project_application_options.pas
View File

@ -58,6 +58,13 @@ implementation
{$R *.lfm}
const
ExecutionLevelToCaption: array[TXPManifestExecutionLevel] of PString = (
{ xmelAsInvoker } @dlgPOAsInvoker,
{ xmelHighestAvailable } @dlgPOHighestAvailable,
{ xmelRequireAdministrator } @dlgPORequireAdministrator
);
function CreateProjectApplicationBundle(AProject: TProject): string;
// returns target file name
var
@ -202,8 +209,8 @@ begin
DpiAwareCheckBox.Caption := dlgPODpiAware;
ExecutionLevelLabel.Caption := dlgPOExecutionLevel;
for ExecutionLevel := Low(TXPManifestExecutionLevel) to High(TXPManifestExecutionLevel) do
ExecutionLevelComboBox.Items.Add(ExecutionLevelToStr[ExecutionLevel]);
UIAccessCheckBox.Caption := 'UIAccess';
ExecutionLevelComboBox.Items.Add(ExecutionLevelToCaption[ExecutionLevel]^);
UIAccessCheckBox.Caption := dlgPOUIAccess;
CreateAppBundleButton.Caption := dlgPOCreateAppBundle;
CreateAppBundleButton.LoadGlyphFromLazarusResource('pkg_compile');

4
ide/lazarusidestrconsts.pas
View File

@ -2195,6 +2195,10 @@ resourcestring
dlgPOCreateAppBundle = 'Create Application Bundle';
dlgPOUseManifest = 'Use manifest file to enable themes (Windows only)';
dlgPODpiAware = 'Enabled DPI Awareness (for Vista+)';
dlgPOUIAccess = 'UI Access (uiAccess)';
dlgPOAsInvoker = 'as invoker (asInvoker)';
dlgPOHighestAvailable = 'highest available (highestAvailable)';
dlgPORequireAdministrator = 'require administrator (requireAdministrator)';
dlgPOExecutionLevel = 'Execution Level';
dlgPOIcon = 'Icon:';
dlgPOLoadIcon = 'Load Icon';