PC World 1999 July/PCWorld_1999-07_cd.bin/software/TemaCD/Massiva/MASSIVA.EXE/0/RCDATA/TDLGTRANSP/TDLGTRANSP.txt

Text File | 1999-04-03 | 6KB | 223 lines

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 = {<image000.bmp>}
  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