home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Net Power 1997 February
/
NetPower_2-97.mdf
/
nettools
/
audio
/
midinigh
/
mn.exe
/
0
/
RCDATA
/
TDRUMDLG
/
TDRUMDLG.txt
Wrap
Text File
|
1996-08-29
|
4KB
|
149 lines
object drumDlg: TdrumDlg
Left = 202
Top = 108
BorderIcons = []
BorderStyle = bsSingle
Caption = 'Drum track(s) and channel(s)'
ClientHeight = 239
ClientWidth = 304
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object CancelBtn: TBitBtn
Left = 116
Top = 206
Width = 77
Height = 27
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Kind = bkCancel
Margin = 2
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 200
Top = 206
Width = 77
Height = 27
HelpContext = 1000
Caption = 'Help'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = HelpBtnClick
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 289
Height = 185
TabOrder = 0
object addButton: TButton
Left = 64
Top = 24
Width = 77
Height = 27
Caption = 'Add'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = addButtonClick
end
object deleteButton: TButton
Left = 152
Top = 24
Width = 77
Height = 27
Caption = 'Remove'
Enabled = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = deleteButtonClick
end
object StringGrid1: TStringGrid
Left = 8
Top = 65
Width = 274
Height = 112
ColCount = 2
FixedCols = 0
RowCount = 2
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goTabs]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 2
OnClick = StringGrid1Click
OnEnter = StringGrid1Enter
OnExit = StringGrid1Exit
OnKeyPress = StringGrid1KeyPress
OnSelectCell = StringGrid1SelectCell
ColWidths = (
138
131)
end
end
object OKbutton: TBitBtn
Left = 32
Top = 206
Width = 77
Height = 27
Caption = 'OK'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ModalResult = 1
ParentFont = False
TabOrder = 1
OnClick = OKbuttonClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333377F3333333333000033334224333333333333
337337F3333333330000333422224333333333333733337F3333333300003342
222224333333333373333337F3333333000034222A22224333333337F337F333
7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
33333337F73337F337F33333000033A33333A222433333337333337F337F3333
0000333333333A222433333333333337F337F33300003333333333A222433333
333333337F337F33000033333333333A222433333333333337F337F300003333
33333333A222433333333333337F337F00003333333333333A22433333333333
3337F37F000033333333333333A223333333333333337F730000333333333333
333A333333333333333337330000333333333333333333333333333333333333
0000}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
end