Changeset 20 for trunk/Packages/Common

Timestamp:

Mar 23, 2018, 1:59:25 PM (7 years ago)

Author:

chronos

Message:

• Modified: Database classes reorganized. Now TDbConnectProfile is class which holds information about connection to database.
• Modified: TDbManager is top most class for managing other database classes.
• Modified: TDbConnectParams class contains client specific parameters for connect profile.

Location:

trunk/Packages/Common

Files:

• UApplicationInfo.pas (modified) (2 diffs)
• UPersistentForm.pas (modified) (3 diffs)
• URegistry.pas (modified) (2 diffs)

trunk/Packages/Common/UApplicationInfo.pas

@@ -6 +6 @@
 
 uses
-  SysUtils, Registry, Classes, Forms, URegistry;
+  SysUtils, Classes, Forms, URegistry, LCLType;
 
 type
@@ -14 +14 @@
   TApplicationInfo = class(TComponent)
   private
-    FDescription: string;
+    FDescription: TTranslateString;
     FIdentification: Byte;
     FLicense: string;

trunk/Packages/Common/UPersistentForm.pas

@@ -56 +56 @@
   I: Integer;
   WinControl: TWinControl;
-  Count: Integer;
 begin
   if Control is TListView then begin
@@ -217 +216 @@
 
 procedure TPersistentForm.Load(Form: TForm; DefaultMaximized: Boolean = False);
-var
-  LoadDefaults: Boolean;
 begin
   Self.Form := Form;
@@ -230 +227 @@
 
   if not EqualRect(FormNormalSize, FormRestoredSize) or
-    (LoadDefaults and DefaultMaximized) then begin
+    DefaultMaximized then begin
     // Restore to maximized state
     Form.WindowState := wsNormal;

trunk/Packages/Common/URegistry.pas

@@ -37 +37 @@
     function DeleteKeyRecursive(const Key: string): Boolean;
     function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
+    function GetValue(const Name: string; const DefaultValue: Integer): Integer; overload;
+    function GetValue(const Name: string; const DefaultValue: string): string; overload;
+    function GetValue(const Name: string; const DefaultValue: Boolean): Boolean; overload;
+    function GetValue(const Name: string; const DefaultValue: Double): Double; overload;
+    procedure SetValue(const Name: string; const Value: Integer); overload;
+    procedure SetValue(const Name: string; const Value: string); overload;
+    procedure SetValue(const Name: string; const Value: Boolean); overload;
+    procedure SetValue(const Name: string; const Value: Double); overload;
     property CurrentContext: TRegistryContext read GetCurrentContext write SetCurrentContext;
   end;
@@ -97 +105 @@
       Result := DefaultValue;
     end;
+end;
+
+function TRegistryEx.GetValue(const Name: string; const DefaultValue: Integer
+  ): Integer;
+begin
+  Result := ReadIntegerWithDefault(Name, DefaultValue);
+end;
+
+function TRegistryEx.GetValue(const Name: string; const DefaultValue: string
+  ): string;
+begin
+  Result := ReadStringWithDefault(Name, DefaultValue);
+end;
+
+function TRegistryEx.GetValue(const Name: string; const DefaultValue: Boolean
+  ): Boolean;
+begin
+  Result := ReadBoolWithDefault(Name, DefaultValue);
+end;
+
+function TRegistryEx.GetValue(const Name: string; const DefaultValue: Double
+  ): Double;
+begin
+  Result := ReadFloatWithDefault(Name, DefaultValue);
+end;
+
+procedure TRegistryEx.SetValue(const Name: string; const Value: Integer);
+begin
+  WriteInteger(Name, Value);
+end;
+
+procedure TRegistryEx.SetValue(const Name: string; const Value: string);
+begin
+  WriteString(Name, Value);
+end;
+
+procedure TRegistryEx.SetValue(const Name: string; const Value: Boolean);
+begin
+  WriteBool(Name, Value);
+end;
+
+procedure TRegistryEx.SetValue(const Name: string; const Value: Double);
+begin
+  WriteFloat(Name, Value);
 end;