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

Small fixes, and more info in program title.

Browse Source
This commit is contained in:
meffi@lab313.ru
2014-04-16 18:07:27 +00:00
parent d1ff75389d
commit b523625c6f
6 changed files with 66 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tim2view.lpi
View File

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

48
tim2view.lps
View File

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

BIN
tim2view.res
View File

Binary file not shown.

7
ucommon.pas
View File

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

57
umain.lfm
View File

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

4
umain.pas
View File

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