Changeset 8 for trunk/Forms

Timestamp:

May 18, 2015, 12:15:30 AM (10 years ago)

Author:

chronos

Message:

• Added: Checkout form and ability to checkout new working copy.

Location:

trunk/Forms

Files:

• UFormBrowse.lfm (modified) (1 diff)
• UFormBrowse.pas (modified) (2 diffs)
• UFormCheckout.lfm (added)
• UFormCheckout.pas (added)
• UFormConsole.lfm (modified) (1 diff)
• UFormConsole.pas (modified) (2 diffs)
• UFormMain.lfm (modified) (4 diffs)
• UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormBrowse.lfm

@@ -7 +7 @@
   ClientHeight = 526
   ClientWidth = 722
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
   LCLVersion = '1.5'
   object TreeView1: TTreeView

trunk/Forms/UFormBrowse.pas

@@ -33 +33 @@
     procedure ADeleteExecute(Sender: TObject);
     procedure AOpenExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1DblClick(Sender: TObject);
@@ -83 +85 @@
 end;
 
+procedure TFormBrowse.FormCreate(Sender: TObject);
+begin
+  FileList := TStringList.Create;
+end;
+
+procedure TFormBrowse.FormDestroy(Sender: TObject);
+begin
+  FileList.Free;
+end;
+
 procedure TFormBrowse.ReloadList;
 var
   FindFile: TFindFile;
+  FoundFileList: TStrings;
   I: Integer;
 begin
-  FindFile := TFindFile.Create(nil);
-  FindFile.Path := Directory;
-  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;
+  if DirectoryExistsUTF8(Directory) then begin
+    FindFile := TFindFile.Create(nil);
+    try
+      FindFile.Path := Directory;
+      FindFile.FileMask := AllFilesMask;
+      FindFile.InSubFolders := False;
+      FoundFileList := FindFile.SearchForFiles;
+      FileList.Assign(FoundFileList);
+      for I := FileList.Count - 1 downto 0 do
+        if ExtractFileName(FileList[I]) = '.' then FileList.Delete(I);
+      FileList.Sort;
+      ListView1.Items.Count := FileList.Count;
+    finally
+      FindFile.Free;
+    end;
+  end else ListView1.Items.Count := 0;
   ListView1.Refresh;
 end;

trunk/Forms/UFormConsole.lfm

@@ -39 +39 @@
   object EditCommand: TEdit
     Left = 4
-    Height = 32
+    Height = 35
     Top = 7
     Width = 884

trunk/Forms/UFormConsole.pas

@@ -92 +92 @@
   Line: string;
   CommandLine: string;
+  I: Integer;
 begin
   Text := '';
@@ -104 +105 @@
       Process.Environment.Text := Environment;
     Environment := '';
-    //Process.Executable := Executable;
-    //Process.Parameters.Assign(Parameters);
-    Process.CommandLine := Executable + ' ' + Parameters.Text;
+    Process.Executable := Executable;
+    Process.Parameters.Assign(Parameters);
+    //for I := 0 to Process.Parameters.Count - 1 do
+    //  ShowMessage('"' + Process.Parameters[I] + '"');
+    //Process.CommandLine := Executable + ' checkout http://svn.zdechov.net/svn/xtactics /home/chronos/Smazat/svn3';
+    //Process.Parameters.Clear;
+    //Process.Parameters.Add('checkout');
+    //Process.Parameters.Add('http://svn.zdechov.net/svn/xtactics');
+    //Process.Parameters.Add('/home/chronos/Smazat/svn3');
+    //Process.Parameters.Add('checkout');
+    //Process.Parameters.Add('dasd');;
+    //Process.CommandLine := Executable + ' ' + Parameters.Text;
     CommandLine := Executable + ' ' + StringReplace(Parameters.Text, LineEnding, ' ', [rfReplaceAll]);
     if CommandLine[Length(CommandLine)] = LineEnding then

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 667
   Caption = 'VCSCommander'
-  ClientHeight = 471
+  ClientHeight = 468
   ClientWidth = 667
   Menu = MainMenu1
@@ -25 +25 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 26
-    Top = 445
+    Height = 29
+    Top = 439
     Width = 667
     Panels = <>
@@ -35 +35 @@
     object MenuItemFile: TMenuItem
       Caption = 'File'
+      object MenuItem17: TMenuItem
+        Action = Core.AProjectCheckout
+      end
       object MenuItem8: TMenuItem
         Action = Core.AProjectOpen
@@ -68 +71 @@
         Action = Core.ACommandCleanup
       end
-      object MenuItem15: TMenuItem
-        Action = Core.ACommandCheckout
-      end
       object MenuItem16: TMenuItem
         Action = Core.ACommandStatus

trunk/Forms/UFormMain.pas

@@ -21 +21 @@
     MenuItem13: TMenuItem;
     MenuItem14: TMenuItem;
-    MenuItem15: TMenuItem;
     MenuItem16: TMenuItem;
+    MenuItem17: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     MenuItem2: TMenuItem;