Changeset 10 for trunk/Forms/UFormBrowse.pas

Timestamp:

May 19, 2015, 10:32:51 PM (9 years ago)

Author:

chronos

Message:

• Added: CVS backend skeleton.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormBrowse.pas (modified) (6 diffs)

trunk

@@ -2 +2 @@
 VCSCommander
 VCSCommander.lps
+Config.xml
+heaptrclog.trc

@@ -2 +2 @@
 VCSCommander
 VCSCommander.lps
+Config.xml
+heaptrclog.trc

trunk/Forms/UFormBrowse.pas

@@ -31 +31 @@
     Splitter1: TSplitter;
     TreeView1: TTreeView;
+    procedure AAddExecute(Sender: TObject);
     procedure ADeleteExecute(Sender: TObject);
     procedure AOpenExecute(Sender: TObject);
+    procedure ARenameExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -42 +44 @@
     Directory: string;
     procedure ReloadList;
+    procedure UpdateInterface;
   end;
 
@@ -48 +51 @@
 
 implementation
+
+uses
+  UCore;
 
 {$R *.lfm}
@@ -70 +76 @@
 end;
 
+procedure TFormBrowse.AAddExecute(Sender: TObject);
+begin
+  Core.Project.WorkingCopy.Add(Directory + DirectorySeparator + ListView1.Selected.Caption);
+end;
+
 procedure TFormBrowse.AOpenExecute(Sender: TObject);
 begin
@@ -83 +94 @@
     end;
   end;
+end;
+
+procedure TFormBrowse.ARenameExecute(Sender: TObject);
+var
+  NewName: string;
+begin
+  if InputQuery('Rename', 'Enter new name', NewName) then
+    Core.Project.WorkingCopy.Move(Directory + DirectorySeparator + ListView1.Selected.Caption, NewName);
 end;
 
@@ -120 +139 @@
 end;
 
+procedure TFormBrowse.UpdateInterface;
+begin
+  AAdd.Enabled := Assigned(ListView1.Selected);
+  ADelete.Enabled := Assigned(ListView1.Selected);
+  ARename.Enabled := Assigned(ListView1.Selected);
+  AProperties.Enabled := Assigned(ListView1.Selected);
+end;
+
 end.
 

@@ -2 +2 @@
 VCSCommander
 VCSCommander.lps
+Config.xml
+heaptrclog.trc