Fixed files changing. Not for build.

tim2view.lps

@@ -9,12 +9,10 @@
         <Filename Value="tim2view.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="tim2view"/>
-        <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="46" Y="13"/>
         <UsageCount Value="816"/>
-        <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="umain.pas"/>
@@ -25,8 +23,8 @@
         <UnitName Value="umain"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="677"/>
-        <CursorPos X="41" Y="684"/>
+        <TopLine Value="362"/>
+        <CursorPos X="48" Y="368"/>
         <UsageCount Value="816"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -50,11 +48,10 @@
         <Filename Value="ucommon.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="ucommon"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
-        <CursorPos X="35" Y="6"/>
+        <CursorPos X="45" Y="10"/>
         <UsageCount Value="816"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -62,7 +59,7 @@
         <Filename Value="utim.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="utim"/>
-        <EditorIndex Value="10"/>
+        <EditorIndex Value="9"/>
         <WindowIndex Value="0"/>
         <TopLine Value="185"/>
         <CursorPos X="1" Y="204"/>
@@ -73,7 +70,7 @@
         <Filename Value="ucdimage.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="ucdimage"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
         <TopLine Value="112"/>
         <CursorPos X="50" Y="117"/>
@@ -84,7 +81,7 @@
         <Filename Value="usettings.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="usettings"/>
-        <EditorIndex Value="9"/>
+        <EditorIndex Value="8"/>
         <WindowIndex Value="0"/>
         <TopLine Value="41"/>
         <CursorPos X="60" Y="56"/>
@@ -95,7 +92,7 @@
         <Filename Value="uscanresult.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="uscanresult"/>
-        <EditorIndex Value="7"/>
+        <EditorIndex Value="6"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="10" Y="5"/>
@@ -106,10 +103,11 @@
         <Filename Value="uscanthread.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="uscanthread"/>
-        <EditorIndex Value="8"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="7"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="169"/>
-        <CursorPos X="64" Y="197"/>
+        <TopLine Value="171"/>
+        <CursorPos X="79" Y="182"/>
         <UsageCount Value="816"/>
         <Loaded Value="True"/>
       </Unit9>
@@ -117,7 +115,7 @@
         <Filename Value="ucpucount.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="ucpucount"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
         <TopLine Value="19"/>
         <CursorPos X="87" Y="34"/>
@@ -128,10 +126,10 @@
         <Filename Value="udrawtim.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="udrawtim"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="333"/>
-        <CursorPos X="43" Y="357"/>
+        <TopLine Value="1"/>
+        <CursorPos X="15" Y="6"/>
         <UsageCount Value="816"/>
         <Loaded Value="True"/>
       </Unit11>
@@ -156,11 +154,11 @@
         <Filename Value="uexportimport.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="uexportimport"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
         <TopLine Value="7"/>
         <CursorPos X="20" Y="16"/>
-        <UsageCount Value="69"/>
+        <UsageCount Value="71"/>
         <Loaded Value="True"/>
       </Unit14>
     </Units>
@@ -169,7 +167,7 @@
     </General>
   </ProjectSession>
   <Debugging>
-    <BreakPoints Count="2">
+    <BreakPoints Count="3">
       <Item1>
         <Kind Value="bpkSource"/>
         <WatchScope Value="wpsLocal"/>
@@ -184,6 +182,13 @@
         <Source Value="c:\Lazarus\fpc\2.6.2\source\packages\fcl-image\src\fppalette.inc"/>
         <Line Value="159"/>
       </Item2>
+      <Item3>
+        <Kind Value="bpkSource"/>
+        <WatchScope Value="wpsLocal"/>
+        <WatchKind Value="wpkWrite"/>
+        <Source Value="umain.pas"/>
+        <Line Value="812"/>
+      </Item3>
     </BreakPoints>
     <Watches Count="3">
       <Item1>

umain.lfm

@@ -9,7 +9,7 @@ object frmMain: TfrmMain
   VertScrollBar.Range = 344
   ActiveControl = pnlList
   AllowDropFiles = True
-  ClientHeight = 627
+  ClientHeight = 622
   ClientWidth = 790
   Color = clBtnFace
   Font.Color = clWindowText
@@ -498,7 +498,7 @@ object frmMain: TfrmMain
   object pnlStatus: TPanel
     Left = 0
     Height = 30
-    Top = 574
+    Top = 571
     Width = 790
     Align = alBottom
     BevelOuter = bvLowered
@@ -538,13 +538,13 @@ object frmMain: TfrmMain
   end
   object cbbFiles: TComboBox
     Left = 0
-    Height = 21
+    Height = 28
     Top = 0
     Width = 790
     Align = alTop
     DropDownCount = 30
     Enabled = False
-    ItemHeight = 13
+    ItemHeight = 0
     OnChange = actChangeFileExecute
     OnCloseUp = actReturnFocusExecute
     Style = csDropDownList
@@ -552,33 +552,33 @@ object frmMain: TfrmMain
   end
   object pnlMain: TPanel
     Left = 0
-    Height = 553
-    Top = 21
+    Height = 543
+    Top = 28
     Width = 790
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 553
+    ClientHeight = 543
     ClientWidth = 790
     TabOrder = 1
     object splMain: TSplitter
       Left = 253
-      Height = 553
+      Height = 543
       Top = 0
       Width = 5
     end
     object pnlList: TPanel
       Left = 0
-      Height = 553
+      Height = 543
       Top = 0
       Width = 253
       Align = alLeft
       BevelOuter = bvNone
-      ClientHeight = 553
+      ClientHeight = 543
       ClientWidth = 253
       TabOrder = 0
       object lvList: TListView
         Left = 0
-        Height = 525
+        Height = 515
         Top = 28
         Width = 253
         Align = alClient
@@ -589,18 +589,21 @@ object frmMain: TfrmMain
           end        
           item
             Alignment = taCenter
-            Caption = 'W x H'
-            Width = 70
-          end        
-          item
-            Alignment = taCenter
+            AutoSize = True
             Caption = 'BPP'
             Width = 35
           end        
           item
             Alignment = taCenter
+            AutoSize = True
             Caption = 'CLUTs'
-            Width = 57
+            Width = 47
+          end        
+          item
+            Alignment = taCenter
+            AutoSize = True
+            Caption = 'W x H'
+            Width = 91
           end>
         ColumnClick = False
         GridLines = True
@@ -608,6 +611,7 @@ object frmMain: TfrmMain
         PopupMenu = pmList
         ReadOnly = True
         RowSelect = True
+        ScrollBars = ssAutoBoth
         TabOrder = 0
         ToolTips = False
         ViewStyle = vsReport
@@ -646,32 +650,32 @@ object frmMain: TfrmMain
     end
     object pnlImage: TPanel
       Left = 258
-      Height = 553
+      Height = 543
       Top = 0
       Width = 532
       Align = alClient
       BevelOuter = bvLowered
-      ClientHeight = 553
+      ClientHeight = 543
       ClientWidth = 532
       Color = clBtnFace
       ParentColor = False
       TabOrder = 1
       object pnlImageOptions: TPanel
         Left = 1
-        Height = 27
-        Top = 525
+        Height = 32
+        Top = 510
         Width = 530
         Align = alBottom
         AutoSize = True
         BevelOuter = bvLowered
-        ClientHeight = 27
+        ClientHeight = 32
         ClientWidth = 530
         Color = clBtnFace
         ParentColor = False
         TabOrder = 0
         object btnShowClut: TButton
           Left = 476
-          Height = 23
+          Height = 28
           Top = 2
           Width = 52
           Align = alRight
@@ -682,12 +686,12 @@ object frmMain: TfrmMain
         end
         object cbbBitMode: TComboBox
           Left = 2
-          Height = 21
+          Height = 28
           Top = 2
           Width = 159
           Align = alLeft
           BorderSpacing.Around = 1
-          ItemHeight = 13
+          ItemHeight = 0
           ItemIndex = 0
           Items.Strings = (
             'Real'
@@ -706,12 +710,12 @@ object frmMain: TfrmMain
         end
         object cbbTranspMode: TComboBox
           Left = 162
-          Height = 21
+          Height = 28
           Top = 2
-          Width = 136
+          Width = 150
           Align = alLeft
           BorderSpacing.Around = 1
-          ItemHeight = 13
+          ItemHeight = 0
           ItemIndex = 1
           Items.Strings = (
             'Full transparence'
@@ -727,13 +731,13 @@ object frmMain: TfrmMain
         end
         object cbbCLUT: TComboBox
           Left = 366
-          Height = 21
+          Height = 28
           Top = 2
           Width = 109
           Align = alRight
           BorderSpacing.Around = 1
           DropDownCount = 16
-          ItemHeight = 13
+          ItemHeight = 0
           OnChange = actChangeClutIdxExecute
           Style = csDropDownList
           TabOrder = 3
@@ -741,12 +745,12 @@ object frmMain: TfrmMain
       end
       object pnlClut: TPanel
         Left = 1
-        Height = 157
-        Top = 368
+        Height = 165
+        Top = 345
         Width = 530
         Align = alBottom
         BevelOuter = bvLowered
-        ClientHeight = 157
+        ClientHeight = 165
         ClientWidth = 530
         Color = clBtnFace
         ParentColor = False
@@ -754,7 +758,7 @@ object frmMain: TfrmMain
         Visible = False
         object grdClut: TDrawGrid
           Left = 1
-          Height = 116
+          Height = 115
           Top = 1
           Width = 528
           Align = alClient
@@ -779,8 +783,8 @@ object frmMain: TfrmMain
         end
         object lblClutHint: TLabel
           Left = 1
-          Height = 39
-          Top = 117
+          Height = 48
+          Top = 116
           Width = 528
           Align = alBottom
           Alignment = taCenter
@@ -792,7 +796,7 @@ object frmMain: TfrmMain
       end
       object imgTim: TImage
         Left = 1
-        Height = 367
+        Height = 344
         Top = 1
         Width = 530
         AntialiasingMode = amOff
@@ -805,8 +809,8 @@ object frmMain: TfrmMain
   end
   object sbMain: TStatusBar
     Left = 0
-    Height = 23
-    Top = 604
+    Height = 21
+    Top = 601
     Width = 790
     Panels = <    
       item

umain.pas

@@ -293,7 +293,13 @@ begin
 
   actReturnFocus.Execute;
   if lvList.Items.Count = 0 then Exit;
+
+  //if lvList.Selected <> nil then
+  //  lvList.Selected.Index := -1;
+  lvList.ItemIndex:= -1;
+  lvList.Update;
   lvList.ItemIndex := 0;
+
   lvList.Items[0].Focused := True;
   lvList.Items[0].Selected := True;
   lvList.Items[0].MakeVisible(False);
@@ -719,9 +725,9 @@ begin
   H := TimInfoByIdx[Item.Index].Height;
 
   Item.Caption := Format('%.6d', [Item.Index + 1]);
-  Item.SubItems.Add(Format('%.3dx%.3d', [W, H]));
   Item.SubItems.Add(Format('%.2d', [TimInfoByIdx[Item.Index].BitMode]));
   Item.SubItems.Add(Format('%.2d', [TimInfoByIdx[Item.Index].Cluts]));
+  Item.SubItems.Add(Format('%.3dx%.3d', [W, H]));
 end;
 
 procedure TfrmMain.lvListSelectItem(Sender: TObject; Item: TListItem;