Diff of /trunk/Unit1.pas

OSDN > Find Software > BackUpProject

 Browse Subversion Repository



/[clxbackup]/trunk/Unit1.pas




Diff of /trunk/Unit1.pas



 Parent Directory

|  Revision Log



|  Patch














revision 3 by yamat0jp,
Fri Mar 27 11:53:37 2015 UTC




revision 4 by yamat0jp,
Wed Jun 17 12:35:16 2015 UTC






#

Line 33 
 type


Line 33 
 type












33
     Button4: TButton;
     Button4: TButton;

















34
     OpenTextFileDialog1: TOpenTextFileDialog;
     OpenTextFileDialog1: TOpenTextFileDialog;

















35
     CheckBox1: TCheckBox;
     CheckBox1: TCheckBox;












36
 
     DriveComboBox1: TDriveComboBox;







37
 
     Panel1: TPanel;












38
     procedure CloseButtonClick(Sender: TObject);
     procedure CloseButtonClick(Sender: TObject);

















39
     procedure Action1Execute(Sender: TObject);
     procedure Action1Execute(Sender: TObject);

















40
     procedure FormResize(Sender: TObject);
     procedure FormResize(Sender: TObject);











#

Line 102 
 procedure TForm1.Button1Click(Sender: TO


Line 104 
 procedure TForm1.Button1Click(Sender: TO












104
 var
 var

















105
   s1, s2, s3: string;
   s1, s2, s3: string;

















106
   z: TZipFile;
   z: TZipFile;












107
 
   x: Boolean;












108
 begin
 begin

















109
   s3 := '';
   s3 := '';















110


   Preview(Edit1.Text + '\' + ComboBox1.Text);


   x := Copy(Label1.Caption,1,10) <> 'Click here';













111


   if Sender = Button2 then


   if (Sender = Button1)or(x = true) then













112


 


     Preview(Edit1.Text + '\' + ComboBox1.Text);













113


 


   if (Sender = Button2)and(x = true) then















114
   begin
   begin

















115
     z := TZipFile.Create;
     z := TZipFile.Create;

















116
     try
     try











#

Line 179 
 begin


Line 184 
 begin












184
     if (t = DirectoryListBox1.Directory) and (i < DirectoryListBox1.ItemIndex)
     if (t = DirectoryListBox1.Directory) and (i < DirectoryListBox1.ItemIndex)

















185
     then
     then

















186
     begin
     begin















187


       if i < 2 then


       if i < 1 then















188
       begin
       begin

















189
         t := t + DirectoryListBox1.Items[DirectoryListBox1.ItemIndex];
         t := t + DirectoryListBox1.Items[DirectoryListBox1.ItemIndex];

















190
       end
       end











#

Line 275 
 end;


Line 280 
 end;












280
 
 

















281
 procedure TForm1.Label1Click(Sender: TObject);
 procedure TForm1.Label1Click(Sender: TObject);

















282
 begin
 begin















283


   if (System.SysUtils.DirectoryExists(Edit1.Text) = True) and


   if System.SysUtils.DirectoryExists(Edit1.Text) = false then













284


     (MessageDlg('Change Save-Dir?', mtInformation, [mbOK, mbCancel], 0) = mrOK)


     MkDir(Edit1.Text);













285


   then


   if MessageDlg('Change Save-Dir?', mtInformation, [mbOK, mbCancel], 0) = mrOK then















286
     Label1.Caption := Edit1.Text;
     Label1.Caption := Edit1.Text;

















287
 end;
 end;

















288
 
 





























Legend:



Removed from v.3
 


changed lines


 
Added in v.4













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[clxbackup]/trunk/Unit1.pas
-revision 3 by yamat0jp,
Fri Mar 27 11:53:37 2015 UTC
+revision 4 by yamat0jp,
Wed Jun 17 12:35:16 2015 UTC
 Line 33 
 type
      Button4: TButton;
      OpenTextFileDialog1: TOpenTextFileDialog;
      CheckBox1: TCheckBox;
+     DriveComboBox1: TDriveComboBox;
+     Panel1: TPanel;
      procedure CloseButtonClick(Sender: TObject);
      procedure Action1Execute(Sender: TObject);
      procedure FormResize(Sender: TObject);
-Line 102 
 procedure TForm1.Button1Click(Sender: TO
+Line 104 
 procedure TForm1.Button1Click(Sender: TO
  var
    s1, s2, s3: string;
    z: TZipFile;
+   x: Boolean;
  begin
    s3 := '';
-   Preview(Edit1.Text + '\' + ComboBox1.Text);
+   x := Copy(Label1.Caption,1,10) <> 'Click here';
-   if Sender = Button2 then
+   if (Sender = Button1)or(x = true) then
+     Preview(Edit1.Text + '\' + ComboBox1.Text);
+   if (Sender = Button2)and(x = true) then
    begin
      z := TZipFile.Create;
      try
-Line 179 
 begin
+Line 184 
 begin
      if (t = DirectoryListBox1.Directory) and (i < DirectoryListBox1.ItemIndex)
      then
      begin
-       if i < 2 then
+       if i < 1 then
        begin
          t := t + DirectoryListBox1.Items[DirectoryListBox1.ItemIndex];
        end
-Line 275 
 end;
+Line 280 
 end;
  procedure TForm1.Label1Click(Sender: TObject);
  begin
-   if (System.SysUtils.DirectoryExists(Edit1.Text) = True) and
+   if System.SysUtils.DirectoryExists(Edit1.Text) = false then
-     (MessageDlg('Change Save-Dir?', mtInformation, [mbOK, mbCancel], 0) = mrOK)
+     MkDir(Edit1.Text);
-   then
+   if MessageDlg('Change Save-Dir?', mtInformation, [mbOK, mbCancel], 0) = mrOK then
      Label1.Caption := Edit1.Text;
  end;
 Legend:



Removed from v.3
 


changed lines


 
Added in v.4
 Legend:



Removed from v.3
 


changed lines


 
Added in v.4
-Removed from v.3
+Added in v.4
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

BackUpProject

Browse Subversion Repository