1 object PlaylistDlg: TPlaylistDlg
\r
8 Font.Charset = DEFAULT_CHARSET
\r
9 Font.Color = clWindowText
\r
11 Font.Name = 'MS Sans Serif'
\r
13 Menu = MainMenuPlaylist
\r
14 OldCreateOrder = False
\r
19 object BitBtnOk: TBitBtn
\r
24 Anchors = [akBottom]
\r
28 OnClick = BitBtnOkClick
\r
30 object ListViewPlaylist: TListView
\r
35 Anchors = [akTop, akBottom]
\r
38 Caption = 'Filename'
\r
42 Alignment = taCenter
\r
43 Caption = 'Duration'
\r
46 HideSelection = False
\r
50 PopupMenu = PopupMenuPlaylist
\r
52 ViewStyle = vsReport
\r
53 OnCustomDrawItem = ListViewPlaylistCustomDrawItem
\r
54 OnDblClick = ListViewPlaylistDblClick
\r
55 OnKeyDown = ListViewPlaylistKeyDown
\r
57 object MainMenuPlaylist: TMainMenu
\r
60 object MenuAdd: TMenuItem
\r
62 object MenuAddFile: TMenuItem
\r
64 OnClick = MenuAddFileClick
\r
66 object MenuAddDisc: TMenuItem
\r
68 OnClick = MenuAddDiscClick
\r
70 object MenuAddNet: TMenuItem
\r
71 Caption = '&Network'
\r
72 OnClick = MenuAddNetClick
\r
74 object MenuAddUrl: TMenuItem
\r
77 OnClick = MenuAddUrlClick
\r
80 object MenuDelete: TMenuItem
\r
82 object MenuDeleteAll: TMenuItem
\r
84 OnClick = MenuDeleteAllClick
\r
86 object MenuDeleteSelected: TMenuItem
\r
87 Caption = '&Selected'
\r
88 OnClick = MenuDeleteSelectedClick
\r
91 object MenuSelection: TMenuItem
\r
92 Caption = '&Selection'
\r
93 object MenuSelectionCrop: TMenuItem
\r
95 OnClick = MenuSelectionCropClick
\r
97 object MenuSelectionInvert: TMenuItem
\r
99 OnClick = MenuSelectionInvertClick
\r
103 object PopupMenuPlaylist: TPopupMenu
\r
106 object PopupPlay: TMenuItem
\r
108 OnClick = PopupPlayClick
\r
110 object N1: TMenuItem
\r
113 object PopupInvertSelection: TMenuItem
\r
114 Caption = '&Invert selection'
\r
115 OnClick = PopupInvertSelectionClick
\r
117 object PopupCropSelection: TMenuItem
\r
118 Caption = '&Crop selection'
\r
119 OnClick = PopupCropSelectionClick
\r
121 object N2: TMenuItem
\r
124 object PopupDeleteSelected: TMenuItem
\r
125 Caption = '&Delete selected'
\r
126 OnClick = PopupDeleteSelectedClick
\r
128 object PopupDeleteAll: TMenuItem
\r
129 Caption = 'Delete &all'
\r
130 OnClick = PopupDeleteAllClick
\r