From 29ba53143ea8cfeadec8bc50bb8d17cbd235c12b Mon Sep 17 00:00:00 2001
From: "meffi@lab313.ru" <meffi@lab313.ru@706930b9-3d88-df67-00fe-4c1b76c3f905>
Date: Mon, 28 Apr 2014 14:12:30 +0000
Subject: [PATCH] Minor fixes.

---
 tim2view.lpi  |   6 ++++--
 tim2view.lps  |  16 ++++++++--------
 tim2view.res  | Bin 16796 -> 16796 bytes
 ucommon.pas   |   2 +-
 udrawtim.pas  |   1 +
 umain.pas     |   5 ++---
 usettings.pas |   2 +-
 7 files changed, 17 insertions(+), 15 deletions(-)

diff --git a/tim2view.lpi b/tim2view.lpi
index 1119521..5f7185f 100644
--- a/tim2view.lpi
+++ b/tim2view.lpi
@@ -23,7 +23,8 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MajorVersionNr Value="1"/>
-      <RevisionNr Value="78"/>
+      <RevisionNr Value="79"/>
+      <BuildNr Value="5"/>
       <StringTable CompanyName="Lab 313" FileDescription="The best TIMs tool ever!:)" ProductVersion=""/>
     </VersionInfo>
     <BuildModes Count="6">
@@ -364,11 +365,12 @@
         <OverflowChecks Value="True"/>
         <StackChecks Value="True"/>
       </Checks>
+      <TargetCPU Value="x86_64"/>
+      <TargetOS Value="win64"/>
     </CodeGeneration>
     <Linking>
       <Debugging>
         <DebugInfoType Value="dsDwarf2Set"/>
-        <UseExternalDbgSyms Value="True"/>
       </Debugging>
       <Options>
         <Win32>
diff --git a/tim2view.lps b/tim2view.lps
index d1b8b16..095d910 100644
--- a/tim2view.lps
+++ b/tim2view.lps
@@ -26,8 +26,8 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="235"/>
-        <CursorPos X="49" Y="244"/>
+        <TopLine Value="288"/>
+        <CursorPos X="36" Y="297"/>
         <UsageCount Value="816"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -54,7 +54,7 @@
         <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
-        <CursorPos X="35" Y="6"/>
+        <CursorPos X="56" Y="8"/>
         <UsageCount Value="816"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -86,8 +86,8 @@
         <UnitName Value="usettings"/>
         <EditorIndex Value="9"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="81"/>
-        <CursorPos X="55" Y="92"/>
+        <TopLine Value="80"/>
+        <CursorPos X="67" Y="88"/>
         <UsageCount Value="816"/>
         <Loaded Value="True"/>
       </Unit7>
@@ -130,8 +130,8 @@
         <UnitName Value="udrawtim"/>
         <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="6"/>
-        <CursorPos X="49" Y="14"/>
+        <TopLine Value="222"/>
+        <CursorPos X="72" Y="238"/>
         <UsageCount Value="816"/>
         <Loaded Value="True"/>
       </Unit11>
@@ -160,7 +160,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="7"/>
         <CursorPos X="20" Y="16"/>
-        <UsageCount Value="57"/>
+        <UsageCount Value="67"/>
         <Loaded Value="True"/>
       </Unit14>
     </Units>
diff --git a/tim2view.res b/tim2view.res
index 05e4cf6d2b3f1ba15e45ad5427a2617b11c17cf7..c6f48d1e7c9eeec4f3be7f45099dd1827f2dd718 100644
GIT binary patch
delta 29
lcmbQ!%s8i+al;yBW>yCO&Fh)t8CfkE^cYMx3$u3G004$%2kig=

delta 29
lcmbQ!%s8i+al;yBW(Eeo&Fh)t8CfkD^cV~_3$u3G004!}2jKt!

diff --git a/ucommon.pas b/ucommon.pas
index c1dc54b..cb32504 100644
--- a/ucommon.pas
+++ b/ucommon.pas
@@ -3,7 +3,7 @@ unit ucommon;
 interface
 
 const
-  cProgramName = 'Tim2View SVN.r77 by [Lab 313] (for ' +
+  cProgramName = 'Tim2View SVN.r79 by [Lab 313] (for ' +
   {$IFDEF Linux}'Linux' + {$IFEND}
   {$IFDEF Darwin}'Mac OS X' + {$IFEND}
   {$IFDEF Windows}'Windows' + {$IFEND}
diff --git a/udrawtim.pas b/udrawtim.pas
index 792545b..471457f 100644
--- a/udrawtim.pas
+++ b/udrawtim.pas
@@ -206,6 +206,7 @@ begin
   INDEXES := PrepareIMAGE(TIM);
 
   COLORS := GetTimColorsCount(TIM);
+  COLORS := ifthen(COLORS = 0, 256, COLORS);
   IDX := 0;
 
   R := 0;
diff --git a/umain.pas b/umain.pas
index a362010..4375bf2 100644
--- a/umain.pas
+++ b/umain.pas
@@ -247,7 +247,7 @@ begin
   if not dlgSavePNG.Execute then Exit;
 
   New(Image);
-  Image := nil;
+  Image^ := nil;
   Tim2Png(TIM, cbbCLUT.ItemIndex, Image, cbbTranspMode.ItemIndex, True);
   SaveImage(dlgSavePNG.FileName, Image, TIMisIndexed(TIM));
   FreeTIM(TIM);
@@ -294,8 +294,7 @@ begin
   lvList.ItemIndex := 0;
   lvList.Items[0].Focused := True;
   lvList.Items[0].Selected := True;
-
-  //ShowTim;
+  lvList.Items[0].MakeVisible(False);
 end;
 
 procedure TfrmMain.actAboutExecute(Sender: TObject);
diff --git a/usettings.pas b/usettings.pas
index 93cc2f1..254240c 100644
--- a/usettings.pas
+++ b/usettings.pas
@@ -79,7 +79,7 @@ end;
 
 function TSettings.FBackColorRead: TColor;
 begin
-  Result := FIniFile.ReadInteger(sMain, 'BackColor', clBtnFace);
+  Result := FIniFile.ReadInteger(sMain, 'BackColor', clFuchsia);
 end;
 
 procedure TSettings.FBitModeWrite(Mode: Integer);