From 27d22bec0e31fb30b674cd47cd9fe933a733d976 Mon Sep 17 00:00:00 2001
From: "meffi@lab313.ru" <meffi@lab313.ru@706930b9-3d88-df67-00fe-4c1b76c3f905>
Date: Wed, 7 May 2014 13:56:53 +0000
Subject: [PATCH] Another one fix about russian paths. Argh!)

---
 tim2view.lpi |   5 ++---
 tim2view.lps |  10 +++++-----
 tim2view.res | Bin 16796 -> 16796 bytes
 ucommon.pas  |   2 +-
 umain.pas    |   2 +-
 5 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/tim2view.lpi b/tim2view.lpi
index f89d45a..8cd825b 100644
--- a/tim2view.lpi
+++ b/tim2view.lpi
@@ -23,7 +23,7 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MajorVersionNr Value="1"/>
-      <RevisionNr Value="84"/>
+      <RevisionNr Value="85"/>
       <StringTable CompanyName="Lab 313" FileDescription="The best TIMs tool ever!:)" ProductVersion=""/>
     </VersionInfo>
     <BuildModes Count="6">
@@ -346,7 +346,7 @@
     <Version Value="11"/>
     <PathDelim Value="\"/>
     <Target>
-      <Filename Value="output\tim2view_$(TargetOS)"/>
+      <Filename Value="руссиш\tim2view_$(TargetOS)"/>
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir);bgrabitmap"/>
@@ -364,7 +364,6 @@
         <OverflowChecks Value="True"/>
         <StackChecks Value="True"/>
       </Checks>
-      <VerifyObjMethodCallValidity Value="True"/>
     </CodeGeneration>
     <Linking>
       <Debugging>
diff --git a/tim2view.lps b/tim2view.lps
index 48babc1..c78bb91 100644
--- a/tim2view.lps
+++ b/tim2view.lps
@@ -23,8 +23,8 @@
         <UnitName Value="umain"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="188"/>
-        <CursorPos X="40" Y="199"/>
+        <TopLine Value="540"/>
+        <CursorPos X="66" Y="556"/>
         <UsageCount Value="816"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -52,7 +52,7 @@
         <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
-        <CursorPos X="47" Y="13"/>
+        <CursorPos X="35" Y="6"/>
         <UsageCount Value="816"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -84,8 +84,8 @@
         <UnitName Value="usettings"/>
         <EditorIndex Value="9"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="41"/>
-        <CursorPos X="44" Y="52"/>
+        <TopLine Value="132"/>
+        <CursorPos X="1" Y="150"/>
         <UsageCount Value="816"/>
         <Loaded Value="True"/>
       </Unit7>
diff --git a/tim2view.res b/tim2view.res
index 936de879d84001054c363036cb11ba9fe0389a09..6be6f8436ca638d6aad29f698ca5489ae12a99f2 100644
GIT binary patch
delta 23
fcmbQ!%s8i+al<-h#?Z~{nd2E5O*iwi_SygdWK;)(

delta 23
fcmbQ!%s8i+al<-h#*oeHnd2E5O*Zqh_SygdWI+dk

diff --git a/ucommon.pas b/ucommon.pas
index bdb182a..975850b 100644
--- a/ucommon.pas
+++ b/ucommon.pas
@@ -3,7 +3,7 @@ unit ucommon;
 interface
 
 const
-  cProgramName = 'Tim2View SVN.r84 by [Lab 313] (for ' +
+  cProgramName = 'Tim2View SVN.r85 by [Lab 313] (for ' +
   {$IFDEF Linux}'Linux' + {$IFEND}
   {$IFDEF Darwin}'Mac OS X' + {$IFEND}
   {$IFDEF Windows}'Windows' + {$IFEND}
diff --git a/umain.pas b/umain.pas
index 0e24730..0969c58 100644
--- a/umain.pas
+++ b/umain.pas
@@ -551,7 +551,7 @@ end;
 
 procedure TfrmMain.FormCreate(Sender: TObject);
 begin
-  Settings := TSettings.Create(ExtractFilePath(ParamStrUTF8(0)));
+  Settings := TSettings.Create(ExtractFilePath(ParamStr(0)));
 
   cbbBitMode.Tag := NativeInt($FF);