object SynthEditorForm: TSynthEditorForm Left = 297 Top = 106 BorderIcons = [] BorderStyle = bsSingle Caption = 'SynthForm' ClientHeight = 283 ClientWidth = 671 Color = clBlue Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poDefault Scaled = False OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object SynthPanel: TWPControl Tag = -1 Left = 0 Top = 0 Width = 661 Height = 283 Color = clOlive ParentColor = False ShowHint = True OnResize = SynthPanelResize object PortSelect: TDigiWheel Tag = -1 Left = 304 Top = 5 Width = 25 Height = 16 Cursor = crSizeNS Hint = '|Output port number' Options = [wwIncMode] MoveSpeed = 4 SlowMotionDiv = 4 Min = -1 Max = 255 Value = -1 DefaultValue = 0 OnChange = PortSelectChange MouseButton = mbLeft HotSideX = 4 HotSideY = 4 Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] BmpList = SynthResModule.Digits11IL end object BankMSBSelect: TDigiWheel Tag = -1 Left = 139 Top = 5 Width = 25 Height = 16 Cursor = crSizeNS Hint = '|Coarse bank number (CC #0)' Options = [wwIncMode] MoveSpeed = 4 SlowMotionDiv = 4 Min = -1 Max = 127 Value = -1 DefaultValue = 0 OnRelease = BankMSBSelectRelease MouseButton = mbLeft HotSideX = 4 HotSideY = 4 Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] BmpList = SynthResModule.Digits11IL end object BankLSBSelect: TDigiWheel Tag = -1 Left = 169 Top = 5 Width = 25 Height = 16 Cursor = crSizeNS Hint = '|Fine bank number (CC #32)' Options = [wwIncMode] MoveSpeed = 4 SlowMotionDiv = 4 Min = -1 Max = 127 Value = -1 DefaultValue = 0 OnRelease = BankMSBSelectRelease MouseButton = mbLeft HotSideX = 4 HotSideY = 4 Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] BmpList = SynthResModule.Digits11IL end object PatchSelect: TDigiWheel Left = 240 Top = 5 Width = 25 Height = 16 Cursor = crSizeNS Hint = '|^b^aPatch number' Options = [wwIncMode] MoveSpeed = 4 SlowMotionDiv = 4 Max = 128 DefaultValue = 1 OnChange = PatchSelectChange MouseButton = mbLeft HotSideX = 4 HotSideY = 4 PopupMenu = SynthResModule.WheelMenu Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] BmpList = SynthResModule.Digits11IL NullValue = 0 end object ChanSelect: TDigiWheel Tag = -1 Left = 81 Top = 5 Width = 18 Height = 16 Cursor = crSizeNS Hint = '|MIDI channel number' Options = [wwIncMode] MoveSpeed = 4 SlowMotionDiv = 4 Min = 1 Max = 16 Value = 10 DefaultValue = 10 OnChange = ChanSelectChange OnRelease = ChanSelectRelease MouseButton = mbLeft HotSideX = 4 HotSideY = 4 Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] BmpList = SynthResModule.Digits11IL NumDigits = 2 end object LockBtn: TQuickBtn Tag = -1 Left = 17 Top = 4 Width = 25 Height = 18 Cursor = crHandPoint Hint = '|Click to lock the editor' ParentColor = True Caption = 'LockBtn' Options = [tbHasDownGlyph, tbTrashGlyph, tbAutoSize] AccelKey = 0 FXType = FX_Blend BmpList = SynthResModule.LockBtnIL OnClick = LockBtnClick end object OptionsBtn: TQuickBtn Tag = -1 Left = 4 Top = 4 Width = 12 Height = 18 Cursor = crHandPoint Hint = '|Change the editor background' ParentColor = True Caption = 'OptionsBtn' PopupMenu = SynthResModule.OptionsMenu Options = [tbHasDownGlyph, tbTrashGlyph, tbAutoSize] AccelKey = 0 BmpList = SynthResModule.OptionsBtnIL StayDown = False PopupAlign = Popup_Bottom PopupButton = mbLeft end object PropertyCombo: TQuickCombo Tag = -1 Left = 460 Top = 52 Width = 202 Height = 21 ParentFont = False ParentColor = False Color = 5064767 Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Caption = 'Panel' Options = [tbShowPressed, tbOnOver, tbHasDownGlyph, tbTrashGlyph, tbAutoSize, tbBorder, tbDownArrow] Style = FS_Glass TextAlign = ttaLeft AccelKey = 0 Items.Strings = ( 'Panel') OnChange = PropertyComboChange end object WorkPanel: TDashboardPanel Tag = -1 Left = 0 Top = 52 Width = 286 Height = 231 GridColor = 4210752 ControlPopup = SynthResModule.WheelMenu LabelFont.Charset = ANSI_CHARSET LabelFont.Color = clBlack LabelFont.Height = -9 LabelFont.Name = 'Fruity fonts' LabelFont.Style = [] Options = [doHideGridWhenOff] OnCreateControl = WorkPanelCreateControl OnLocateDataFile = WorkPanelLocateDataFile OnPanelChange = WorkPanelPanelChange OnWriteControlProps = WorkPanelWriteControlProps OnReadControlProp = WorkPanelReadControlProp OnSelectionChange = WorkPanelSelectionChange OnItemChange = WorkPanelItemChange OnPanelResize = WorkPanelPanelResize OnPropertyChanged = WorkPanelPropertyChanged OnGetIniFile = WorkPanelGetIniFile OnReadInstrument = WorkPanelReadInstrument OnPropertiesHaveChanged = WorkPanelPropertiesHaveChanged Color = clGray ParentColor = False ParentShowHint = True end object PropertyInspector: TPropertyInspector Tag = -1 Left = 460 Top = 72 Width = 186 Height = 211 Items.Strings = ( 'Item0' 'Item1') ItemIndex = 0 ValueFont.Charset = DEFAULT_CHARSET ValueFont.Color = 13486271 ValueFont.Height = -11 ValueFont.Name = 'MS Sans Serif' ValueFont.Style = [] SeparatorColor = 3485735 Options = [ioMoveSplitter] SplitterPosition = 100 BorderStyle = bsSingle OnGetItemInfo = PropertyInspectorGetItemInfo OnGetValueList = PropertyInspectorGetValueList OnGetIntValue = PropertyInspectorGetIntValue OnGetFontValue = PropertyInspectorGetFontValue OnGetStringValue = PropertyInspectorGetStringValue OnGetListValue = PropertyInspectorGetListValue OnSetIntValue = PropertyInspectorSetIntValue OnSetFontValue = PropertyInspectorSetFontValue OnSetStringValue = PropertyInspectorSetStringValue OnSetListValue = PropertyInspectorSetListValue OnChange = PropertyInspectorChange Color = 5064767 Font.Charset = DEFAULT_CHARSET Font.Color = 11380895 Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] end object PropertyScroller: TNumBar Tag = -1 Left = 645 Top = 72 Width = 16 Height = 211 BorderStyle = bsNone ParentColor = False TabOrder = 2 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Color = 5064767 LineSize = 1 PageSize = 10 Min = 0 Max = 100 MoveMin = 0 MoveMax = 100 Position = 0 Orientation = trVertical Options = [nbSlideKnob] ArrowsWidth = 23 OnChange = PropertyScrollerChange end object EmptyWP: TWPControl Tag = -1 Left = 305 Top = 100 Width = 111 Height = 116 Color = 5064767 ParentColor = False ShowHint = True end end object Timer: TTimer Enabled = False Interval = 10000 OnTimer = TimerTimer Left = 140 Top = 120 end end