Changeset 7 for trunk/Forms

Timestamp:

May 17, 2015, 10:51:50 PM (10 years ago)

Author:

chronos

Message:

• Added: Commit form.

Location:

trunk/Forms

Files:

• UFormBrowse.lfm (modified) (2 diffs)
• UFormBrowse.pas (modified) (4 diffs)
• UFormCommit.lfm (added)
• UFormCommit.pas (added)
• UFormSettings.lfm (modified) (1 diff)
• UFormSettings.pas (modified) (1 diff)

trunk/Forms/UFormBrowse.lfm

@@ -14 +14 @@
     Width = 241
     Align = alLeft
-    DefaultItemHeight = 24
+    DefaultItemHeight = 28
     TabOrder = 0
   end
@@ -51 +51 @@
       end>
     OwnerData = True
+    PopupMenu = PopupMenu1
     ReadOnly = True
     RowSelect = True
+    SmallImages = Core.ImageList1
     TabOrder = 2
     ViewStyle = vsReport
     OnData = ListView1Data
+    OnDblClick = AOpenExecute
+  end
+  object PopupMenu1: TPopupMenu
+    Images = Core.ImageList1
+    left = 353
+    top = 131
+    object MenuItem1: TMenuItem
+      Action = AAdd
+    end
+    object MenuItem2: TMenuItem
+      Action = ADelete
+    end
+    object MenuItem3: TMenuItem
+      Action = ARename
+    end
+    object MenuItem4: TMenuItem
+      Action = AUpdate
+    end
+    object MenuItem5: TMenuItem
+      Action = AProperties
+    end
+    object MenuItem6: TMenuItem
+      Action = AOpen
+    end
+  end
+  object ActionList1: TActionList
+    Images = Core.ImageList1
+    left = 352
+    top = 208
+    object AAdd: TAction
+      Caption = 'Add'
+    end
+    object ADelete: TAction
+      Caption = 'Delete'
+      OnExecute = ADeleteExecute
+    end
+    object ARename: TAction
+      Caption = 'Rename'
+    end
+    object AUpdate: TAction
+      Caption = 'Update'
+    end
+    object AProperties: TAction
+      Caption = 'Properties'
+    end
+    object AOpen: TAction
+      Caption = 'Open'
+      OnExecute = AOpenExecute
+    end
   end
 end

trunk/Forms/UFormBrowse.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, UFindFile;
+  ExtCtrls, Menus, ActnList, UFindFile;
 
 type
@@ -14 +14 @@
 
   TFormBrowse = class(TForm)
+    AAdd: TAction;
+    AOpen: TAction;
+    AProperties: TAction;
+    AUpdate: TAction;
+    ARename: TAction;
+    ADelete: TAction;
+    ActionList1: TActionList;
     ListView1: TListView;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    PopupMenu1: TPopupMenu;
     Splitter1: TSplitter;
     TreeView1: TTreeView;
+    procedure ADeleteExecute(Sender: TObject);
+    procedure AOpenExecute(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView1DblClick(Sender: TObject);
   private
     FileList: TStringList;
@@ -41 +58 @@
 end;
 
+procedure TFormBrowse.ListView1DblClick(Sender: TObject);
+begin
+
+end;
+
+procedure TFormBrowse.ADeleteExecute(Sender: TObject);
+begin
+
+end;
+
+procedure TFormBrowse.AOpenExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+  with ListView1.Selected do begin
+    if Caption = '..' then begin
+      Directory := ExtractFileDir(Directory);
+      ReloadList;
+    end else
+    if DirectoryExistsUTF8(Directory + DirectorySeparator + Caption) then begin
+      Directory := Directory + DirectorySeparator + ListView1.Selected.Caption;
+      ReloadList;
+    end;
+  end;
+end;
+
 procedure TFormBrowse.ReloadList;
 var
@@ -48 +90 @@
   FindFile := TFindFile.Create(nil);
   FindFile.Path := Directory;
-  FindFile.FileMask := '*.*';
+  FindFile.FileMask := AllFilesMask;
   FindFile.InSubFolders := False;
   FileList := FindFile.SearchForFiles;
   for I := FileList.Count - 1 downto 0 do
     if ExtractFileName(FileList[I]) = '.' then FileList.Delete(I);
+  FileList.Sort;
   ListView1.Items.Count := FileList.Count;
   ListView1.Refresh;

trunk/Forms/UFormSettings.lfm

@@ -7 +7 @@
   ClientHeight = 497
   ClientWidth = 686
-  LCLVersion = '1.1'
-  object Button1: TButton
+  LCLVersion = '1.5'
+  object ButtonCancel: TButton
     Left = 592
     Height = 25
     Top = 464
     Width = 75
-    Caption = 'Button1'
+    Caption = 'Cancel'
+    ModalResult = 2
     TabOrder = 0
   end
-  object Button2: TButton
+  object ButtonOk: TButton
     Left = 496
     Height = 25
     Top = 464
     Width = 75
-    Caption = 'Button2'
+    Caption = 'Ok'
+    ModalResult = 1
     TabOrder = 1
   end

trunk/Forms/UFormSettings.pas

@@ -13 +13 @@
 
   TFormSettings = class(TForm)
-    Button1: TButton;
-    Button2: TButton;
+    ButtonCancel: TButton;
+    ButtonOk: TButton;
   private
     { private declarations }