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

Many new features! Have to be used.

Browse Source
This commit is contained in:
meffi@lab313.ru
2014-02-17 23:30:50 +00:00
commit b84a8264a2
22 changed files with 16228 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

467
units/uMain.dfm Normal file
View File

@@ -0,0 +1,467 @@
object frmMainT2V: TfrmMainT2V
Left = 0
Top = 0
Width = 754
Height = 591
AutoScroll = True
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Menu = mmMain
OldCreateOrder = False
Position = poScreenCenter
ScreenSnap = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object pnlStatus: TPanel
Left = 0
Top = 502
Width = 738
Height = 30
Align = alBottom
BevelOuter = bvLowered
TabOrder = 2
object lblStatus: TLabel
Left = 76
Top = 1
Width = 157
Height = 28
Align = alClient
Alignment = taRightJustify
Layout = tlCenter
ExplicitLeft = 230
ExplicitWidth = 3
ExplicitHeight = 13
end
object pbProgress: TProgressBar
Left = 233
Top = 1
Width = 504
Height = 28
Align = alRight
Smooth = True
TabOrder = 1
end
object btnStopScan: TButton
Left = 1
Top = 1
Width = 75
Height = 28
Align = alLeft
Caption = 'Stop Scan'
Enabled = False
TabOrder = 0
OnClick = btnStopScanClick
end
end
object cbbFiles: TComboBox
Left = 0
Top = 0
Width = 738
Height = 21
Align = alTop
AutoDropDown = True
AutoCloseUp = True
Style = csDropDownList
DropDownCount = 30
TabOrder = 0
OnChange = cbbFilesChange
end
object pnlMain: TPanel
Left = 0
Top = 21
Width = 738
Height = 481
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object splMain: TSplitter
Left = 233
Top = 0
Height = 481
ResizeStyle = rsUpdate
ExplicitLeft = 201
end
object pnlList: TPanel
Left = 0
Top = 0
Width = 233
Height = 481
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object lvList: TListView
Left = 0
Top = 0
Width = 233
Height = 481
Align = alClient
Columns = <
item
Caption = '# / 0'
Width = 60
end
item
Alignment = taCenter
Caption = 'Resolution'
Width = 95
end
item
Caption = 'BPP'
end>
ColumnClick = False
DoubleBuffered = True
GridLines = True
HideSelection = False
OwnerData = True
ReadOnly = True
RowSelect = True
ParentDoubleBuffered = False
PopupMenu = pmList
TabOrder = 0
ViewStyle = vsReport
OnClick = lvListClick
OnData = lvListData
OnKeyDown = lvListKeyDown
end
end
object pnlImage: TPanel
Left = 236
Top = 0
Width = 502
Height = 481
Align = alClient
BevelOuter = bvLowered
TabOrder = 1
object splImageClut: TSplitter
Left = 1
Top = 1
Width = 500
Height = 3
Cursor = crVSplit
Align = alTop
Beveled = True
ResizeStyle = rsUpdate
ExplicitTop = 274
end
object imgTIM: TImage
Left = 1
Top = 4
Width = 500
Height = 296
Align = alClient
Center = True
IncrementalDisplay = True
Proportional = True
ExplicitLeft = 152
ExplicitTop = 112
ExplicitWidth = 105
ExplicitHeight = 105
end
object grdCurrCLUT: TDrawGrid
Left = 1
Top = 330
Width = 500
Height = 150
Align = alBottom
ColCount = 1
DefaultColWidth = 14
DefaultRowHeight = 14
DoubleBuffered = True
Enabled = False
FixedCols = 0
RowCount = 1
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
ParentDoubleBuffered = False
ScrollBars = ssNone
TabOrder = 0
OnDblClick = grdCurrCLUTDblClick
OnDrawCell = grdCurrCLUTDrawCell
end
object pnlImageOptions: TPanel
Left = 1
Top = 300
Width = 500
Height = 30
Align = alBottom
BevelOuter = bvLowered
TabOrder = 1
object cbbCLUT: TComboBox
AlignWithMargins = True
Left = 4
Top = 4
Width = 152
Height = 21
Align = alLeft
AutoDropDown = True
AutoCloseUp = True
Style = csDropDownList
TabOrder = 0
OnChange = cbbCLUTChange
end
object cbbTransparenceMode: TComboBox
AlignWithMargins = True
Left = 162
Top = 4
Width = 145
Height = 21
Align = alLeft
Style = csDropDownList
ItemIndex = 0
TabOrder = 1
Text = 'Full transparence'
OnClick = cbbTransparenceModeClick
Items.Strings = (
'Full transparence'
'Black Transparence'
'Semi Transparence'
'No Transparence')
end
object cbbBitMode: TComboBox
AlignWithMargins = True
Left = 313
Top = 4
Width = 88
Height = 21
Align = alLeft
Style = csDropDownList
ItemIndex = 0
TabOrder = 2
Text = 'Real'
OnChange = cbbBitModeChange
Items.Strings = (
'Real'
'4 BPP'
'8 BPP'
'16 BPP'
'24 BPP')
end
object chkStretch: TCheckBox
Left = 404
Top = 1
Width = 97
Height = 28
Action = actStretch
Align = alLeft
TabOrder = 3
end
end
end
end
object dlgOpenFile: TOpenDialog
DefaultExt = '.bin'
Filter = 'All Files (*.*)|*.*'
Options = [ofHideReadOnly, ofNoChangeDir, ofAllowMultiSelect, ofFileMustExist, ofNoNetworkButton, ofEnableSizing, ofForceShowHidden]
Title = 'Please, select File...'
Left = 668
Top = 502
end
object mmMain: TMainMenu
Left = 608
Top = 504
object mnFile: TMenuItem
Caption = '&File'
object mnScanFile: TMenuItem
Action = actScanFile
end
object mnScanDir: TMenuItem
Action = actScanDir
end
object N1: TMenuItem
Caption = '-'
end
object mnCloseFile: TMenuItem
Action = actCloseFile
end
object mnCloseAllFiles: TMenuItem
Action = actCloseFiles
end
object mnExit: TMenuItem
Action = actExit
end
end
object mnTIM: TMenuItem
Caption = '&TIM'
object mnSaveTIM: TMenuItem
Action = actExtractTim
end
object mnReplaceIn: TMenuItem
Action = actReplaceTim
end
object mnSaveToPNG: TMenuItem
Action = actTim2Png
end
object N4: TMenuItem
Caption = '-'
end
object IMInfo1: TMenuItem
Action = actTimInfo
end
end
object mnConfig: TMenuItem
Caption = '&Options'
object mnAutoExtract: TMenuItem
AutoCheck = True
Caption = '&Auto Extraction'
end
object Stretch1: TMenuItem
Action = actStretch
AutoCheck = True
end
object mnViewMode: TMenuItem
Caption = '&View Mode'
object mnSimpleMode: TMenuItem
AutoCheck = True
Caption = '&Simple Mode'
RadioItem = True
OnClick = mnSimpleModeClick
end
object mnAdvancedMode: TMenuItem
AutoCheck = True
Caption = '&Advanced Mode'
Checked = True
RadioItem = True
OnClick = mnAdvancedModeClick
end
end
object N5: TMenuItem
Caption = '-'
end
object mnAssociate: TMenuItem
Action = actAssocTims
end
end
object mnHelp: TMenuItem
Caption = '&Help'
object mnSVN: TMenuItem
Action = actOpenRepo
end
object mnSite: TMenuItem
Action = actOpenLab
end
object N3: TMenuItem
Caption = '-'
end
object mnAbout: TMenuItem
Action = actAbout
end
end
end
object dlgSavePNG: TSavePictureDialog
DefaultExt = 'png'
Filter = 'Portable Network Graphics (*.png)|*.png'
Options = [ofHideReadOnly, ofNoChangeDir, ofNoNetworkButton, ofEnableSizing]
Title = 'Please, select filename for PNG...'
Left = 704
Top = 504
end
object dlgSaveTIM: TSaveDialog
DefaultExt = 'tim'
Filter = 'PSX TIM Files (*.tim)|*.tim|All Files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofNoNetworkButton, ofEnableSizing]
Title = 'Please, select where to save TIM file...'
Left = 576
Top = 504
end
object dlgColor: TColorDialog
Options = [cdFullOpen]
Left = 544
Top = 502
end
object actList: TActionList
Left = 512
Top = 502
object actScanFile: TAction
Caption = 'Scan &File...'
ShortCut = 116
OnExecute = actScanFileExecute
end
object actScanDir: TAction
Caption = 'Scan &Directory...'
ShortCut = 117
OnExecute = actScanDirExecute
end
object actCloseFile: TAction
Caption = 'Close &this File'
ShortCut = 119
OnExecute = actCloseFileExecute
end
object actCloseFiles: TAction
Caption = 'Close &all Files'
ShortCut = 120
OnExecute = actCloseFilesExecute
end
object actExit: TAction
Caption = '&Exit...'
ShortCut = 121
OnExecute = actExitExecute
end
object actExtractTim: TAction
Caption = '&Extract TIM...'
ShortCut = 113
OnExecute = actExtractTimExecute
end
object actReplaceTim: TAction
Caption = '&Replace TIM...'
ShortCut = 114
OnExecute = actReplaceTimExecute
end
object actTim2Png: TAction
Caption = 'Save as &PNG...'
ShortCut = 115
OnExecute = actTim2PngExecute
end
object actOpenRepo: TAction
Caption = 'Tim2Vew &SVN Repo'
OnExecute = actOpenRepoExecute
end
object actOpenLab: TAction
Caption = '[&Lab313] Forum'
OnExecute = actOpenLabExecute
end
object actAbout: TAction
Caption = 'About...'
ShortCut = 112
OnExecute = actAboutExecute
end
object actStretch: TAction
AutoCheck = True
Caption = '&Stretch'
OnExecute = actStretchExecute
end
object actTimInfo: TAction
Caption = 'TIM Info'
Enabled = False
OnExecute = actTimInfoExecute
end
object actAssocTims: TAction
Caption = 'Open TIMs with T2V'
OnExecute = actAssocTimsExecute
end
end
object pmList: TPopupMenu
Left = 640
Top = 502
object ExtractTIM1: TMenuItem
Action = actExtractTim
end
object ReplaceTIM1: TMenuItem
Action = actReplaceTim
end
object SaveasPNG1: TMenuItem
Action = actTim2Png
end
object N2: TMenuItem
Caption = '-'
end
object mnTIMInfo: TMenuItem
Action = actTimInfo
end
end
end