Fixed opening files in Open dialog.

tim2view.lpi

@@ -26,8 +26,8 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MajorVersionNr Value="1"/>
-      <RevisionNr Value="88"/>
+      <RevisionNr Value="90"/>
-      <BuildNr Value="20"/>
+      <BuildNr Value="33"/>
       <StringTable CompanyName="Lab 313" FileDescription="The best TIMs tool ever!:)" ProductVersion=""/>
     </VersionInfo>
     <BuildModes Count="6">
@@ -41,6 +41,7 @@
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
+            <Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
             <OtherUnitFiles Value="lazpaint\bgrabitmap"/>
             <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
@@ -80,6 +81,7 @@
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
+            <Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
             <OtherUnitFiles Value="lazpaint\bgrabitmap"/>
             <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
@@ -119,6 +121,7 @@
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
+            <Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
             <OtherUnitFiles Value="lazpaint\bgrabitmap"/>
             <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
@@ -158,6 +161,7 @@
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
+            <Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
             <OtherUnitFiles Value="lazpaint\bgrabitmap"/>
             <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
@@ -197,6 +201,7 @@
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
+            <Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
             <OtherUnitFiles Value="lazpaint\bgrabitmap"/>
             <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
@@ -315,6 +320,7 @@
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
+      <Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
       <OtherUnitFiles Value="lazpaint\bgrabitmap"/>
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>

ucommon.pas

@@ -3,7 +3,7 @@ unit ucommon;
 interface
 
 const
-  cProgramName = 'Tim2View SVN.r89 by [Lab 313] (for ' +
+  cProgramName = 'Tim2View SVN.r90 by [Lab 313] (for ' +
   {$IFDEF Linux}'Linux' + {$IFEND}
   {$IFDEF Darwin}'Mac OS X' + {$IFEND}
   {$IFDEF Windows}'Windows' + {$IFEND}

umain.lfm

@@ -494,7 +494,7 @@ object frmMain: TfrmMain
   OnCreate = FormCreate
   OnDropFiles = FormDropFiles
   Position = poScreenCenter
-  LCLVersion = '1.4.2.0'
+  LCLVersion = '1.5'
   object pnlStatus: TPanel
     Left = 0
     Height = 30
@@ -673,7 +673,7 @@ object frmMain: TfrmMain
         TitleFont.Name = 'Tahoma'
         ColWidths = (
           102
-          150
+          133
         )
         Cells = (
           10
@@ -873,7 +873,7 @@ object frmMain: TfrmMain
     Title = 'Please, select File...'
     DefaultExt = '.bin'
     Filter = 'All Files (*.*)|*.*'
-    Options = [ofHideReadOnly, ofNoChangeDir, ofAllowMultiSelect, ofNoNetworkButton, ofEnableSizing, ofForceShowHidden]
+    Options = [ofHideReadOnly, ofNoChangeDir, ofAllowMultiSelect, ofNoNetworkButton, ofOldStyleDialog, ofEnableSizing, ofForceShowHidden]
     left = 560
     top = 112
   end

umain.pas

@@ -317,7 +317,9 @@ end;
 
 procedure TfrmMain.actAddToSendtoExecute(Sender: TObject);
 begin
+  {$IFDEF windows}
   Settings.AddToSendTo(not (Sender as TAction).Checked);
+  {$IFEND}
 end;
 
 procedure TfrmMain.actChangeBackColorExecute(Sender: TObject);

usettings.pas

@@ -64,8 +64,8 @@ const
 
 { TSettings }
 
-procedure TSettings.AddToSendTo(Delete: Boolean);
 {$IFDEF windows}
+procedure TSettings.AddToSendTo(Delete: Boolean);
 var
   path: string;
 begin
@@ -76,12 +76,8 @@ begin
   end
   else
     FCreateSendtoShortcut;
-{$ELSE}
-begin
-{$ENDIF}
 end;
 
-{$IFDEF windows}
 function TSettings.FGetSendtoShortcutPath: WideString;
 var
   PIDL: PItemIDList;