MediaCatalog/MediaCatalog.dfm at main · dhdorrough/MediaCatalog · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
object frmMediaCatalog: TfrmMediaCatalog
  Left = 693
  Top = 232
  Width = 807
  Height = 555
  Caption = 'Media Catalog'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  DesignSize = (
    791
    497)
  PixelsPerInch = 96
  TextHeight = 13
  object lblStatus: TLabel
    Left = 7
    Top = 477
    Width = 40
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'lblStatus'
  end
  object lblFileName: TLabel
    Left = 7
    Top = 458
    Width = 54
    Height = 13
    Caption = 'lblFileName'
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 0
    Width = 354
    Height = 449
    Anchors = [akLeft, akTop, akBottom]
    AutoExpand = True
    Indent = 19
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 664
    Top = 88
    object File1: TMenuItem
      Caption = 'File'
      object OpenMediaCatalog2: TMenuItem
        Caption = 'Open Media Catalog...'
        OnClick = OpenMediaCatalog2Click
      end
      object NewMediaCatalog1: TMenuItem
        Caption = 'New Media Catalog...'
        OnClick = NewMediaCatalog1Click
      end
      object OpenMediaCatalog1: TMenuItem
        Caption = '-'
      end
      object ImportImportDirectoryListingTextFile1: TMenuItem
        Caption = 'Import Import Directory Listing Text File...'
        OnClick = ImportImportDirectoryListingTextFile1Click
      end
      object ImportDirectoryListingTextFolder1: TMenuItem
        Caption = 'Import Directory Listing Text Folder...'
        OnClick = ImportDirectoryListingTextFolder1Click
      end
      object ScanVolume1: TMenuItem
        Caption = 'Scan CD/DVD Volume...'
        OnClick = ScanVolume1Click
      end
      object ScanVolume2: TMenuItem
        Caption = 'Scan HD Volume/Folder...'
        OnClick = ScanVolume2Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object ables1: TMenuItem
      Caption = 'Tables'
      object BrowseMediaCatalog1: TMenuItem
        Caption = 'Browse Volumes...'
        OnClick = BrowseMediaCatalog1Click
      end
      object BrowseFiles1: TMenuItem
        Caption = 'Browse Files...'
        OnClick = BrowseFiles1Click
      end
      object BrowseLocations1: TMenuItem
        Caption = 'Browse Locations...'
        OnClick = BrowseLocations1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object DebugTest1: TMenuItem
        Caption = 'Debug Test'
        OnClick = DebugTest1Click
      end
    end
    object mEDIA1: TMenuItem
      Caption = 'Media'
      object Eject1: TMenuItem
        Caption = 'Eject'
        object D1: TMenuItem
          Caption = 'D:'
          OnClick = D1Click
        end
        object E1: TMenuItem
          Caption = 'E:'
          OnClick = E1Click
        end
        object F1: TMenuItem
          Caption = 'F:'
          OnClick = F1Click
        end
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 696
    Top = 16
  end
  object ADOConnection1: TADOConnection
    Left = 616
    Top = 16
  end
  object ADOCommand1: TADOCommand
    Parameters = <>
    Left = 568
    Top = 16
  end
  object ADOXCatalog1: TADOXCatalog
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 528
    Top = 16
  end
end