jvplaylistmainformu.dfm

jvcl driver development envionment

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