This commit was manufactured by cvs2svn to create branch 'uc'.

[gnokii.git] / win32_makefile / gui_delphi / backup.pas

diff --git a/win32_makefile/gui_delphi/backup.pas b/win32_makefile/gui_delphi/backup.pas
new file mode 100644 (file)
index 0000000..0425d77
--- /dev/null
+++ b/win32_makefile/gui_delphi/backup.pas
@@ -0,0 +1,59 @@
+unit backup;\r
+\r
+interface\r
+\r
+uses\r
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
+  Dialogs, StdCtrls;\r
+\r
+type\r
+  TBackupForm = class(TForm)\r
+    GroupBox1: TGroupBox;\r
+    CheckBox1: TCheckBox;\r
+    CheckBox2: TCheckBox;\r
+    CheckBox3: TCheckBox;\r
+    CheckBox4: TCheckBox;\r
+    CheckBox5: TCheckBox;\r
+    Button1: TButton;\r
+    Button2: TButton;\r
+    GroupBox2: TGroupBox;\r
+    ListBox1: TListBox;\r
+    procedure Button2Click(Sender: TObject);\r
+    procedure Button1Click(Sender: TObject);\r
+    procedure FormActivate(Sender: TObject);\r
+  private\r
+    { Private declarations }\r
+  public\r
+    { Public declarations }\r
+  end;\r
+\r
+var\r
+  BackupForm: TBackupForm;\r
+\r
+implementation\r
+\r
+uses MainUnit;\r
+\r
+{$R *.dfm}\r
+\r
+procedure TBackupForm.Button2Click(Sender: TObject);\r
+begin\r
+  PhoneBackupAvailable:=false;\r
+  BackupForm.Close;\r
+end;\r
+\r
+procedure TBackupForm.Button1Click(Sender: TObject);\r
+begin\r
+  BackupForm.Close;\r
+end;\r
+\r
+procedure TBackupForm.FormActivate(Sender: TObject);\r
+begin\r
+  CheckBox1.Checked:=false;\r
+  CheckBox2.Checked:=false;\r
+  CheckBox3.Checked:=false;\r
+  CheckBox4.Checked:=false;\r
+  CheckBox5.Checked:=false;\r
+end;\r
+\r
+end.\r