Persona/tim2view
3
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed files changing. Not for build.

Browse Source
This commit is contained in:
meffi@lab313.ru
2014-05-07 00:28:44 +00:00
parent 2525e8a802
commit fb3863f3c6
4 changed files with 262 additions and 247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tim2view.lpi
View File

@@ -396,4 +396,4 @@
</Item3> </Item3>
</Exceptions> </Exceptions>
</Debugging> </Debugging>
</CONFIG> </CONFIG>

413
tim2view.lps
View File

@@ -1,204 +1,209 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectSession> <ProjectSession>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="9"/> <Version Value="9"/>
<BuildModes Active="Debug"/> <BuildModes Active="Debug"/>
<Units Count="15"> <Units Count="15">
<Unit0> <Unit0>
<Filename Value="tim2view.lpr"/> <Filename Value="tim2view.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tim2view"/> <UnitName Value="tim2view"/>
<EditorIndex Value="1"/> <WindowIndex Value="0"/>
<WindowIndex Value="0"/> <TopLine Value="1"/>
<TopLine Value="1"/> <CursorPos X="46" Y="13"/>
<CursorPos X="46" Y="13"/> <UsageCount Value="816"/>
<UsageCount Value="816"/> </Unit0>
<Loaded Value="True"/> <Unit1>
</Unit0> <Filename Value="umain.pas"/>
<Unit1> <IsPartOfProject Value="True"/>
<Filename Value="umain.pas"/> <ComponentName Value="frmMain"/>
<IsPartOfProject Value="True"/> <HasResources Value="True"/>
<ComponentName Value="frmMain"/> <ResourceBaseClass Value="Form"/>
<HasResources Value="True"/> <UnitName Value="umain"/>
<ResourceBaseClass Value="Form"/> <EditorIndex Value="0"/>
<UnitName Value="umain"/> <WindowIndex Value="0"/>
<EditorIndex Value="0"/> <TopLine Value="362"/>
<WindowIndex Value="0"/> <CursorPos X="48" Y="368"/>
<TopLine Value="677"/> <UsageCount Value="816"/>
<CursorPos X="41" Y="684"/> <Loaded Value="True"/>
<UsageCount Value="816"/> <LoadedDesigner Value="True"/>
<Loaded Value="True"/> </Unit1>
<LoadedDesigner Value="True"/> <Unit2>
</Unit1> <Filename Value="edc.pas"/>
<Unit2> <IsPartOfProject Value="True"/>
<Filename Value="edc.pas"/> <UnitName Value="edc"/>
<IsPartOfProject Value="True"/> <UsageCount Value="816"/>
<UnitName Value="edc"/> </Unit2>
<UsageCount Value="816"/> <Unit3>
</Unit2> <Filename Value="ecc.pas"/>
<Unit3> <IsPartOfProject Value="True"/>
<Filename Value="ecc.pas"/> <UnitName Value="ecc"/>
<IsPartOfProject Value="True"/> <WindowIndex Value="0"/>
<UnitName Value="ecc"/> <TopLine Value="13"/>
<WindowIndex Value="0"/> <CursorPos X="1" Y="1"/>
<TopLine Value="13"/> <UsageCount Value="816"/>
<CursorPos X="1" Y="1"/> </Unit3>
<UsageCount Value="816"/> <Unit4>
</Unit3> <Filename Value="ucommon.pas"/>
<Unit4> <IsPartOfProject Value="True"/>
<Filename Value="ucommon.pas"/> <UnitName Value="ucommon"/>
<IsPartOfProject Value="True"/> <EditorIndex Value="2"/>
<UnitName Value="ucommon"/> <WindowIndex Value="0"/>
<IsVisibleTab Value="True"/> <TopLine Value="1"/>
<EditorIndex Value="3"/> <CursorPos X="45" Y="10"/>
<WindowIndex Value="0"/> <UsageCount Value="816"/>
<TopLine Value="1"/> <Loaded Value="True"/>
<CursorPos X="35" Y="6"/> </Unit4>
<UsageCount Value="816"/> <Unit5>
<Loaded Value="True"/> <Filename Value="utim.pas"/>
</Unit4> <IsPartOfProject Value="True"/>
<Unit5> <UnitName Value="utim"/>
<Filename Value="utim.pas"/> <EditorIndex Value="9"/>
<IsPartOfProject Value="True"/> <WindowIndex Value="0"/>
<UnitName Value="utim"/> <TopLine Value="185"/>
<EditorIndex Value="10"/> <CursorPos X="1" Y="204"/>
<WindowIndex Value="0"/> <UsageCount Value="816"/>
<TopLine Value="185"/> <Loaded Value="True"/>
<CursorPos X="1" Y="204"/> </Unit5>
<UsageCount Value="816"/> <Unit6>
<Loaded Value="True"/> <Filename Value="ucdimage.pas"/>
</Unit5> <IsPartOfProject Value="True"/>
<Unit6> <UnitName Value="ucdimage"/>
<Filename Value="ucdimage.pas"/> <EditorIndex Value="1"/>
<IsPartOfProject Value="True"/> <WindowIndex Value="0"/>
<UnitName Value="ucdimage"/> <TopLine Value="112"/>
<EditorIndex Value="2"/> <CursorPos X="50" Y="117"/>
<WindowIndex Value="0"/> <UsageCount Value="816"/>
<TopLine Value="112"/> <Loaded Value="True"/>
<CursorPos X="50" Y="117"/> </Unit6>
<UsageCount Value="816"/> <Unit7>
<Loaded Value="True"/> <Filename Value="usettings.pas"/>
</Unit6> <IsPartOfProject Value="True"/>
<Unit7> <UnitName Value="usettings"/>
<Filename Value="usettings.pas"/> <EditorIndex Value="8"/>
<IsPartOfProject Value="True"/> <WindowIndex Value="0"/>
<UnitName Value="usettings"/> <TopLine Value="41"/>
<EditorIndex Value="9"/> <CursorPos X="60" Y="56"/>
<WindowIndex Value="0"/> <UsageCount Value="816"/>
<TopLine Value="41"/> <Loaded Value="True"/>
<CursorPos X="60" Y="56"/> </Unit7>
<UsageCount Value="816"/> <Unit8>
<Loaded Value="True"/> <Filename Value="uscanresult.pas"/>
</Unit7> <IsPartOfProject Value="True"/>
<Unit8> <UnitName Value="uscanresult"/>
<Filename Value="uscanresult.pas"/> <EditorIndex Value="6"/>
<IsPartOfProject Value="True"/> <WindowIndex Value="0"/>
<UnitName Value="uscanresult"/> <TopLine Value="1"/>
<EditorIndex Value="7"/> <CursorPos X="10" Y="5"/>
<WindowIndex Value="0"/> <UsageCount Value="816"/>
<TopLine Value="1"/> <Loaded Value="True"/>
<CursorPos X="10" Y="5"/> </Unit8>
<UsageCount Value="816"/> <Unit9>
<Loaded Value="True"/> <Filename Value="uscanthread.pas"/>
</Unit8> <IsPartOfProject Value="True"/>
<Unit9> <UnitName Value="uscanthread"/>
<Filename Value="uscanthread.pas"/> <IsVisibleTab Value="True"/>
<IsPartOfProject Value="True"/> <EditorIndex Value="7"/>
<UnitName Value="uscanthread"/> <WindowIndex Value="0"/>
<EditorIndex Value="8"/> <TopLine Value="171"/>
<WindowIndex Value="0"/> <CursorPos X="79" Y="182"/>
<TopLine Value="169"/> <UsageCount Value="816"/>
<CursorPos X="64" Y="197"/> <Loaded Value="True"/>
<UsageCount Value="816"/> </Unit9>
<Loaded Value="True"/> <Unit10>
</Unit9> <Filename Value="ucpucount.pas"/>
<Unit10> <IsPartOfProject Value="True"/>
<Filename Value="ucpucount.pas"/> <UnitName Value="ucpucount"/>
<IsPartOfProject Value="True"/> <EditorIndex Value="3"/>
<UnitName Value="ucpucount"/> <WindowIndex Value="0"/>
<EditorIndex Value="4"/> <TopLine Value="19"/>
<WindowIndex Value="0"/> <CursorPos X="87" Y="34"/>
<TopLine Value="19"/> <UsageCount Value="816"/>
<CursorPos X="87" Y="34"/> <Loaded Value="True"/>
<UsageCount Value="816"/> </Unit10>
<Loaded Value="True"/> <Unit11>
</Unit10> <Filename Value="udrawtim.pas"/>
<Unit11> <IsPartOfProject Value="True"/>
<Filename Value="udrawtim.pas"/> <UnitName Value="udrawtim"/>
<IsPartOfProject Value="True"/> <EditorIndex Value="4"/>
<UnitName Value="udrawtim"/> <WindowIndex Value="0"/>
<EditorIndex Value="5"/> <TopLine Value="1"/>
<WindowIndex Value="0"/> <CursorPos X="15" Y="6"/>
<TopLine Value="333"/> <UsageCount Value="816"/>
<CursorPos X="43" Y="357"/> <Loaded Value="True"/>
<UsageCount Value="816"/> </Unit11>
<Loaded Value="True"/> <Unit12>
</Unit11> <Filename Value="bgrabitmap\bgrabitmap.pas"/>
<Unit12> <IsPartOfProject Value="True"/>
<Filename Value="bgrabitmap\bgrabitmap.pas"/> <UnitName Value="BGRABitmap"/>
<IsPartOfProject Value="True"/> <WindowIndex Value="0"/>
<UnitName Value="BGRABitmap"/> <TopLine Value="54"/>
<WindowIndex Value="0"/> <CursorPos X="3" Y="69"/>
<TopLine Value="54"/> <UsageCount Value="816"/>
<CursorPos X="3" Y="69"/> </Unit12>
<UsageCount Value="816"/> <Unit13>
</Unit12> <Filename Value="todos.inc"/>
<Unit13> <IsPartOfProject Value="True"/>
<Filename Value="todos.inc"/> <WindowIndex Value="0"/>
<IsPartOfProject Value="True"/> <TopLine Value="1"/>
<WindowIndex Value="0"/> <CursorPos X="48" Y="2"/>
<TopLine Value="1"/> <UsageCount Value="802"/>
<CursorPos X="48" Y="2"/> </Unit13>
<UsageCount Value="802"/> <Unit14>
</Unit13> <Filename Value="uexportimport.pas"/>
<Unit14> <IsPartOfProject Value="True"/>
<Filename Value="uexportimport.pas"/> <UnitName Value="uexportimport"/>
<IsPartOfProject Value="True"/> <EditorIndex Value="5"/>
<UnitName Value="uexportimport"/> <WindowIndex Value="0"/>
<EditorIndex Value="6"/> <TopLine Value="7"/>
<WindowIndex Value="0"/> <CursorPos X="20" Y="16"/>
<TopLine Value="7"/> <UsageCount Value="71"/>
<CursorPos X="20" Y="16"/> <Loaded Value="True"/>
<UsageCount Value="69"/> </Unit14>
<Loaded Value="True"/> </Units>
</Unit14> <General>
</Units> <ActiveWindowIndexAtStart Value="0"/>
<General> </General>
<ActiveWindowIndexAtStart Value="0"/> </ProjectSession>
</General> <Debugging>
</ProjectSession> <BreakPoints Count="3">
<Debugging> <Item1>
<BreakPoints Count="2"> <Kind Value="bpkSource"/>
<Item1> <WatchScope Value="wpsLocal"/>
<Kind Value="bpkSource"/> <WatchKind Value="wpkWrite"/>
<WatchScope Value="wpsLocal"/> <Source Value="c:\Lazarus\fpc\2.6.2\source\packages\fcl-image\src\fpimage.inc"/>
<WatchKind Value="wpkWrite"/> <Line Value="350"/>
<Source Value="c:\Lazarus\fpc\2.6.2\source\packages\fcl-image\src\fpimage.inc"/> </Item1>
<Line Value="350"/> <Item2>
</Item1> <Kind Value="bpkSource"/>
<Item2> <WatchScope Value="wpsLocal"/>
<Kind Value="bpkSource"/> <WatchKind Value="wpkWrite"/>
<WatchScope Value="wpsLocal"/> <Source Value="c:\Lazarus\fpc\2.6.2\source\packages\fcl-image\src\fppalette.inc"/>
<WatchKind Value="wpkWrite"/> <Line Value="159"/>
<Source Value="c:\Lazarus\fpc\2.6.2\source\packages\fcl-image\src\fppalette.inc"/> </Item2>
<Line Value="159"/> <Item3>
</Item2> <Kind Value="bpkSource"/>
</BreakPoints> <WatchScope Value="wpsLocal"/>
<Watches Count="3"> <WatchKind Value="wpkWrite"/>
<Item1> <Source Value="umain.pas"/>
<Expression Value="IDX"/> <Line Value="812"/>
<DisplayStyle Value="wdfHex"/> </Item3>
</Item1> </BreakPoints>
<Item2> <Watches Count="3">
<Expression Value="TData^[POS]"/> <Item1>
<DisplayStyle Value="wdfHex"/> <Expression Value="IDX"/>
</Item2> <DisplayStyle Value="wdfHex"/>
<Item3> </Item1>
<Expression Value="IDX_INT"/> <Item2>
<DisplayStyle Value="wdfHex"/> <Expression Value="TData^[POS]"/>
</Item3> <DisplayStyle Value="wdfHex"/>
</Watches> </Item2>
</Debugging> <Item3>
<EditorMacros Count="0"/> <Expression Value="IDX_INT"/>
</CONFIG> <DisplayStyle Value="wdfHex"/>
</Item3>
</Watches>
</Debugging>
<EditorMacros Count="0"/>
</CONFIG>

84
umain.lfm
View File

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

10
umain.pas
View File

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