win32_makefile/gui_delphi/backup.pas

   1 unit backup;\r
   2 \r
   3 interface\r
   4 \r
   5 uses\r
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
   7   Dialogs, StdCtrls;\r
   8 \r
   9 type\r
  10   TBackupForm = class(TForm)\r
  11     GroupBox1: TGroupBox;\r
  12     CheckBox1: TCheckBox;\r
  13     CheckBox2: TCheckBox;\r
  14     CheckBox3: TCheckBox;\r
  15     CheckBox4: TCheckBox;\r
  16     CheckBox5: TCheckBox;\r
  17     Button1: TButton;\r
  18     Button2: TButton;\r
  19     GroupBox2: TGroupBox;\r
  20     ListBox1: TListBox;\r
  21     procedure Button2Click(Sender: TObject);\r
  22     procedure Button1Click(Sender: TObject);\r
  23     procedure FormActivate(Sender: TObject);\r
  24   private\r
  25     { Private declarations }\r
  26   public\r
  27     { Public declarations }\r
  28   end;\r
  29 \r
  30 var\r
  31   BackupForm: TBackupForm;\r
  32 \r
  33 implementation\r
  34 \r
  35 uses MainUnit;\r
  36 \r
  37 {$R *.dfm}\r
  38 \r
  39 procedure TBackupForm.Button2Click(Sender: TObject);\r
  40 begin\r
  41   PhoneBackupAvailable:=false;\r
  42   BackupForm.Close;\r
  43 end;\r
  44 \r
  45 procedure TBackupForm.Button1Click(Sender: TObject);\r
  46 begin\r
  47   BackupForm.Close;\r
  48 end;\r
  49 \r
  50 procedure TBackupForm.FormActivate(Sender: TObject);\r
  51 begin\r
  52   CheckBox1.Checked:=false;\r
  53   CheckBox2.Checked:=false;\r
  54   CheckBox3.Checked:=false;\r
  55   CheckBox4.Checked:=false;\r
  56   CheckBox5.Checked:=false;\r
  57 end;\r
  58 \r
  59 end.\r