Updated Libraries & Migrated Project to Delphi 10.4

Keyboard and Spell checker/Avro_Keyboard.dpr

@@ -1,39 +1,31 @@
 {
-	=============================================================================
-	*****************************************************************************
-	The contents of this file are subject to the Mozilla Public License
-	Version 1.1 (the "License"); you may not use this file except in
-	compliance with the License. You may obtain a copy of the License at
-	http://www.mozilla.org/MPL/
-
-	Software distributed under the License is distributed on an "AS IS"
-	basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
-	License for the specific language governing rights and limitations
-	under the License.
-
-	The Original Code is Avro Keyboard 5.
-
-	The Initial Developer of the Original Code is
-	Mehdi Hasan Khan <[email protected]>.
-
-	Copyright (C) OmicronLab <http://www.omicronlab.com>. All Rights Reserved.
-
-
-	Contributor(s): ______________________________________.
-
-	*****************************************************************************
-	=============================================================================
+  =============================================================================
+  *****************************************************************************
+  The contents of this file are subject to the Mozilla Public License
+  Version 1.1 (the "License"); you may not use this file except in
+  compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/
+  Software distributed under the License is distributed on an "AS IS"
+  basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
+  License for the specific language governing rights and limitations
+  under the License.
+  The Original Code is Avro Keyboard 5.
+  The Initial Developer of the Original Code is
+  Mehdi Hasan Khan <[email protected]>.
+  Copyright (C) OmicronLab <http://www.omicronlab.com>. All Rights Reserved.
+
+  Contributor(s): ______________________________________.
+  *****************************************************************************
+  =============================================================================
 }
-
 Program Avro_Keyboard;
 
 uses
   Forms,
   Windows,
-  uForm1 in 'Forms\uForm1.pas' { AvroMainForm1 },
+  uForm1 in 'Forms\uForm1.pas' {AvroMainForm1} ,
   BanglaChars in 'Units\BanglaChars.pas',
-  nativexml in 'Units\nativexml.pas',
-  uTopBar in 'Forms\uTopBar.pas' { TopBar },
+  uTopBar in 'Forms\uTopBar.pas' {TopBar} ,
   SkinLoader in 'Units\SkinLoader.pas',
   KeyboardLayoutLoader in 'Units\KeyboardLayoutLoader.pas',
   clsEnglishToBangla in 'Classes\clsEnglishToBangla.pas',
@@ -51,23 +43,23 @@ uses
   uFileFolderHandling in 'Units\uFileFolderHandling.pas',
   u_VirtualFontInstall in 'Units\u_VirtualFontInstall.pas',
   u_Admin in 'Units\u_Admin.pas',
-  ufrmAbout in 'Forms\ufrmAbout.pas' { frmAbout },
-  ufrmAboutSkinLayout in 'Forms\ufrmAboutSkinLayout.pas' { frmAboutSkinLayout },
-  ufrmAutoCorrect in 'Forms\ufrmAutoCorrect.pas' { frmAutoCorrect },
-  ufrmAvroMouse in 'Forms\ufrmAvroMouse.pas' { frmAvroMouse },
-  ufrmOptions in 'Forms\ufrmOptions.pas' { frmOptions },
-  ufrmPrevW in 'Forms\ufrmPrevW.pas' { frmPrevW },
-  ufrmUpdateNotify in 'Forms\ufrmUpdateNotify.pas' { frmUpdateNotify },
-  uLayoutViewer in 'Forms\uLayoutViewer.pas' { LayoutViewer },
+  ufrmAbout in 'Forms\ufrmAbout.pas' {frmAbout} ,
+  ufrmAboutSkinLayout in 'Forms\ufrmAboutSkinLayout.pas' {frmAboutSkinLayout} ,
+  ufrmAutoCorrect in 'Forms\ufrmAutoCorrect.pas' {frmAutoCorrect} ,
+  ufrmAvroMouse in 'Forms\ufrmAvroMouse.pas' {frmAvroMouse} ,
+  ufrmOptions in 'Forms\ufrmOptions.pas' {frmOptions} ,
+  ufrmPrevW in 'Forms\ufrmPrevW.pas' {frmPrevW} ,
+  ufrmUpdateNotify in 'Forms\ufrmUpdateNotify.pas' {frmUpdateNotify} ,
+  uLayoutViewer in 'Forms\uLayoutViewer.pas' {LayoutViewer} ,
   uProcessHandler in 'Units\uProcessHandler.pas',
   uWindowHandlers in 'Units\uWindowHandlers.pas',
   clsUpdateInfoDownloader in 'Classes\clsUpdateInfoDownloader.pas',
   clsFileVersion in 'Classes\clsFileVersion.pas',
   WindowsVersion in 'Units\WindowsVersion.pas',
   uLocale in 'Units\uLocale.pas',
   Phonetic_RegExp_Constants in 'Units\Phonetic_RegExp_Constants.pas',
-  PCRE in 'Units\PCRE.pas',
-  pcre_dll in 'Units\pcre_dll.pas',
+  // PCRE in 'Units\PCRE.pas',
+  // pcre_dll in 'Units\pcre_dll.pas',
   clsPhoneticRegExBuilder in 'Classes\clsPhoneticRegExBuilder.pas',
   uDBase in 'Units\uDBase.pas',
   uRegExPhoneticSearch in 'Units\uRegExPhoneticSearch.pas',
@@ -78,73 +70,63 @@ uses
   clsSkinLayoutConverter in 'Classes\clsSkinLayoutConverter.pas',
   uCmdLineHelper in 'Units\uCmdLineHelper.pas',
   uCommandLineFunctions in 'Units\uCommandLineFunctions.pas',
-  ufrmConflict in 'Forms\ufrmConflict.pas' { frmConflict },
-  uFrmSplash in 'Forms\uFrmSplash.pas' { frmSplash },
+  ufrmConflict in 'Forms\ufrmConflict.pas' {frmConflict} ,
+  uFrmSplash in 'Forms\uFrmSplash.pas' {frmSplash} ,
   clsAbbreviation in 'Classes\clsAbbreviation.pas',
-  clsUnicodeToBijoy2000 in '..\Unicode to ascii converter\clsUnicodeToBijoy2000.pas',
-  ufrmEncodingWarning in 'Forms\ufrmEncodingWarning.pas' { frmEncodingWarning };
+  clsUnicodeToBijoy2000
+    in '..\Unicode to ascii converter\clsUnicodeToBijoy2000.pas',
+  ufrmEncodingWarning in 'Forms\ufrmEncodingWarning.pas' {frmEncodingWarning};
 
 Var
-		 Mutex: THandle;
-
-		 {$R *.res}
-		 {$R docico.res}
+  Mutex: THandle;
+{$R *.res}
+{$R docico.res}
 
 Begin
-		 { Disable FPU exceptions. No need to restore, setting is process specific. }
-		 Set8087CW($133F);
-
-
-		 /// ////////////////////////////////////////////////////////////////////////////
-		 // Check parameters
-		 If uCommandLineFunctions.HandleAllCommandLine Then Begin
-					Application.Terminate;
-					exit;
-		 End;
-
-
-		 /// ///////////////////////////////////////////////////////////////////////////
-		 { DONE : check for previous instance }
-		 Mutex := CreateMutex(Nil, True, 'Avro_Keyboard');
-		 If (Mutex = 0) Or (GetLastError <> 0) Then Begin
-
-					uCommandLineFunctions.SendCommand('restore');
-
-					Application.MessageBox('Avro Keyboard is already running on this system and' + #10 + 'running more than one instance is not allowed.', 'Avro Keyboard',
-							 MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
-
-					Application.Terminate;
-					exit;
-		 End;
-		 /// /////////////////////////////////////////////////////////////
-
-
-
-		 /// ///////////////////////////////////////////////////////////////////////////
-		 // Load Avro
-		 Application.Initialize;
-
-		 // Hide Application from taskbar
-		 Application.Title := 'Launching Avro Keyboard...';
-		 SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) Or WS_EX_TOOLWINDOW);
-		 Application.MainFormOnTaskBar := False;
-
-
-		 // First item is applications main form
-		 Application.CreateForm(TAvroMainForm1, AvroMainForm1);
+  { Disable FPU exceptions. No need to restore, setting is process specific. }
+  Set8087CW($133F);
+
+  /// ////////////////////////////////////////////////////////////////////////////
+  // Check parameters
+  If uCommandLineFunctions.HandleAllCommandLine Then
+  Begin
+    Application.Terminate;
+    exit;
+  End;
+
+  /// ///////////////////////////////////////////////////////////////////////////
+  { DONE : check for previous instance }
+  Mutex := CreateMutex(Nil, True, 'Avro_Keyboard');
+  If (Mutex = 0) Or (GetLastError <> 0) Then
+  Begin
+    uCommandLineFunctions.SendCommand('restore');
+    Application.MessageBox('Avro Keyboard is already running on this system and'
+      + #10 + 'running more than one instance is not allowed.', 'Avro Keyboard',
+      MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
+    Application.Terminate;
+    exit;
+  End;
+  /// /////////////////////////////////////////////////////////////
+
+  /// ///////////////////////////////////////////////////////////////////////////
+  // Load Avro
+  Application.Initialize;
+  // Hide Application from taskbar
+  Application.Title := 'Launching Avro Keyboard...';
+  SetWindowLong(Application.Handle, GWL_EXSTYLE,
+    GetWindowLong(Application.Handle, GWL_EXSTYLE) Or WS_EX_TOOLWINDOW);
+  Application.MainFormOnTaskBar := False;
+
+  // First item is applications main form
+  Application.CreateForm(TAvroMainForm1, AvroMainForm1);
   Application.Title := '';
-		 // Hide Application from taskbar
-		 ShowWindow(Application.Handle, SW_HIDE);
-
-
-
-
-
-		 Application.Run;
-		 /// /////////////////////////////////////////////////////
+  // Hide Application from taskbar
+  ShowWindow(Application.Handle, SW_HIDE);
 
+  Application.Run;
+  /// /////////////////////////////////////////////////////
 
-		 If Mutex <> 0 Then
-					CloseHandle(Mutex);
+  If Mutex <> 0 Then
+    CloseHandle(Mutex);
 
 End.