Subversion Repositories spacemission

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4 daniel-mar 1 
object DelphiXMidiEditForm: TDelphiXMidiEditForm
2 
  Left = 288
3 
  Top = 239
4 
  BorderStyle = bsDialog
5 
  Caption = 'Midi Editor'
6 
  ClientHeight = 226
7 
  ClientWidth = 346
8 
  Color = clBtnFace
9 
  Font.Charset = DEFAULT_CHARSET
10 
  Font.Color = clWindowText
11 
  Font.Height = -12
12 
  Font.Name = 'MS Sans Serif'
13 
  Font.Style = []
14 
  OldCreateOrder = True
15 
  Position = poScreenCenter
16 
  Scaled = False
17 
  OnCreate = FormCreate
18 
  OnDestroy = FormDestroy
19 
  OnShow = FormShow
20 
  PixelsPerInch = 96
21 
  TextHeight = 13
22 
  object Bevel2: TBevel
23 
    Left = 8
24 
    Top = 8
25 
    Width = 249
26 
    Height = 209
27 
    Shape = bsFrame
28 
  end
29 
  object OKButton: TButton
30 
    Left = 264
31 
    Top = 8
32 
    Width = 73
33 
    Height = 25
34 
    Caption = 'OK'
35 
    Default = True
36 
    TabOrder = 0
37 
    OnClick = OKButtonClick
38 
  end
39 
  object CancelButton: TButton
40 
    Left = 264
41 
    Top = 40
42 
    Width = 73
43 
    Height = 25
44 
    Cancel = True
45 
    Caption = 'Cancel'
46 
    TabOrder = 1
47 
    OnClick = CancelButtonClick
48 
  end
49 
  object ClearButton: TButton
50 
    Left = 176
51 
    Top = 184
52 
    Width = 73
53 
    Height = 25
54 
    Caption = '&Clear'
55 
    TabOrder = 4
56 
    OnClick = ClearButtonClick
57 
  end
58 
  object SaveButton: TButton
59 
    Left = 96
60 
    Top = 184
61 
    Width = 73
62 
    Height = 25
63 
    Caption = '&Save...'
64 
    TabOrder = 3
65 
    OnClick = SaveButtonClick
66 
  end
67 
  object LoadButton: TButton
68 
    Left = 16
69 
    Top = 184
70 
    Width = 73
71 
    Height = 25
72 
    Caption = '&Load...'
73 
    TabOrder = 2
74 
    OnClick = LoadButtonClick
75 
  end
76 
  object Panel1: TPanel
77 
    Left = 16
78 
    Top = 16
79 
    Width = 233
80 
    Height = 161
81 
    BevelOuter = bvNone
82 
    BorderStyle = bsSingle
83 
    TabOrder = 5
84 
    object LengthLabel: TLabel
85 
      Left = 16
86 
      Top = 16
87 
      Width = 19
88 
      Height = 13
89 
      Caption = 'File:'
90 
      Font.Charset = DEFAULT_CHARSET
91 
      Font.Color = clBlack
92 
      Font.Height = -12
93 
      Font.Name = 'MS Sans Serif'
94 
      Font.Style = []
95 
      ParentFont = False
96 
    end
97 
    object SizeLabel: TLabel
98 
      Left = 16
99 
      Top = 38
100 
      Width = 23
101 
      Height = 13
102 
      Caption = 'Size:'
103 
      Font.Charset = DEFAULT_CHARSET
104 
      Font.Color = clBlack
105 
      Font.Height = -12
106 
      Font.Name = 'MS Sans Serif'
107 
      Font.Style = []
108 
      ParentFont = False
109 
    end
110 
    object filenamelabel: TLabel
111 
      Left = 72
112 
      Top = 16
113 
      Width = 42
114 
      Height = 13
115 
      Caption = 'Filename'
116 
    end
117 
    object SizeValueLabel: TLabel
118 
      Left = 72
119 
      Top = 38
120 
      Width = 20
121 
      Height = 13
122 
      Caption = 'Size'
123 
    end
124 
  end
125 
  object btnPlay: TBitBtn
126 
    Left = 111
127 
    Top = 128
128 
    Width = 25
129 
    Height = 25
130 
    TabOrder = 6
131 
    OnClick = btnPlayClick
132 
    Glyph.Data = {
133 
      F6000000424DF600000000000000760000002800000010000000100000000100
134 
      0400000000008000000000000000000000001000000010000000000000000000
135 
      80000080000000808000800000008000800080800000C0C0C000808080000000
136 
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
137 
      7777777777777777777777777777777777777777077777777777777700077777
138 
      7777777700000777777777770000000777777777000000000777777700000007
139 
      7777777700000777777777770007777777777777077777777777777777777777
140 
      7777777777777777777777777777777777777777777777777777}
141 
  end
142 
  object btnStop: TBitBtn
143 
    Left = 136
144 
    Top = 128
145 
    Width = 25
146 
    Height = 25
147 
    TabOrder = 7
148 
    OnClick = btnStopClick
149 
    Glyph.Data = {
150 
      F6000000424DF600000000000000760000002800000010000000100000000100
151 
      0400000000008000000000000000000000001000000010000000000000000000
152 
      80000080000000808000800000008000800080800000C0C0C000808080000000
153 
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
154 
      7777777777777777777777777777777777777777777777777777777700000000
155 
      7777777700000000777777770000000077777777000000007777777700000000
156 
      7777777700000000777777770000000077777777000000007777777777777777
157 
      7777777777777777777777777777777777777777777777777777}
158 
  end
159 
  object SaveDialog: TSaveDialog
160 
    DefaultExt = 'mid'
161 
    Filter = 'Midi (*.mid)|*.mid|All files (*.*)|*.*'
162 
    Options = [ofOverwritePrompt]
163 
    Title = 'Save MIDI file.'
164 
    Left = 312
165 
    Top = 80
166 
  end
167 
  object OpenDialog: TOpenDialog
168 
    DefaultExt = 'mid'
169 
    Filter = 'Midi (*.mid)|*.mid|All files (*.*)|*.*'
170 
    Options = [ofFileMustExist]
171 
    Title = 'Load MIDI file.'
172 
    Left = 280
173 
    Top = 80
174 
  end
175 
  object DXSound1: TDXSound
176 
    AutoInitialize = True
177 
    Options = []
178 
    Left = 272
179 
    Top = 120
180 
  end
181 
  object DXMusic1: TDXMusic
182 
    DXSound = DXSound1
183 
    Midis = <>
184 
    Left = 304
185 
    Top = 120
186 
  end
187 
end