Changeset 7 for trunk/Forms/UFormBrowse.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Commit form.

File:

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

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;