Changeset 13 for trunk/Forms/UFormSettings.pas

Timestamp:

May 30, 2015, 1:02:36 PM (9 years ago)

Author:

chronos

Message:

• Added: New test form where general functionality of selected backend can be tested.
• Added: Basic git backend implementation.
• Added: Project group form and ability to open/save group of projects as configuration to XML file.

File:

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

trunk/Forms/UFormSettings.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  XMLConf;
 
 type
@@ -15 +16 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    EditUserName: TEdit;
+    EditEmail: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    procedure FormCreate(Sender: TObject);
   private
     { private declarations }
   public
-    { public declarations }
+    procedure Load(XMLConfig: TXMLConfig);
+    procedure Save(XMLConfig: TXMLConfig);
   end;
 
@@ -28 +35 @@
 {$R *.lfm}
 
+uses
+  UCore;
+
+{ TFormSettings }
+
+procedure TFormSettings.FormCreate(Sender: TObject);
+begin
+
+end;
+
+procedure TFormSettings.Load(XMLConfig: TXMLConfig);
+begin
+  EditUserName.Text := Core.UserName;
+  EditEmail.Text := Core.Email;
+end;
+
+procedure TFormSettings.Save(XMLConfig: TXMLConfig);
+begin
+  Core.UserName := EditUserName.Text;
+  Core.Email := EditEmail.Text;
+end;
+
 end.