Changeset 11 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormBrowse.lfm (modified) (4 diffs)
• UFormBrowse.pas (modified) (8 diffs)
• UFormLog.lfm (added)
• UFormLog.pas (added)

trunk/Forms/UFormBrowse.lfm

@@ -9 +9 @@
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnShow = FormShow
   LCLVersion = '1.5'
   object TreeView1: TTreeView
@@ -61 +62 @@
     OnData = ListView1Data
     OnDblClick = AOpenExecute
+    OnSelectItem = ListView1SelectItem
   end
   object PopupMenu1: TPopupMenu
@@ -83 +85 @@
     object MenuItem6: TMenuItem
       Action = AOpen
+    end
+    object MenuItem7: TMenuItem
+      Action = ALogShow
     end
   end
@@ -111 +116 @@
       OnExecute = AOpenExecute
     end
+    object ALogShow: TAction
+      Caption = 'Show log'
+      OnExecute = ALogShowExecute
+    end
   end
 end

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;