Changeset 6 for trunk/UCore.pas

Timestamp:

Nov 14, 2012, 10:35:10 AM (12 years ago)

Author:

chronos

Message:

• Přidáno: Zobrazení seznamu položek dle zadání struktury tabulky pomocí definice sloupců seznamu.
• Přidáno: Pamatování si pozice a velikosti okna.
• Přidáno: Překlad rozhraní do češtiny.

File:

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

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Registry, Classes, SysUtils, FileUtil, USqlDatabase, URegistry, UApplicationInfo;
+  Registry, Classes, SysUtils, FileUtil, USqlDatabase, URegistry, Forms,
+  UApplicationInfo, UCoolTranslator, UPersistentForm;
 
 type
@@ -14 +15 @@
   TCore = class(TDataModule)
     ApplicationInfo1: TApplicationInfo;
+    CoolTranslator1: TCoolTranslator;
     Database: TSqlDatabase;
     procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
   private
   public
+    FormUsers: TForm;
+    FormTerminals: TForm;
+    PersistentForm: TPersistentForm;
     procedure Init;
     procedure Done;
@@ -33 +39 @@
 {$R *.lfm}
 
+
 { TCore }
 
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
+  PersistentForm := TPersistentForm.Create;
+  PersistentForm.RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot),
+    ApplicationInfo1.RegistryKey + '\Forms');
+end;
+
+procedure TCore.DataModuleDestroy(Sender: TObject);
+begin
+  FreeAndNil(PersistentForm);
 end;
 
@@ -42 +57 @@
 begin
   LoadFromRegistry(RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey));
+//  LoadFromRegistry(RegContext(HKEY_CURRENT_USER, '\Software\Chronosoft\Dochazka'));
+
   Connect;
 end;
@@ -72 +89 @@
   try
     RootKey := Context.RootKey;
-    OpenKey(Context.Key, True);
+    OpenKey('\Software\Chronosoft\Dochazka', True);
+    //OpenKey(Context.Key, True);
     Database.HostName := ReadStringWithDefault('HostName', 'localhost');
     Database.Database := ReadStringWithDefault('Schema', 'dochazka');
     Database.UserName := ReadStringWithDefault('UserName', 'dochazka');
     Database.Password := ReadStringWithDefault('Password', '');
+    CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('Language', ''));
   finally
     Free;
@@ -92 +111 @@
     WriteString('UserName', Database.UserName);
     WriteString('Password', Database.Password);
+    WriteString('Language', CoolTranslator1.Language.Code);
   finally
     Free;