Move HighContrastActive. Want to use it for SysLink later: its UseVisualStyle=False looks nice, but not when high contrast is active. And want to use it for the style test: dont think styling should be allowed when high contrast is active. Even though styling then still works, it would surely just annoy the end user?

Projects/Src/IDE.HelperFunc.pas

@@ -81,7 +81,6 @@ function ReadScriptLines(const ALines: TStringList; const ReadFromFile: Boolean;
 function CreateBitmapInfo(const Width, Height, BitCount: Integer): TBitmapInfo;
 function GetPreferredMemoFont: String;
 function DoubleAmp(const S: String): String;
-function HighContrastActive: Boolean;
 
 implementation
 
@@ -915,15 +914,6 @@ begin
   end;
 end;
 
-function HighContrastActive: Boolean;
-begin
-  var HighContrast: THighContrast;
-  HighContrast.cbSize := SizeOf(HighContrast);
-  Result := False;
-  if SystemParametersInfo(SPI_GETHIGHCONTRAST, HighContrast.cbSize, @HighContrast, 0) then
-    Result := (HighContrast.dwFlags and HCF_HIGHCONTRASTON) <> 0;
-end;
-
 initialization
   var OSVersionInfo: TOSVersionInfo;
   OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);

Projects/Src/Shared.CommonFunc.pas

@@ -150,6 +150,7 @@ procedure WaitMessageWithTimeout(const Milliseconds: DWORD);
 function MoveFileReplace(const ExistingFileName, NewFileName: String): Boolean;
 procedure TryEnableAutoCompleteFileSystem(Wnd: HWND);
 procedure CreateMutex(const MutexName: String);
+function HighContrastActive: Boolean;
 
 implementation
 
@@ -1577,6 +1578,15 @@ begin
   Windows.CreateMutex(@SecurityAttr, False, PChar(MutexName));
 end;
 
+function HighContrastActive: Boolean;
+begin
+  var HighContrast: THighContrast;
+  HighContrast.cbSize := SizeOf(HighContrast);
+  Result := False;
+  if SystemParametersInfo(SPI_GETHIGHCONTRAST, HighContrast.cbSize, @HighContrast, 0) then
+    Result := (HighContrast.dwFlags and HCF_HIGHCONTRASTON) <> 0;
+end;
+
 { TOneShotTimer }
 
 function TOneShotTimer.Expired: Boolean;