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

IDE: win32 manifest: add DPI awarness V2, issue #31910

Browse Source 
git-svn-id: trunk@55153 -
This commit is contained in:
ondrej 2017-06-02 07:33:13 +00:00
parent 0d553830c5
commit 9f6d729968
3 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/frames/project_application_options.pas
View File

@ -244,6 +244,7 @@ begin
DpiLevelNames[xmdaTrue] := dlgPODpiAwarenessOn;
DpiLevelNames[xmdaPerMonitor] := dlgPODpiAwarenessOldOffNewPerMonitor;
DpiLevelNames[xmdaTruePM] := dlgPODpiAwarenessOldOnNewPerMonitor;
DpiLevelNames[xmdaPerMonitorV2] := dlgPODpiAwarenessOldOnNewPerMonitorV2;
ExecutionLevelLabel.Caption := dlgPOExecutionLevel;
for ExecutionLevel in TXPManifestExecutionLevel do

1
ide/lazarusidestrconsts.pas
View File

@ -2596,6 +2596,7 @@ resourcestring
dlgPODpiAwarenessOn = 'on';
dlgPODpiAwarenessOldOffNewPerMonitor = 'Vista-8: off, 8.1+: per monitor';
dlgPODpiAwarenessOldOnNewPerMonitor = 'Vista-8: on, 8.1+: per monitor';
dlgPODpiAwarenessOldOnNewPerMonitorV2 = 'Vista-8: on, 8.1/10+: per monitor/V2';
dlgPOUIAccess = 'UI Access (uiAccess)';
dlgPOAsInvoker = 'as invoker (asInvoker)';
dlgPOHighestAvailable = 'highest available (highestAvailable)';

16
ide/w32manifest.pas
View File

@ -55,7 +55,8 @@ type
xmdaFalse,
xmdaTrue,
xmdaPerMonitor,
xmdaTruePM
xmdaTruePM,
xmdaPerMonitorV2
);
type
@ -100,9 +101,18 @@ const
'False',
'True',
'Per-monitor',
'True/PM',
'True/PM'
);
ManifestDpiAwarenessValues: array[TXPManifestDpiAware] of string = (
'',
'',
'',
'',
'<dpiAwareness>PerMonitorV2, PerMonitor</dpiAwareness>'
);
implementation
const
@ -140,6 +150,7 @@ const
' <asmv3:application xmlns:asmv3="urn:schemas-microsoft-com:asm.v3">'#$D#$A+
' <asmv3:windowsSettings xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">'#$D#$A+
' <dpiAware>%s</dpiAware>'#$D#$A+
' %s'#$D#$A+
' </asmv3:windowsSettings>'#$D#$A+
' </asmv3:application>'#$D#$A+
'</assembly>';
@ -232,7 +243,8 @@ begin
TextDesc,
ExecutionLevelToStr[ExecutionLevel],
BoolToStr(UIAccess, 'true', 'false'),
ManifestDpiAwareValues[DpiAware]]);
ManifestDpiAwareValues[DpiAware],
ManifestDpiAwarenessValues[DpiAware]]);
Res.RawData.Write(ManifestFileData[1], Length(ManifestFileData));
AResources.AddSystemResource(Res);
end;