217 lines
5.3 KiB
Plaintext
217 lines
5.3 KiB
Plaintext
object JvPlayListMainForm: TJvPlayListMainForm
|
|
Left = 433
|
|
Top = 276
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
BorderStyle = bsSingle
|
|
Caption = 'PlayList Demo'
|
|
ClientHeight = 256
|
|
ClientWidth = 421
|
|
Color = clBtnFace
|
|
DefaultMonitor = dmDesktop
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
Menu = MainMenu1
|
|
OldCreateOrder = False
|
|
Position = poDesktopCenter
|
|
Scaled = False
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel
|
|
Left = 38
|
|
Top = 232
|
|
Width = 377
|
|
Height = 17
|
|
AutoSize = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 4
|
|
Top = 232
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Item :'
|
|
end
|
|
object JvPlaylist1: TJvPlaylist
|
|
Left = 4
|
|
Top = 4
|
|
Width = 411
|
|
Height = 221
|
|
ItemHeight = 13
|
|
Background.FillMode = bfmTile
|
|
Background.Visible = False
|
|
MultiSelect = True
|
|
ScrollBars = ssNone
|
|
TabOrder = 0
|
|
OnClick = JvPlaylist1Click
|
|
end
|
|
object OpenDialog1: TOpenDialog
|
|
InitialDir = '.'
|
|
Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
|
|
Left = 184
|
|
Top = 46
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
Left = 52
|
|
Top = 50
|
|
object File1: TMenuItem
|
|
Caption = '&File'
|
|
object Open1: TMenuItem
|
|
Action = Open
|
|
end
|
|
object Delete1: TMenuItem
|
|
Action = Delete
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Exit1: TMenuItem
|
|
Action = Exit
|
|
end
|
|
end
|
|
object Options1: TMenuItem
|
|
Caption = '&Options'
|
|
OnClick = Options1Click
|
|
object ShowNumbers1: TMenuItem
|
|
Caption = 'Show Numbers'
|
|
OnClick = ShowNumbers1Click
|
|
end
|
|
object ShowExtensions1: TMenuItem
|
|
Caption = 'Show Extensions'
|
|
OnClick = ShowExtensions1Click
|
|
end
|
|
object ShowDrives1: TMenuItem
|
|
Caption = 'Show Drive Letters'
|
|
Checked = True
|
|
OnClick = ShowDrives1Click
|
|
end
|
|
end
|
|
object Operations1: TMenuItem
|
|
Caption = 'Fun&ctions'
|
|
object DeleteDeadFiles1: TMenuItem
|
|
Action = DeleteDead
|
|
end
|
|
object Delete2: TMenuItem
|
|
Caption = 'Sort'
|
|
object SortByPath1: TMenuItem
|
|
Action = SortPah
|
|
end
|
|
object SortByPathInverted1: TMenuItem
|
|
Action = SortPathI
|
|
end
|
|
object SortBySongName1: TMenuItem
|
|
Action = SortSong
|
|
end
|
|
object SortBySongNameInverted1: TMenuItem
|
|
Action = SortSongNameInverted
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object RandomOrder1: TMenuItem
|
|
Action = RandomOrder
|
|
end
|
|
object ReverseOrder1: TMenuItem
|
|
Action = Reverse
|
|
end
|
|
end
|
|
end
|
|
object Selection1: TMenuItem
|
|
Caption = '&Selection'
|
|
object SelectAll1: TMenuItem
|
|
Action = SelectAll
|
|
end
|
|
object UnselectAll1: TMenuItem
|
|
Action = UnselectAll
|
|
end
|
|
object InverseSelection1: TMenuItem
|
|
Action = InvSelect
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object MoveSelectedUp1: TMenuItem
|
|
Action = MoveUp
|
|
end
|
|
object MoveSelectedDown1: TMenuItem
|
|
Action = MoveDown
|
|
end
|
|
end
|
|
end
|
|
object ActionList1: TActionList
|
|
Left = 126
|
|
Top = 44
|
|
object Open: TAction
|
|
Caption = '&Open...'
|
|
Hint = 'Open'
|
|
ShortCut = 16463
|
|
OnExecute = OpenExecute
|
|
end
|
|
object Delete: TAction
|
|
Caption = '&Delete'
|
|
ShortCut = 46
|
|
OnExecute = DeleteExecute
|
|
end
|
|
object Exit: TAction
|
|
Caption = '&Exit'
|
|
ShortCut = 32883
|
|
OnExecute = ExitExecute
|
|
end
|
|
object DeleteDead: TAction
|
|
Caption = 'Delete &Dead Files'
|
|
ShortCut = 16430
|
|
OnExecute = DeleteDeadExecute
|
|
end
|
|
object SortSong: TAction
|
|
Caption = 'Sort By &SongName'
|
|
OnExecute = SortSongExecute
|
|
end
|
|
object SortPah: TAction
|
|
Caption = 'Sort By Path'
|
|
OnExecute = SortPahExecute
|
|
end
|
|
object SortPathI: TAction
|
|
Caption = 'Sort By Path Inverted'
|
|
OnExecute = SortPathIExecute
|
|
end
|
|
object SortSongNameInverted: TAction
|
|
Caption = 'Sort By SongName Inverted'
|
|
OnExecute = SortSongNameInvertedExecute
|
|
end
|
|
object RandomOrder: TAction
|
|
Caption = 'Random Order'
|
|
OnExecute = RandomOrderExecute
|
|
end
|
|
object Reverse: TAction
|
|
Caption = 'Reverse Order'
|
|
OnExecute = ReverseExecute
|
|
end
|
|
object SelectAll: TAction
|
|
Caption = 'Select All'
|
|
ShortCut = 16449
|
|
OnExecute = SelectAllExecute
|
|
end
|
|
object UnselectAll: TAction
|
|
Caption = 'Unselect All'
|
|
ShortCut = 16469
|
|
OnExecute = UnselectAllExecute
|
|
end
|
|
object InvSelect: TAction
|
|
Caption = 'Inverse Selection'
|
|
ShortCut = 16457
|
|
OnExecute = InvSelectExecute
|
|
end
|
|
object MoveUp: TAction
|
|
Caption = 'Move Selected Up'
|
|
ShortCut = 16422
|
|
OnExecute = MoveUpExecute
|
|
end
|
|
object MoveDown: TAction
|
|
Caption = 'Move Selected Down'
|
|
ShortCut = 16424
|
|
OnExecute = MoveDownExecute
|
|
end
|
|
end
|
|
end
|