v2.6.8

Multiple folders can be selected in Copy tab now
tedsmith · Jun 3, 2016 · 793c5a2 · 793c5a2
1 parent cc99380
commit 793c5a2
Show file tree

Hide file tree

Showing 5 changed files with 226 additions and 96 deletions.
diff --git a/DiskModule/diskmoduleunit1.lfm b/DiskModule/diskmoduleunit1.lfm
@@ -3,7 +3,7 @@ object frmDiskHashingModule: TfrmDiskHashingModule
   Height = 600
   Top = 155
   Width = 691
-  Caption = 'QuickHash 2.6.7 (2011 - 2015) (c) Ted Smith - Disk Hashing Module'
+  Caption = 'QuickHash 2.6.8 (2011 - 2015) (c) Ted Smith - Disk Hashing Module'
   ClientHeight = 600
   ClientWidth = 691
   Position = poScreenCenter

diff --git a/FindAllFilesEnhanced.pas b/FindAllFilesEnhanced.pas
@@ -6,10 +6,10 @@
 
 interface
 uses
-  Classes;
+  LazUTF8Classes, Classes;
 
 function FindAllFilesEx(const SearchPath: string; SearchMask: string;
-    SearchSubDirs: boolean; IncludeHidderDirs: boolean): TStringList;
+    SearchSubDirs: boolean; IncludeHidderDirs: boolean): TStringListUTF8;
 
 implementation
 uses
@@ -42,11 +42,11 @@ constructor TListFileSearcher.Create(AList: TStrings);
 end;
 
 function FindAllFilesEx(const SearchPath: string; SearchMask: string;
-  SearchSubDirs: boolean; IncludeHidderDirs: boolean): TStringList;
+  SearchSubDirs: boolean; IncludeHidderDirs: boolean): TStringListUTF8;
 var
   Searcher: TListFileSearcher;
 begin
-  Result   := TStringList.Create;
+  Result   := TStringListUTF8.Create;
   Searcher := TListFileSearcher.Create(Result);
   Searcher.DirectoryAttribute := Searcher.DirectoryAttribute or faHidden;
   try

diff --git a/project1.lpi b/project1.lpi
@@ -46,11 +46,11 @@
         <PackageName Value="LCL"/>
       </Item2>
     </RequiredPackages>
-    <Units Count="67">
+    <Units Count="68">
       <Unit0>
         <Filename Value="project1.lpr"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="6"/>
         <CursorPos X="46" Y="24"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
@@ -90,8 +90,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit2"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="1778"/>
-        <CursorPos X="40" Y="1806"/>
+        <TopLine Value="799"/>
+        <CursorPos X="3" Y="801"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -160,7 +160,7 @@
         <Filename Value="sha1customised.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="sha1Customised"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="5"/>
         <TopLine Value="312"/>
         <CursorPos X="71" Y="335"/>
         <UsageCount Value="200"/>
@@ -169,7 +169,7 @@
       <Unit17>
         <Filename Value="md5customised.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="4"/>
         <TopLine Value="646"/>
         <CursorPos X="46" Y="668"/>
         <UsageCount Value="200"/>
@@ -249,8 +249,8 @@
       </Unit29>
       <Unit30>
         <Filename Value="DiskModule/diskmoduleunit1.lfm"/>
-        <EditorIndex Value="7"/>
-        <UsageCount Value="40"/>
+        <EditorIndex Value="8"/>
+        <UsageCount Value="45"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="LFM"/>
       </Unit30>
@@ -261,9 +261,9 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="DiskModuleUnit1"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="7"/>
         <TopLine Value="456"/>
-        <CursorPos X="99" Y="464"/>
+        <CursorPos X="83" Y="474"/>
         <UsageCount Value="205"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -323,14 +323,14 @@
         <Filename Value="findallfilesenhancedunit.pas"/>
         <IsPartOfProject Value="True"/>
         <CursorPos X="43" Y="15"/>
-        <UsageCount Value="143"/>
+        <UsageCount Value="151"/>
       </Unit41>
       <Unit42>
         <Filename Value="FindAllFilesEnhanced.pas"/>
-        <EditorIndex Value="2"/>
-        <TopLine Value="24"/>
-        <CursorPos Y="52"/>
-        <UsageCount Value="64"/>
+        <EditorIndex Value="3"/>
+        <TopLine Value="26"/>
+        <CursorPos X="30" Y="49"/>
+        <UsageCount Value="69"/>
         <Loaded Value="True"/>
       </Unit42>
       <Unit43>
@@ -411,10 +411,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="uDisplayGrid"/>
-        <EditorIndex Value="1"/>
+        <EditorIndex Value="2"/>
         <TopLine Value="13"/>
         <CursorPos X="3" Y="30"/>
-        <UsageCount Value="77"/>
+        <UsageCount Value="85"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit55>
@@ -497,127 +497,136 @@
         <CursorPos X="3" Y="1447"/>
         <UsageCount Value="9"/>
       </Unit66>
+      <Unit67>
+        <Filename Value="../../../../../../../lazarus/components/lazutils/fileutil.pas"/>
+        <UnitName Value="FileUtil"/>
+        <EditorIndex Value="1"/>
+        <TopLine Value="193"/>
+        <CursorPos X="46" Y="210"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit67>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1939" TopLine="1917"/>
+        <Caret Line="300" Column="15" TopLine="283"/>
       </Position1>
       <Position2>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1940" TopLine="1917"/>
+        <Caret Line="59" Column="63" TopLine="42"/>
       </Position2>
       <Position3>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1939" TopLine="1917"/>
+        <Caret Line="348" Column="31" TopLine="320"/>
       </Position3>
       <Position4>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1940" TopLine="1917"/>
+        <Caret Line="902" Column="53" TopLine="874"/>
       </Position4>
       <Position5>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1939" TopLine="1917"/>
+        <Caret Line="906" Column="53" TopLine="878"/>
       </Position5>
       <Position6>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1940" TopLine="1917"/>
+        <Caret Line="913" Column="53" TopLine="885"/>
       </Position6>
       <Position7>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1939" TopLine="1917"/>
+        <Caret Line="917" Column="53" TopLine="889"/>
       </Position7>
       <Position8>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1940" TopLine="1917"/>
+        <Caret Line="1362" Column="48" TopLine="1337"/>
       </Position8>
       <Position9>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1939" TopLine="1917"/>
+        <Caret Line="2310" Column="11" TopLine="2293"/>
       </Position9>
       <Position10>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1940" TopLine="1917"/>
+        <Caret Line="2256" Column="19" TopLine="2240"/>
       </Position10>
       <Position11>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1928" Column="11" TopLine="1917"/>
+        <Caret Line="300" Column="15" TopLine="283"/>
       </Position11>
       <Position12>
         <Filename Value="unit2.pas"/>
-        <Caret Line="716" Column="35" TopLine="704"/>
+        <Caret Line="902" Column="47" TopLine="874"/>
       </Position12>
       <Position13>
-        <Filename Value="unit2.pas"/>
-        <Caret Line="1963" TopLine="1946"/>
+        <Filename Value="FindAllFilesEnhanced.pas"/>
+        <Caret Line="12" Column="73"/>
       </Position13>
       <Position14>
-        <Filename Value="unit2.pas"/>
-        <Caret Line="719" TopLine="702"/>
+        <Filename Value="FindAllFilesEnhanced.pas"/>
+        <Caret Line="9" Column="20"/>
       </Position14>
       <Position15>
         <Filename Value="unit2.pas"/>
-        <Caret Line="1963" TopLine="1946"/>
+        <Caret Line="902" Column="47" TopLine="874"/>
       </Position15>
       <Position16>
-        <Filename Value="unit2.pas"/>
-        <Caret Line="719" TopLine="702"/>
+        <Filename Value="FindAllFilesEnhanced.pas"/>
+        <Caret Line="12" Column="58"/>
       </Position16>
       <Position17>
-        <Filename Value="unit2.pas"/>
-        <Caret Line="1963" TopLine="1946"/>
+        <Filename Value="FindAllFilesEnhanced.pas"/>
+        <Caret Line="9" Column="19"/>
       </Position17>
       <Position18>
-        <Filename Value="unit2.pas"/>
-        <Caret Line="719" TopLine="702"/>
+        <Filename Value="FindAllFilesEnhanced.pas"/>
+        <Caret Line="11" Column="24"/>
       </Position18>
       <Position19>
-        <Filename Value="unit2.pas"/>
-        <Caret Line="306" Column="32" TopLine="290"/>
+        <Filename Value="FindAllFilesEnhanced.pas"/>
+        <Caret Line="45" Column="71" TopLine="16"/>
       </Position19>
       <Position20>
         <Filename Value="unit2.pas"/>
-        <Caret Line="569" Column="60" TopLine="541"/>
+        <Caret Line="57" Column="19" TopLine="40"/>
       </Position20>
       <Position21>
         <Filename Value="unit2.pas"/>
-        <Caret Line="669" Column="73" TopLine="641"/>
+        <Caret Line="2391" Column="45" TopLine="2358"/>
       </Position21>
       <Position22>
         <Filename Value="unit2.pas"/>
-        <Caret Line="676" Column="43" TopLine="648"/>
+        <Caret Line="2549" Column="9" TopLine="2532"/>
       </Position22>
       <Position23>
         <Filename Value="unit2.pas"/>
-        <Caret Line="719" Column="85" TopLine="691"/>
+        <Caret Line="2256" Column="41" TopLine="2240"/>
       </Position23>
       <Position24>
         <Filename Value="unit2.pas"/>
-        <Caret Line="724" Column="50" TopLine="696"/>
+        <Caret Line="2549" Column="38" TopLine="2521"/>
       </Position24>
       <Position25>
-        <Filename Value="unit2.pas"/>
-        <Caret Line="1963" TopLine="1940"/>
+        <Filename Value="../../../../../../../lazarus/components/lazutils/fileutil.pas"/>
+        <Caret Line="209" Column="28" TopLine="192"/>
       </Position25>
       <Position26>
-        <Filename Value="unit2.pas"/>
-        <Caret Line="735" Column="11" TopLine="702"/>
+        <Filename Value="../../../../../../../lazarus/components/lazutils/fileutil.pas"/>
+        <Caret Line="211" Column="28" TopLine="192"/>
       </Position26>
       <Position27>
         <Filename Value="unit2.pas"/>
-        <Caret Line="720" Column="32" TopLine="697"/>
+        <Caret Line="2532" Column="32" TopLine="2521"/>
       </Position27>
       <Position28>
         <Filename Value="unit2.pas"/>
-        <Caret Line="517" Column="43" TopLine="503"/>
+        <Caret Line="2256" Column="63" TopLine="2228"/>
       </Position28>
       <Position29>
         <Filename Value="unit2.pas"/>
-        <Caret Line="733" Column="9" TopLine="714"/>
+        <Caret Line="2350" Column="45" TopLine="2327"/>
       </Position29>
       <Position30>
         <Filename Value="unit2.pas"/>
-        <Caret Line="730" Column="19" TopLine="718"/>
+        <Caret Line="1251" Column="35" TopLine="1217"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

diff --git a/unit2.lfm b/unit2.lfm
@@ -1,10 +1,10 @@
 object MainForm: TMainForm
-  Left = 250
+  Left = 270
   Height = 689
-  Top = 97
+  Top = 57
   Width = 1018
   AllowDropFiles = True
-  Caption = 'Quick Hash v2.6.7 (c) 2011-2016 - The easy and convenient way to hash data in both Linux, Apple Mac and Windows'
+  Caption = 'Quick Hash v2.6.8 (c) 2011-2016 - The easy and convenient way to hash data in both Linux, Apple Mac and Windows'
   ClientHeight = 689
   ClientWidth = 1018
   OnCreate = FormCreate
@@ -21,6 +21,7 @@ object MainForm: TMainForm
     ParentShowHint = False
     TabIndex = 0
     TabOrder = 0
+    OnChange = PageControl1Change
     object TabSheet1: TTabSheet
       Hint = 'Hash portions of text'
       Caption = 'Te&xt'
@@ -689,19 +690,19 @@ object MainForm: TMainForm
     object TabSheet4: TTabSheet
       Hint = 'Choose a directory, have its content hashed, files are copied to destination, and re-hashed.'
       Caption = '&Copy'
-      ClientHeight = 617
-      ClientWidth = 990
+      ClientHeight = 624
+      ClientWidth = 988
       ParentShowHint = False
       ShowHint = True
       object CopyFilesHashingGroupBox: TGroupBox
         Left = 120
         Height = 598
         Top = 8
-        Width = 860
+        Width = 858
         Anchors = [akTop, akLeft, akRight]
         Caption = 'Hash files in chosen directory, copy them, and re-hash the copied files (recursive by default) '
         ClientHeight = 580
-        ClientWidth = 856
+        ClientWidth = 854
         Color = clForm
         ParentColor = False
         ParentFont = False
@@ -710,10 +711,10 @@ object MainForm: TMainForm
           Left = 16
           Height = 176
           Top = 16
-          Width = 817
+          Width = 815
           Anchors = [akTop, akLeft, akRight]
           ClientHeight = 176
-          ClientWidth = 817
+          ClientWidth = 815
           TabOrder = 3
           object CheckBoxListOfDirsOnly: TCheckBox
             Left = 14
@@ -949,7 +950,7 @@ object MainForm: TMainForm
           Left = 0
           Height = 20
           Top = 560
-          Width = 856
+          Width = 854
           Anchors = [akRight]
           Panels = <>
         end
@@ -965,7 +966,7 @@ object MainForm: TMainForm
           ReadOnly = True
           TabOrder = 5
           OnClick = DirListAClick
-          Options = [tvoAutoItemHeight, tvoHideSelection, tvoHotTrack, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
+          Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoHotTrack, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
           TreeLinePenStyle = psSolid
           ObjectTypes = [otFolders, otHidden]
         end