Context Navigation

UFormSettings.pas

Last change on this file was 13, checked in by chronos, 9 years ago
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 size: 962 bytes

Line
1	unit UFormSettings;
2
3	{$mode delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
9	XMLConf;
10
11	type
12
13	{ TFormSettings }
14
15	TFormSettings = class(TForm)
16	ButtonCancel: TButton;
17	ButtonOk: TButton;
18	EditUserName: TEdit;
19	EditEmail: TEdit;
20	Label1: TLabel;
21	Label2: TLabel;
22	procedure FormCreate(Sender: TObject);
23	private
24	{ private declarations }
25	public
26	procedure Load(XMLConfig: TXMLConfig);
27	procedure Save(XMLConfig: TXMLConfig);
28	end;
29
30	var
31	FormSettings: TFormSettings;
32
33	implementation
34
35	{$R *.lfm}
36
37	uses
38	UCore;
39
40	{ TFormSettings }
41
42	procedure TFormSettings.FormCreate(Sender: TObject);
43	begin
44
45	end;
46
47	procedure TFormSettings.Load(XMLConfig: TXMLConfig);
48	begin
49	EditUserName.Text := Core.UserName;
50	EditEmail.Text := Core.Email;
51	end;
52
53	procedure TFormSettings.Save(XMLConfig: TXMLConfig);
54	begin
55	Core.UserName := EditUserName.Text;
56	Core.Email := EditEmail.Text;
57	end;
58
59	end.
60

Note: See TracBrowser for help on using the repository browser.