Changeset 12 for trunk/Forms/UFormConnection.pas

Timestamp:

Nov 15, 2012, 8:06:57 AM (12 years ago)

Author:

chronos

Message:

• Přidáno: Další použité komponenty.
• Přidáno: Modulární systém pro uživatelské zavádění součástí aplikace.
• Opraveno: Ukládání nastavení do registrů.

File:

• trunk/Forms/UFormConnection.pas (modified) (3 diffs)

trunk/Forms/UFormConnection.pas

@@ -19 +19 @@
     EditUserName: TEdit;
     EditSchema: TEdit;
+    EditPassword: TEdit;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     Label4: TLabel;
-    MaskEditPassword: TMaskEdit;
   private
     { private declarations }
@@ -44 +44 @@
   EditHostName.Text := Database.HostName;
   EditUserName.Text := Database.UserName;
-  MaskEditPassword.Text := '';
+  EditPassword.Text := '';
   EditSchema.Text := Database.Database;
 end;
@@ -52 +52 @@
   Database.HostName := EditHostName.Text;
   Database.UserName := EditUserName.Text;
-  Database.Password := MaskEditPassword.Text;
+  Database.Password := EditPassword.Text;
   Database.Database := EditSchema.Text;
 end;