object fmMidiFader: TfmMidiFader Left = 265 Top = 258 BorderStyle = bsNone Caption = 'Midi faders' ClientHeight = 77 ClientWidth = 136 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop KeyPreview = True OnCreate = FormCreate OnKeyDown = FormKeyDown OnKeyUp = FormKeyUp OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 0 Top = 0 Width = 136 Height = 77 Align = alClient Style = bsRaised end object Fader1: TFader Left = 5 Top = 5 Width = 25 Height = 49 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 63 ThumbSize = 0 OnChange = Fader1Change BkColor = clBlack end object Fader2: TFader Left = 32 Top = 5 Width = 25 Height = 49 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 63 ThumbSize = 0 OnChange = Fader2Change BkColor = clBlack end object Fader3: TFader Left = 59 Top = 5 Width = 25 Height = 49 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 63 ThumbSize = 0 OnChange = Fader3Change BkColor = clBlack end object Fader4: TFader Left = 86 Top = 5 Width = 25 Height = 49 Cursor = crHandPoint Color = 16711808 Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -9 Font.Name = 'Small Fonts' Font.Style = [] ParentColor = False ParentFont = False Mirror = True ShowText = True Min = 0 Max = 127 Pos = 63 ThumbSize = 0 OnChange = Fader4Change BkColor = clBlack end object move: TRotateLabel Left = 115 Top = 24 Width = 18 Height = 50 Hint = 'Click and drag to move' Escapement = 90 TextStyle = tsNone AutoSize = False Caption = 'MIDI' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = 8454143 Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False ParentShowHint = False ShowHint = False end object SpeedButton1: TSpeedButton Left = 115 Top = 5 Width = 17 Height = 17 Cursor = crHandPoint Hint = 'Close' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777000 000077777777700000007777F77770000000777777777000000077FFFFF77000 00007777777770000000FFFFFFFFF00000007777777770000000777777777000 0000} ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object panelCC1: TPanel Left = 5 Top = 57 Width = 25 Height = 16 Cursor = crHandPoint Hint = 'Velocity' BevelOuter = bvNone Caption = 'Vel' Color = clGray Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = panelCC1Click end object panelCC2: TPanel Left = 32 Top = 57 Width = 25 Height = 16 Cursor = crHandPoint Hint = 'Velocity' BevelOuter = bvNone Caption = 'Vel' Color = clGray Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = panelCC2Click end object panelCC3: TPanel Left = 59 Top = 57 Width = 25 Height = 16 Cursor = crHandPoint Hint = 'Velocity' BevelOuter = bvNone Caption = 'Vel' Color = clGray Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = panelCC3Click end object panelCC4: TPanel Left = 86 Top = 57 Width = 25 Height = 16 Cursor = crHandPoint Hint = 'Velocity' BevelOuter = bvNone Caption = 'Vel' Color = clGray Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = panelCC4Click end object List: TListBox Left = 344 Top = 112 Width = 153 Height = 137 Hint = 'Select controller' TabStop = False BorderStyle = bsNone Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 14 Items.Strings = ( 'Bank Select (0)' 'Modulation (1)' 'Breath control (2)' 'Controller (3)' 'Foot controller (4)' 'Portamento time (5)' 'Data entry (6)' 'Main volum (7)' 'Balance (8)' 'Controller (9)' 'Pan (10)' 'Expression Controller (11)' 'Effect controll 1 (12)' 'Effect controll 2 (13)' 'Controller (14)' 'Controller (15)' 'Controller (16)' 'Controller (17)' 'Controller (18)' 'Controller (19)' 'Controller (20)' 'Controller (21)' 'Controller (22)' 'Controller (23)' 'Controller (24)' 'Controller (25)' 'Controller (26)' 'Controller (27)' 'Controller (28)' 'Controller (29)' 'Controller (30)' 'Controller (31)' 'Controller (32)' 'Controller (33)' 'Controller (34)' 'Controller (35)' 'Controller (36)' 'Controller (37)' 'Controller (38)' 'Controller (39)' 'Controller (40)' 'Controller (41)' 'Controller (42)' 'Controller (43)' 'Controller (44)' 'Controller (45)' 'Controller (46)' 'Controller (47)' 'Controller (48)' 'Controller (49)' 'Controller (50)' 'Controller (51)' 'Controller (52)' 'Controller (53)' 'Controller (54)' 'Controller (55)' 'Controller (56)' 'Controller (57)' 'Controller (58)' 'Controller (59)' 'Controller (60)' 'Controller (61)' 'Controller (62)' 'Controller (63)' 'Controller (64)' 'Controller (65)' 'Controller (66)' 'Controller (67)' 'Controller (68)' 'Controller (69)' 'Controller (70)' 'Controller (71)' 'Controller (72)' 'Controller (73)' 'Controller (74)' 'Controller (75)' 'Controller (76)' 'Controller (77)' 'Controller (78)' 'Controller (79)' 'Controller (80)' 'Controller (81)' 'Controller (82)' 'Controller (83)' 'Controller (84)' 'Controller (85)' 'Controller (86)' 'Controller (87)' 'Controller (88)' 'Controller (89)' 'Controller (80)' 'Controller (91)' 'Controller (92)' 'Controller (93)' 'Controller (94)' 'Controller (95)' 'Controller (96)' 'Controller (97)' 'Controller (98)' 'Controller (99)' 'Controller (100)' 'Controller (101)' 'Controller (102)' 'Controller (103)' 'Controller (104)' 'Controller (105)' 'Controller (106)' 'Controller (107)' 'Controller (108)' 'Controller (109)' 'Controller (110)' 'Controller (111)' 'Controller (112)' 'Controller (113)' 'Controller (114)' 'Controller (115)' 'Controller (116)' 'Controller (117)' 'Controller (118)' 'Controller (119)' 'Controller (120)' 'Controller (121)' 'Controller (122)' 'Controller (123)' 'Controller (124)' 'Controller (125)' 'Controller (126)' 'Controller (127)') ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 Visible = False OnKeyDown = ListKeyDown OnMouseUp = ListMouseUp end end