X-Git-Url: https://git.jankratochvil.net/?p=gnokii.git;a=blobdiff_plain;f=win32_makefile%2Fgui_delphi%2Fbackup.pas;fp=win32_makefile%2Fgui_delphi%2Fbackup.pas;h=0425d77ac99b238efe58016b48f1aa197c30bf6c;hp=0000000000000000000000000000000000000000;hb=975a83d253eea8aa37bf3dfd7e026df3027db4ff;hpb=8ec00ff9eb42ae2367cf9798f2bc66299a0d24ca

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