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

no message

Browse Source
This commit is contained in:
Vladimir Kryvian
2015-08-11 10:20:54 +03:00
parent 99b04e5885
commit 7308a9bec9
2 changed files with 60 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
umain.lfm
View File

@@ -2,7 +2,7 @@ object frmMain: TfrmMain
Left = 1092 Left = 1092
Height = 668 Height = 668
Top = 213 Top = 213
Width = 790 Width = 819
HorzScrollBar.Page = 780 HorzScrollBar.Page = 780
HorzScrollBar.Range = 489 HorzScrollBar.Range = 489
VertScrollBar.Page = 570 VertScrollBar.Page = 570
@@ -10,7 +10,7 @@ object frmMain: TfrmMain
ActiveControl = pnlList ActiveControl = pnlList
AllowDropFiles = True AllowDropFiles = True
ClientHeight = 648 ClientHeight = 648
ClientWidth = 790 ClientWidth = 819
Color = clBtnFace Color = clBtnFace
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@@ -499,11 +499,11 @@ object frmMain: TfrmMain
Left = 0 Left = 0
Height = 30 Height = 30
Top = 618 Top = 618
Width = 790 Width = 819
Align = alBottom Align = alBottom
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 30 ClientHeight = 30
ClientWidth = 790 ClientWidth = 819
TabOrder = 2 TabOrder = 2
object lblStatus: TLabel object lblStatus: TLabel
Left = 76 Left = 76
@@ -519,7 +519,7 @@ object frmMain: TfrmMain
Left = 258 Left = 258
Height = 28 Height = 28
Top = 1 Top = 1
Width = 531 Width = 560
Align = alRight Align = alRight
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
Smooth = True Smooth = True
@@ -540,7 +540,7 @@ object frmMain: TfrmMain
Left = 0 Left = 0
Height = 21 Height = 21
Top = 0 Top = 0
Width = 790 Width = 819
Align = alTop Align = alTop
DropDownCount = 30 DropDownCount = 30
Enabled = False Enabled = False
@@ -554,14 +554,14 @@ object frmMain: TfrmMain
Left = 0 Left = 0
Height = 597 Height = 597
Top = 21 Top = 21
Width = 790 Width = 819
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 597 ClientHeight = 597
ClientWidth = 790 ClientWidth = 819
TabOrder = 1 TabOrder = 1
object splMain: TSplitter object splMain: TSplitter
Left = 253 Left = 317
Height = 597 Height = 597
Top = 0 Top = 0
Width = 5 Width = 5
@@ -570,17 +570,17 @@ object frmMain: TfrmMain
Left = 0 Left = 0
Height = 597 Height = 597
Top = 0 Top = 0
Width = 253 Width = 317
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 597 ClientHeight = 597
ClientWidth = 253 ClientWidth = 317
TabOrder = 0 TabOrder = 0
object tblTimInfo: TStringGrid object tblTimInfo: TStringGrid
Left = 0 Left = 0
Height = 185 Height = 185
Top = 412 Top = 412
Width = 253 Width = 317
Align = alBottom Align = alBottom
AutoEdit = False AutoEdit = False
AutoFillColumns = True AutoFillColumns = True
@@ -596,7 +596,7 @@ object frmMain: TfrmMain
TitleFont.Name = 'Tahoma' TitleFont.Name = 'Tahoma'
ColWidths = ( ColWidths = (
102 102
150 214
) )
Cells = ( Cells = (
10 10
@@ -636,37 +636,60 @@ object frmMain: TfrmMain
Left = 0 Left = 0
Height = 412 Height = 412
Top = 0 Top = 0
Width = 253 Width = 317
Align = alClient Align = alClient
AutoAdvance = aaDown AutoAdvance = aaDown
AutoEdit = False AutoEdit = False
AutoFillColumns = True ColCount = 6
ColumnClickSorts = True ColumnClickSorts = True
Columns = < Columns = <
item item
MinSize = 10
MaxSize = 200
Title.Caption = '#' Title.Caption = '#'
Width = 50 Width = 52
end end
item item
Alignment = taCenter
MinSize = 10
MaxSize = 200
Title.Alignment = taCenter
Title.Caption = 'BPP' Title.Caption = 'BPP'
Width = 50 Width = 52
end end
item item
Alignment = taCenter
MinSize = 10
MaxSize = 200
Title.Alignment = taCenter
Title.Caption = 'CLUTs' Title.Caption = 'CLUTs'
Width = 50 Width = 52
end end
item item
Alignment = taCenter
MinSize = 10
MaxSize = 200
Title.Alignment = taCenter
Title.Caption = 'Type' Title.Caption = 'Type'
Width = 50 Width = 52
end end
item item
Alignment = taCenter
MinSize = 10
MaxSize = 200
Title.Alignment = taCenter
Title.Caption = 'W x H' Title.Caption = 'W x H'
Width = 52 Width = 52
end
item
Title.Alignment = taCenter
Title.Caption = 'File Name'
Width = 54
end> end>
FixedCols = 0 FixedCols = 0
Flat = True Flat = True
MouseWheelOption = mwGrid MouseWheelOption = mwGrid
Options = [goFixedVertLine, goDrawFocusSelected, goRowSelect, goThumbTracking, goRelaxedRowSelect, goDblClickAutoSize, goHeaderHotTracking, goHeaderPushedLook, goSelectionActive, goTruncCellHints, goRowHighlight] Options = [goFixedVertLine, goDrawFocusSelected, goColSizing, goRowSelect, goThumbTracking, goRelaxedRowSelect, goDblClickAutoSize, goHeaderHotTracking, goHeaderPushedLook, goSelectionActive, goTruncCellHints, goCellEllipsis, goRowHighlight]
PopupMenu = pmList PopupMenu = pmList
RowCount = 1 RowCount = 1
TabOrder = 1 TabOrder = 1
@@ -679,23 +702,24 @@ object frmMain: TfrmMain
OnHeaderClick = grdTimsListHeaderClick OnHeaderClick = grdTimsListHeaderClick
OnSelection = grdTimsListSelection OnSelection = grdTimsListSelection
ColWidths = ( ColWidths = (
50
50
50
50
52 52
52
52
52
52
54
) )
end end
end end
object pnlImage: TPanel object pnlImage: TPanel
Left = 258 Left = 322
Height = 597 Height = 597
Top = 0 Top = 0
Width = 532 Width = 497
Align = alClient Align = alClient
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 597 ClientHeight = 597
ClientWidth = 532 ClientWidth = 497
Color = clBtnFace Color = clBtnFace
ParentColor = False ParentColor = False
TabOrder = 1 TabOrder = 1
@@ -703,17 +727,17 @@ object frmMain: TfrmMain
Left = 1 Left = 1
Height = 27 Height = 27
Top = 569 Top = 569
Width = 530 Width = 495
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 27 ClientHeight = 27
ClientWidth = 530 ClientWidth = 495
Color = clBtnFace Color = clBtnFace
ParentColor = False ParentColor = False
TabOrder = 0 TabOrder = 0
object btnShowClut: TButton object btnShowClut: TButton
Left = 476 Left = 441
Height = 23 Height = 23
Top = 2 Top = 2
Width = 52 Width = 52
@@ -769,7 +793,7 @@ object frmMain: TfrmMain
Text = 'Black Transparence' Text = 'Black Transparence'
end end
object cbbCLUT: TComboBox object cbbCLUT: TComboBox
Left = 366 Left = 331
Height = 21 Height = 21
Top = 2 Top = 2
Width = 109 Width = 109
@@ -786,11 +810,11 @@ object frmMain: TfrmMain
Left = 1 Left = 1
Height = 192 Height = 192
Top = 377 Top = 377
Width = 530 Width = 495
Align = alBottom Align = alBottom
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 192 ClientHeight = 192
ClientWidth = 530 ClientWidth = 495
Color = clBtnFace Color = clBtnFace
ParentColor = False ParentColor = False
TabOrder = 1 TabOrder = 1
@@ -799,7 +823,7 @@ object frmMain: TfrmMain
Left = 1 Left = 1
Height = 138 Height = 138
Top = 1 Top = 1
Width = 528 Width = 493
Align = alClient Align = alClient
AutoEdit = False AutoEdit = False
ColCount = 1 ColCount = 1
@@ -824,7 +848,7 @@ object frmMain: TfrmMain
Left = 1 Left = 1
Height = 52 Height = 52
Top = 139 Top = 139
Width = 528 Width = 493
Align = alBottom Align = alBottom
Alignment = taCenter Alignment = taCenter
Caption = 'Double-click to change color.'#10'Press "Space" key to invert Transparence bit.'#13#10'H-splitted color = black transparent.'#13#10'V-splitted color = non-black transparent.' Caption = 'Double-click to change color.'#10'Press "Space" key to invert Transparence bit.'#13#10'H-splitted color = black transparent.'#13#10'V-splitted color = non-black transparent.'
@@ -837,7 +861,7 @@ object frmMain: TfrmMain
Left = 1 Left = 1
Height = 376 Height = 376
Top = 1 Top = 1
Width = 530 Width = 495
AntialiasingMode = amOff AntialiasingMode = amOff
Align = alClient Align = alClient
Center = True Center = True

2
umain.pas
View File

@@ -241,8 +241,6 @@ procedure TfrmMain.actStopScanExecute(Sender: TObject);
var var
I: Integer; I: Integer;
begin begin
if ScanThreads.Count = 0 then Exit;
for I := 1 to ScanThreads.Count do for I := 1 to ScanThreads.Count do
ScanThreads[I - 1].StopScan := True; ScanThreads[I - 1].StopScan := True;