object dlgTransp: TdlgTransp Left = 254 Top = 201 BorderStyle = bsDialog Caption = 'Transpose input' ClientHeight = 147 ClientWidth = 276 Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 70 Top = 0 Width = 206 Height = 147 Align = alClient AutoSize = True Picture.Data = {} end object Bevel1: TBevel Left = 139 Top = 50 Width = 127 Height = 2 Style = bsRaised end object SpeedButton1: TSpeedButton Left = 204 Top = 39 Width = 20 Height = 20 Hint = 'Up 1' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000CCCCCCCCC0000000FCCCCCCCF0000000FFCCCCCFF000 0000FFFCCCFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 229 Top = 42 Width = 20 Height = 20 Hint = 'Down 1' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000FFFFCFFFF0000000FFFCCCFFF0000000FFCCCCCFF000 0000FCCCCCCCF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 154 Top = 36 Width = 20 Height = 20 Hint = 'Up 12' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFCCCCCFF000 0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 179 Top = 46 Width = 20 Height = 20 Hint = 'Down 12' Glyph.Data = { BE000000424DBE00000000000000760000002800000009000000090000000100 0400000000004800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000 0000FFFFFFFFF0000000FFFFCFFFF0000000FFFFFFFFF0000000FFCCCCCFF000 0000FFFFFFFFF0000000CCCCCCCCC0000000FFFFFFFFF0000000FFFFFFFFF000 0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object Label1: TLabel Left = 96 Top = 8 Width = 123 Height = 14 Caption = 'Transpose track input by:' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object RotateLabel1: TRotateLabel Left = 103 Top = 113 Width = 165 Height = 24 Escapement = 0 TextStyle = tsRecessed Caption = 'Transpose input' Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object Panel1: TPanel Left = 0 Top = 0 Width = 70 Height = 147 Align = alLeft BevelOuter = bvNone Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object labelText: TLabel Left = 10 Top = 64 Width = 57 Height = 73 AutoSize = False Caption = 'Select value to transpose midi input by' Font.Charset = ANSI_CHARSET Font.Color = 8454143 Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True WordWrap = True end object tnybutton1: tnybutton Left = 7 Top = 34 Width = 57 Height = 25 Cursor = crHandPoint Cancel = True Caption = '&Close' Default = True Font.Charset = ANSI_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ModalResult = 1 ParentFont = False TabOrder = 0 OnClick = tnybutton1Click end object tnybutton2: tnybutton Left = 7 Top = 6 Width = 57 Height = 25 Cursor = crHandPoint Caption = '&Off' Font.Charset = ANSI_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ModalResult = 1 ParentFont = False TabOrder = 1 OnClick = tnybutton2Click end end object edittransp: TEditIncDec Left = 96 Top = 39 Width = 34 Height = 22 Color = clBlack Font.Charset = ANSI_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = edittransp. TabOrder = 1 Text = '1' OnChange = edittranspChange Min = -127 Max = 0 end end