paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 10:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Add process priority constants for latest FPC. Issue #34184, patch from Do-wan Kim.

Browse Source 
git-svn-id: trunk@58806 -
This commit is contained in:
juha 2018-08-31 08:15:05 +00:00
parent 26454daa11
commit f6dcfb9e4f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/utf8process.pp
View File

@ -359,7 +359,11 @@ end;
Const
PriorityConstants : Array [TProcessPriority] of Cardinal =
(HIGH_PRIORITY_CLASS,IDLE_PRIORITY_CLASS,
NORMAL_PRIORITY_CLASS,REALTIME_PRIORITY_CLASS);
NORMAL_PRIORITY_CLASS,REALTIME_PRIORITY_CLASS
{$if (FPC_FULLVERSION >= 30200) and not defined(WinCE)}
,BELOW_NORMAL_PRIORITY_CLASS,ABOVE_NORMAL_PRIORITY_CLASS
{$endif}
);
function WStrAsUniquePWideChar(var s: UnicodeString): PWideChar; inline;
begin