157 lines
3.4 KiB
Plaintext
157 lines
3.4 KiB
Plaintext
object frmComCtrls: TfrmComCtrls
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'AbComCtrls Example'
|
|
ClientHeight = 524
|
|
ClientWidth = 699
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Menu = MainMenu
|
|
OldCreateOrder = False
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Splitter1: TSplitter
|
|
Left = 153
|
|
Top = 0
|
|
Height = 524
|
|
ExplicitLeft = 360
|
|
ExplicitTop = 240
|
|
ExplicitHeight = 100
|
|
end
|
|
object AbTreeView: TAbTreeView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 153
|
|
Height = 524
|
|
Align = alLeft
|
|
Indent = 19
|
|
TabOrder = 0
|
|
Items.NodeData = {
|
|
0301000000200000000000000000000000FFFFFFFFFFFFFFFF00000000000000
|
|
000000000001015C00}
|
|
Archive = AbUnZipper
|
|
ListView = AbListView
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 156
|
|
Top = 0
|
|
Width = 543
|
|
Height = 524
|
|
Align = alClient
|
|
Caption = 'Panel1'
|
|
TabOrder = 1
|
|
ExplicitLeft = 264
|
|
ExplicitTop = 272
|
|
ExplicitWidth = 185
|
|
ExplicitHeight = 41
|
|
object Splitter2: TSplitter
|
|
Left = 1
|
|
Top = 335
|
|
Width = 541
|
|
Height = 3
|
|
Cursor = crVSplit
|
|
Align = alBottom
|
|
ExplicitLeft = 539
|
|
ExplicitTop = 1
|
|
ExplicitWidth = 337
|
|
end
|
|
object Memo1: TMemo
|
|
Left = 1
|
|
Top = 338
|
|
Width = 541
|
|
Height = 185
|
|
Align = alBottom
|
|
Lines.Strings = (
|
|
'Memo1')
|
|
TabOrder = 0
|
|
ExplicitLeft = 354
|
|
ExplicitTop = 1
|
|
ExplicitWidth = 522
|
|
end
|
|
object AbListView: TAbListView
|
|
Left = 1
|
|
Top = 1
|
|
Width = 541
|
|
Height = 334
|
|
Align = alClient
|
|
Archive = AbUnZipper
|
|
TabOrder = 1
|
|
TreeView = AbTreeView
|
|
OnSelectItem = ListViewSelectItem
|
|
ExplicitLeft = 328
|
|
ExplicitTop = 112
|
|
ExplicitWidth = 250
|
|
ExplicitHeight = 150
|
|
end
|
|
end
|
|
object AbUnZipper: TAbUnZipper
|
|
Left = 96
|
|
Top = 24
|
|
end
|
|
object MainMenu: TMainMenu
|
|
Left = 16
|
|
Top = 24
|
|
object mnuFile: TMenuItem
|
|
Caption = 'File'
|
|
object mnuOpenArchive: TMenuItem
|
|
Caption = 'Open...'
|
|
OnClick = OpenArchiveClick
|
|
end
|
|
end
|
|
object mnuView: TMenuItem
|
|
Caption = 'View'
|
|
object mnuAllFiles: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'All Files (WinZip Style)'
|
|
GroupIndex = 1
|
|
RadioItem = True
|
|
OnClick = FolderStyleClick
|
|
end
|
|
object mnuFilesByFolder: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Files By Folder (Explorer Style)'
|
|
Checked = True
|
|
GroupIndex = 1
|
|
RadioItem = True
|
|
OnClick = FolderStyleClick
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
GroupIndex = 1
|
|
end
|
|
object mnuIcons: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Icons'
|
|
Checked = True
|
|
GroupIndex = 2
|
|
RadioItem = True
|
|
OnClick = ViewStyleClick
|
|
end
|
|
object mnuList: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'List'
|
|
GroupIndex = 2
|
|
RadioItem = True
|
|
OnClick = ViewStyleClick
|
|
end
|
|
object mnuDetails: TMenuItem
|
|
AutoCheck = True
|
|
Caption = 'Details'
|
|
GroupIndex = 2
|
|
RadioItem = True
|
|
OnClick = ViewStyleClick
|
|
end
|
|
end
|
|
end
|
|
object OpenDialog: TOpenDialog
|
|
Filter = 'Archive Files|*.zip;*.tar;*.gz;*.tgz;*.bz2;*.tbz'
|
|
Options = [ofEnableSizing]
|
|
Left = 56
|
|
Top = 24
|
|
end
|
|
end
|