Changeset 30 for trunk/UCore.pas

Timestamp:

Jun 28, 2024, 11:08:43 PM (4 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/UCore.pas (modified) (5 diffs)

trunk/UCore.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, FileUtil, Controls, ActnList, UDatabase, UTranslator,
-  UApplicationInfo, UPersistentForm, Forms, URegistry, UScaleDPI;
+  Classes, SysUtils, FileUtil, Controls, ActnList, UDatabase, Translator,
+  ApplicationInfo, PersistentForm, Forms, RegistryEx, ScaleDPI;
 
 type
@@ -55 +55 @@
 
 uses
-  UFormTables, UFormConnect, UAboutDialog, UFormDatabases, UFormPreferences,
+  UFormTables, UFormConnect, FormAbout, UFormDatabases, UFormPreferences,
   UFormMain;
 
@@ -100 +100 @@
 procedure TCore.AAboutExecute(Sender: TObject);
 begin
-  with TAboutDialog.Create(nil) do
+  with TFormAbout.Create(nil) do
   try
     ApplicationInfo := ApplicationInfo1;
-    Show;
+    ShowModal;
   finally
     Free;
@@ -151 +151 @@
   try
     CurrentContext := TRegistryContext.Create(rrKeyCurrentUser, DefaultRegKey);
-    Preferences.RememberDatabase := GetValue('RememberDatabase', True);
-    Preferences.LastDatabaseName := GetValue('LastDatabaseName', '');
+    Preferences.RememberDatabase := ReadBoolWithDefault('RememberDatabase', True);
+    Preferences.LastDatabaseName := ReadStringWithDefault('LastDatabaseName', '');
     Translator1.Language := Translator1.Languages.SearchByCode(
-      GetValue('Language', ''));
+      ReadStringWithDefault('Language', ''));
   finally
     Free;
@@ -166 +166 @@
   try
     CurrentContext := TRegistryContext.Create(rrKeyCurrentUser, DefaultRegKey);
-    SetValue('RememberDatabase', Preferences.RememberDatabase);
-    SetValue('LastDatabaseName', Preferences.LastDatabaseName);
-    SetValue('Language', Translator1.Language.Code);
+    WriteBool('RememberDatabase', Preferences.RememberDatabase);
+    WriteString('LastDatabaseName', Preferences.LastDatabaseName);
+    WriteString('Language', Translator1.Language.Code);
   finally
     Free;