Fixed multiple files scanning. Fixed Select directory dialog.

tim2view.lpi

@@ -27,7 +27,7 @@
       <AutoIncrementBuild Value="True"/>
       <MajorVersionNr Value="1"/>
       <RevisionNr Value="88"/>
-      <BuildNr Value="13"/>
+      <BuildNr Value="18"/>
       <StringTable CompanyName="Lab 313" FileDescription="The best TIMs tool ever!:)" ProductVersion=""/>
     </VersionInfo>
     <BuildModes Count="6">
@@ -247,7 +247,6 @@
         <ComponentName Value="frmMain"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="umain"/>
       </Unit1>
       <Unit2>
         <Filename Value="edc.pas"/>
@@ -264,7 +263,6 @@
       <Unit5>
         <Filename Value="utim.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="utim"/>
       </Unit5>
       <Unit6>
         <Filename Value="ucdimage.pas"/>
@@ -289,7 +287,6 @@
       <Unit11>
         <Filename Value="udrawtim.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="udrawtim"/>
       </Unit11>
       <Unit12>
         <Filename Value="bgrabitmap\bgrabitmap.pas"/>
@@ -327,6 +324,7 @@
         <OverflowChecks Value="True"/>
         <StackChecks Value="True"/>
       </Checks>
+      <StackSize Value="16384"/>
     </CodeGeneration>
     <Linking>
       <Debugging>

tim2view.lpr

@@ -6,15 +6,11 @@ uses
   {$IFDEF UNIX}
   cthreads, cmem,
   {$ENDIF}
-  Forms, umain, Interfaces,
-  Windows;
+  Forms, umain, Interfaces;
 
 {$R *.res}
 
 begin
-  AllocConsole;      // in Windows unit
-  IsConsole := True; // in System unit
-  SysInitStdIO;      // in System unit
   RequireDerivedFormResource := True;
   Application.Initialize;
   Application.CreateForm(TfrmMain, frmMain);

umain.lfm

@@ -494,7 +494,7 @@ object frmMain: TfrmMain
   OnCreate = FormCreate
   OnDropFiles = FormDropFiles
   Position = poScreenCenter
-  LCLVersion = '1.4.0.2'
+  LCLVersion = '1.4.2.0'
   object pnlStatus: TPanel
     Left = 0
     Height = 30
@@ -1148,7 +1148,7 @@ object frmMain: TfrmMain
     end
   end
   object dlgSelectDir: TSelectDirectoryDialog
-    Options = [ofNoChangeDir, ofNoNetworkButton, ofEnableSizing, ofViewDetail]
+    Options = [ofNoChangeDir, ofNoNetworkButton, ofOldStyleDialog, ofEnableSizing, ofViewDetail]
     left = 512
     top = 112
   end

umain.pas

@@ -660,7 +660,7 @@ begin
     FreeTIM(TIM);
     Exit;
   end;
-  //Writeln('X=',aCol, '; Y=',aRow);
+
   DrawClutCell(TIM, cbbCLUT.ItemIndex, @grdClut, ACol, ARow);
 
   FreeTIM(TIM);
@@ -796,6 +796,8 @@ begin
     ScanThreads.Last.Priority := tpNormal;
     ScanThreads.Last.OnTerminate := @ScanFinished;
 
+    ScanThreads.Pack;
+
     if StartedScans < GetLogicalCpuCount then
     begin
       BeforeScan(ScanThreads.Last.FileLength);