Small fixes, and more info in program title.

tim2view.lpi

@@ -19,7 +19,7 @@
       <AutoIncrementBuild Value="True"/>
       <MajorVersionNr Value="1"/>
       <RevisionNr Value="54"/>
-      <BuildNr Value="68"/>
+      <BuildNr Value="71"/>
       <StringTable CompanyName="Lab 313" FileDescription="The best TIMs tool ever!:)" ProductVersion=""/>
     </VersionInfo>
     <BuildModes Count="1">

tim2view.lps

@@ -23,8 +23,8 @@
         <UnitName Value="umain"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="862"/>
-        <CursorPos X="1" Y="877"/>
+        <TopLine Value="539"/>
+        <CursorPos X="26" Y="551"/>
         <UsageCount Value="46"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -51,21 +51,22 @@
         <Filename Value="ucommon.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="ucommon"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="18"/>
-        <CursorPos X="15" Y="35"/>
+        <TopLine Value="1"/>
+        <CursorPos X="33" Y="6"/>
         <UsageCount Value="46"/>
+        <Loaded Value="True"/>
       </Unit4>
       <Unit5>
         <Filename Value="utim.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="utim"/>
-        <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
         <TopLine Value="165"/>
         <CursorPos X="85" Y="179"/>
         <UsageCount Value="46"/>
-        <Loaded Value="True"/>
       </Unit5>
       <Unit6>
         <Filename Value="ucdimage.pas"/>
@@ -107,22 +108,21 @@
         <Filename Value="ucpucount.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="ucpucount"/>
+        <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="44"/>
-        <CursorPos X="57" Y="58"/>
+        <TopLine Value="1"/>
+        <CursorPos X="23" Y="8"/>
         <UsageCount Value="44"/>
+        <Loaded Value="True"/>
       </Unit10>
       <Unit11>
         <Filename Value="udrawtim.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="udrawtim"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
         <TopLine Value="187"/>
         <CursorPos X="35" Y="203"/>
         <UsageCount Value="31"/>
-        <Loaded Value="True"/>
       </Unit11>
       <Unit12>
         <Filename Value="bgrabitmap\bgrabitmap.pas"/>
@@ -331,7 +331,7 @@
     <General>
       <ActiveWindowIndexAtStart Value="0"/>
     </General>
-    <JumpHistory Count="18" HistoryIndex="17">
+    <JumpHistory Count="19" HistoryIndex="18">
       <Position1>
         <Filename Value="umain.pas"/>
         <Caret Line="876" Column="31" TopLine="861"/>
@@ -373,24 +373,24 @@
         <Caret Line="883" Column="47" TopLine="871"/>
       </Position10>
       <Position11>
-        <Filename Value="udrawtim.pas"/>
-        <Caret Line="125" Column="24" TopLine="5"/>
+        <Filename Value="umain.pas"/>
+        <Caret Line="204" Column="30" TopLine="192"/>
       </Position11>
       <Position12>
-        <Filename Value="udrawtim.pas"/>
-        <Caret Line="10" Column="28" TopLine="4"/>
+        <Filename Value="umain.pas"/>
+        <Caret Line="131" Column="21" TopLine="117"/>
       </Position12>
       <Position13>
         <Filename Value="umain.pas"/>
-        <Caret Line="204" Column="30" TopLine="192"/>
+        <Caret Line="518" Column="1" TopLine="504"/>
       </Position13>
       <Position14>
         <Filename Value="umain.pas"/>
-        <Caret Line="131" Column="21" TopLine="117"/>
+        <Caret Line="519" Column="1" TopLine="504"/>
       </Position14>
       <Position15>
         <Filename Value="umain.pas"/>
-        <Caret Line="518" Column="1" TopLine="504"/>
+        <Caret Line="892" Column="41" TopLine="875"/>
       </Position15>
       <Position16>
         <Filename Value="umain.pas"/>
@@ -398,12 +398,16 @@
       </Position16>
       <Position17>
         <Filename Value="umain.pas"/>
-        <Caret Line="892" Column="41" TopLine="875"/>
+        <Caret Line="871" Column="41" TopLine="862"/>
       </Position17>
       <Position18>
-        <Filename Value="umain.pas"/>
-        <Caret Line="519" Column="1" TopLine="504"/>
+        <Filename Value="ucommon.pas"/>
+        <Caret Line="6" Column="50" TopLine="1"/>
       </Position18>
+      <Position19>
+        <Filename Value="umain.pas"/>
+        <Caret Line="524" Column="48" TopLine="516"/>
+      </Position19>
     </JumpHistory>
   </ProjectSession>
   <EditorMacros Count="0"/>

ucommon.pas

@@ -3,8 +3,11 @@ unit ucommon;
 interface
 
 const
-  cProgramName = 'Tim2View by [Lab 313]';
-  cProgramVersion = '2.0 Release';
+  cProgramName = 'Tim2View SVN.r58 by [Lab 313] (for ' +
+  {$IFDEF Linux}'Linux' + {$IFEND}
+  {$IFDEF Darwin}'Mac OS X' + {$IFEND}
+  {$IFDEF Windows}'Windows' + {$IFEND}
+  ')';
   cExtractedTimsDir = 'TIMS';
   cExtractedPngsDir = 'PNGS';
   cMaxFileSize = $2EAEED80;
@@ -56,4 +59,4 @@ begin
   Result := Copy(Result, 1, Length(Result) - Length(ExtractFileExt(Result)));
 end;
 
-end.
+end.

umain.lfm

@@ -1,14 +1,14 @@
 object frmMain: TfrmMain
-  Left = 942
+  Left = 1017
   Height = 590
-  Top = 197
+  Top = 147
   Width = 780
   HorzScrollBar.Page = 780
-  VertScrollBar.Page = 570
+  VertScrollBar.Page = 567
   ActiveControl = pnlList
   AllowDropFiles = True
   AutoScroll = True
-  ClientHeight = 570
+  ClientHeight = 567
   ClientWidth = 780
   Color = clBtnFace
   Font.Color = clWindowText
@@ -497,7 +497,7 @@ object frmMain: TfrmMain
   object pnlStatus: TPanel
     Left = 0
     Height = 30
-    Top = 540
+    Top = 537
     Width = 780
     Align = alBottom
     BevelOuter = bvLowered
@@ -537,13 +537,13 @@ object frmMain: TfrmMain
   end
   object cbbFiles: TComboBox
     Left = 0
-    Height = 21
+    Height = 28
     Top = 0
     Width = 780
     Align = alTop
     DropDownCount = 30
     Enabled = False
-    ItemHeight = 13
+    ItemHeight = 0
     OnChange = actChangeFileExecute
     OnCloseUp = actReturnFocusExecute
     Style = csDropDownList
@@ -551,33 +551,33 @@ object frmMain: TfrmMain
   end
   object pnlMain: TPanel
     Left = 0
-    Height = 519
-    Top = 21
+    Height = 509
+    Top = 28
     Width = 780
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 519
+    ClientHeight = 509
     ClientWidth = 780
     TabOrder = 1
     object splMain: TSplitter
       Left = 240
-      Height = 519
+      Height = 509
       Top = 0
       Width = 5
     end
     object pnlList: TPanel
       Left = 0
-      Height = 519
+      Height = 509
       Top = 0
       Width = 240
       Align = alLeft
       BevelOuter = bvNone
-      ClientHeight = 519
+      ClientHeight = 509
       ClientWidth = 240
       TabOrder = 0
       object lvList: TListView
         Left = 0
-        Height = 491
+        Height = 481
         Top = 28
         Width = 240
         Align = alClient
@@ -599,6 +599,7 @@ object frmMain: TfrmMain
           item
             Alignment = taCenter
             Caption = 'CLUTs'
+            Width = 57
           end>
         ColumnClick = False
         Enabled = False
@@ -645,12 +646,12 @@ object frmMain: TfrmMain
     end
     object pnlImage: TPanel
       Left = 245
-      Height = 519
+      Height = 509
       Top = 0
       Width = 535
       Align = alClient
       BevelOuter = bvLowered
-      ClientHeight = 519
+      ClientHeight = 509
       ClientWidth = 535
       TabOrder = 1
       object splImageClut: TSplitter
@@ -666,7 +667,7 @@ object frmMain: TfrmMain
       object grdCurrClut: TDrawGrid
         Left = 1
         Height = 150
-        Top = 345
+        Top = 330
         Width = 533
         Align = alBottom
         ColCount = 1
@@ -690,18 +691,18 @@ object frmMain: TfrmMain
       end
       object pnlImageOptions: TPanel
         Left = 1
-        Height = 23
-        Top = 495
+        Height = 28
+        Top = 480
         Width = 533
         Align = alBottom
         AutoSize = True
         BevelOuter = bvNone
-        ClientHeight = 23
+        ClientHeight = 28
         ClientWidth = 533
         TabOrder = 1
         object btnShowClut: TButton
           Left = 481
-          Height = 23
+          Height = 28
           Top = 0
           Width = 52
           Align = alRight
@@ -712,12 +713,12 @@ object frmMain: TfrmMain
         end
         object cbbBitMode: TComboBox
           Left = 0
-          Height = 21
+          Height = 28
           Top = 0
           Width = 90
           Align = alLeft
           Enabled = False
-          ItemHeight = 13
+          ItemHeight = 0
           ItemIndex = 0
           Items.Strings = (
             'Real'
@@ -734,12 +735,12 @@ object frmMain: TfrmMain
         end
         object cbbTranspMode: TComboBox
           Left = 90
-          Height = 21
+          Height = 28
           Top = 0
           Width = 136
           Align = alLeft
           Enabled = False
-          ItemHeight = 13
+          ItemHeight = 0
           ItemIndex = 0
           Items.Strings = (
             'Full transparence'
@@ -755,13 +756,13 @@ object frmMain: TfrmMain
         end
         object cbbCLUT: TComboBox
           Left = 372
-          Height = 21
+          Height = 28
           Top = 0
           Width = 109
           Align = alRight
           DropDownCount = 16
           Enabled = False
-          ItemHeight = 13
+          ItemHeight = 0
           OnChange = actChangeClutIdxExecute
           Style = csDropDownList
           TabOrder = 3
@@ -769,7 +770,7 @@ object frmMain: TfrmMain
       end
       object imgTim: TImage
         Left = 1
-        Height = 341
+        Height = 326
         Top = 4
         Width = 533
         AntialiasingMode = amOff
@@ -1023,4 +1024,4 @@ object frmMain: TfrmMain
     left = 449
     top = 450
   end
-end
+end

umain.pas

@@ -526,7 +526,7 @@ procedure TfrmMain.FormCreate(Sender: TObject);
 var
   hGridRect: TGridRect;
 begin
-  {$IFDEF Linux}mnOptions.Visible := False;{$IFEND}
+  {$IFnDEF Windows}mnOptions.Enabled := False;{$IFEND}
 
   Settings := TSettings.Create(ExtractFilePath(ParamStr(0)));
 
@@ -548,7 +548,7 @@ begin
   Surf^ := nil;
 
   SetCLUTListToNoCLUT;
-  Caption := Format('%s v%s', [cProgramName, cProgramVersion]);
+  Caption := cProgramName;
 
   CheckButtonsAndMainMenu;
 
@@ -975,4 +975,4 @@ begin
 end;
 
 end.
-
+