object FormMain: TFormMain Left = 632 Top = 123 BorderStyle = bsDialog Caption = 'fm801' ClientHeight = 283 ClientWidth = 247 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter PixelsPerInch = 96 TextHeight = 13 object GroupBoxVolume: TGroupBox Left = 136 Top = 8 Width = 100 Height = 265 Caption = 'Volume' TabOrder = 2 object LabelFMSynth: TLabel Left = 24 Top = 24 Width = 45 Height = 13 Caption = 'FM Synth' end object TrackBarLeft: TTrackBar Left = 8 Top = 40 Width = 42 Height = 169 Enabled = False Max = 32 Orientation = trVertical PageSize = 4 Frequency = 4 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 0 ThumbLength = 24 TickMarks = tmTopLeft TickStyle = tsAuto OnChange = TrackBarLeftChange end object TrackBarRight: TTrackBar Left = 56 Top = 40 Width = 42 Height = 169 Enabled = False Max = 32 Orientation = trVertical PageSize = 4 Frequency = 4 Position = 0 SelEnd = 0 SelStart = 0 TabOrder = 1 ThumbLength = 24 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBarRightChange end object CheckBoxMute: TCheckBox Left = 16 Top = 240 Width = 65 Height = 17 Caption = 'Mute' Enabled = False TabOrder = 3 OnClick = CheckBoxMuteClick end object CheckBoxLinked: TCheckBox Left = 16 Top = 216 Width = 65 Height = 17 Caption = 'Linked' Enabled = False TabOrder = 2 OnClick = CheckBoxLinkedClick end end object GroupBoxOPL: TGroupBox Left = 8 Top = 200 Width = 113 Height = 73 Caption = 'OPL Mode' TabOrder = 1 object RadioButtonOPL2: TRadioButton Left = 16 Top = 24 Width = 65 Height = 17 Caption = 'OPL2' Enabled = False TabOrder = 0 TabStop = True OnClick = RadioButtonOPL2Click end object RadioButtonOPL3: TRadioButton Left = 16 Top = 48 Width = 73 Height = 17 Caption = 'OPL3' Checked = True Enabled = False TabOrder = 1 TabStop = True OnClick = RadioButtonOPL3Click end end object GroupBoxAddress: TGroupBox Left = 8 Top = 8 Width = 113 Height = 177 Caption = 'I/O Resource' TabOrder = 0 object LabelAddress: TLabel Left = 16 Top = 24 Width = 38 Height = 13 Caption = 'Address' end object LabelCurrentAddress: TLabel Left = 16 Top = 128 Width = 75 Height = 13 Caption = 'Current Address' end object LabelAddressValue: TLabel Left = 24 Top = 152 Width = 36 Height = 13 Caption = 'Not Set' end object ComboBoxAddress: TComboBox Left = 16 Top = 48 Width = 81 Height = 21 ItemHeight = 13 TabOrder = 0 Items.Strings = ( '8000' '8800' '9000' '9800' 'A000' 'A800' 'B000' 'B800' 'C000' 'C800' 'D000' 'D800' 'E000' 'E800' 'F000' 'F800') end object ButtonAddress: TButton Left = 16 Top = 80 Width = 75 Height = 25 Caption = 'Apply' TabOrder = 1 OnClick = ButtonAddressClick end end end