Changeset 11 for trunk/Forms/UFormBrowse.pas

Timestamp:

May 19, 2015, 11:33:02 PM (9 years ago)

Author:

chronos

Message:

• Added: Log form to show history of object. Implemented for Subversion partialy.

File:

• trunk/Forms/UFormBrowse.pas (modified) (8 diffs)

trunk/Forms/UFormBrowse.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, Menus, ActnList, UFindFile;
+  ExtCtrls, Menus, ActnList, UFindFile, UVCS;
 
 type
@@ -15 +15 @@
   TFormBrowse = class(TForm)
     AAdd: TAction;
+    ALogShow: TAction;
     AOpen: TAction;
     AProperties: TAction;
@@ -28 +29 @@
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
     PopupMenu1: TPopupMenu;
     Splitter1: TSplitter;
@@ -33 +35 @@
     procedure AAddExecute(Sender: TObject);
     procedure ADeleteExecute(Sender: TObject);
+    procedure ALogShowExecute(Sender: TObject);
     procedure AOpenExecute(Sender: TObject);
     procedure ARenameExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1DblClick(Sender: TObject);
+    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
   private
     FileList: TStringList;
@@ -53 +59 @@
 
 uses
-  UCore;
+  UCore, UFormLog;
 
 {$R *.lfm}
@@ -71 +77 @@
 end;
 
+procedure TFormBrowse.ListView1SelectItem(Sender: TObject; Item: TListItem;
+  Selected: Boolean);
+begin
+  UpdateInterface;
+end;
+
 procedure TFormBrowse.ADeleteExecute(Sender: TObject);
 begin
 
+end;
+
+procedure TFormBrowse.ALogShowExecute(Sender: TObject);
+begin
+  FormLog.FileName := Directory + DirectorySeparator + ListView1.Selected.Caption;
+  FormLog.ShowModal;
 end;
 
@@ -114 +132 @@
 end;
 
+procedure TFormBrowse.FormShow(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
 procedure TFormBrowse.ReloadList;
 var
@@ -145 +168 @@
   ARename.Enabled := Assigned(ListView1.Selected);
   AProperties.Enabled := Assigned(ListView1.Selected);
+  AOpen.Enabled := Assigned(ListView1.Selected);
+  ALogShow.Enabled := Assigned(ListView1.Selected);
 end;