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

Text File | 1999-04-03 | 10KB | 465 lines

object fmCompose1: TfmCompose1
  Left = 192
  Top = 150
  HelpContext = 6
  BorderStyle = bsDialog
  Caption = 'Compose notes'
  ClientHeight = 250
  ClientWidth = 328
  Color = clSilver
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Image1: TImage
    Left = 70
    Top = 0
    Width = 258
    Height = 250
    Align = alClient
    Picture.Data = {<image000.bmp>}
    Stretch = True
  end
  object Label1: TLabel
    Left = 80
    Top = 8
    Width = 34
    Height = 14
    Caption = 'Pattern'
    Transparent = True
  end
  object Label2: TLabel
    Left = 80
    Top = 176
    Width = 28
    Height = 14
    Caption = 'Notes'
    Transparent = True
  end
  object Label3: TLabel
    Left = 216
    Top = 19
    Width = 33
    Height = 14
    Caption = 'Length'
    Transparent = True
  end
  object Label4: TLabel
    Left = 216
    Top = 46
    Width = 50
    Height = 14
    Caption = 'Resolution'
    Transparent = True
  end
  object RotateLabel1: TRotateLabel
    Left = 160
    Top = 221
    Width = 160
    Height = 24
    Cursor = crHandPoint
    Hint = 'Click for help'
    Escapement = 0
    TextStyle = tsRecessed
    Caption = 'Compose notes'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clSilver
    Font.Height = -21
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = RotateLabel1Click
  end
  object Label5: TLabel
    Left = 216
    Top = 76
    Width = 39
    Height = 14
    Caption = 'Velocity'
    Transparent = True
  end
  object Label6: TLabel
    Left = 216
    Top = 100
    Width = 44
    Height = 14
    Caption = 'Arpeggio'
    Transparent = True
  end
  object editPattern: TEdit
    Left = 80
    Top = 24
    Width = 121
    Height = 21
    Hint = 'On/off pattern'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Text = '10111010'
  end
  object ListBox1: TListBox
    Left = 80
    Top = 56
    Width = 121
    Height = 113
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    Items.Strings = (
      '1000'
      '0100'
      '0010'
      '0001'
      '1100'
      '1010'
      '1001'
      '0101'
      '0011'
      '1110'
      '1101'
      '1011'
      '0111'
      '1111')
    ParentFont = False
    TabOrder = 1
    OnClick = ListBox1Click
  end
  object chkOverwrite: TCheckBox
    Left = 216
    Top = 152
    Width = 97
    Height = 17
    Caption = 'Overwrite part'
    ParentShowHint = False
    ShowHint = False
    State = cbChecked
    TabOrder = 2
  end
  object editnote: TEdit
    Left = 80
    Top = 192
    Width = 241
    Height = 21
    Hint = 'Use PC or midi keyboard to input notes'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    Text = 'C1 - D#1 - G1 '
    OnChange = editnoteChange
  end
  object panelLength: TPanel
    Left = 287
    Top = 16
    Width = 30
    Height = 19
    Cursor = crHandPoint
    Hint = '[Click] Set length of inserted events'
    BevelOuter = bvNone
    Caption = '16'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnMouseDown = panelLengthMouseDown
    OnMouseUp = panelLengthMouseUp
  end
  object panelRes: TPanel
    Left = 287
    Top = 43
    Width = 30
    Height = 19
    Cursor = crHandPoint
    Hint = '[Click] Set interval of inserted events'
    BevelOuter = bvNone
    Caption = '16'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnMouseDown = panelResMouseDown
    OnMouseUp = panelResMouseUp
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 70
    Height = 250
    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 = 6
    object labelText: TLabel
      Left = 6
      Top = 125
      Width = 58
      Height = 101
      AutoSize = False
      Caption =
        'Select pattern, length, resulution and velocity to insert in par' +
        't'
      Font.Charset = ANSI_CHARSET
      Font.Color = 8454143
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object panelPlay: TPanel
      Left = 4
      Top = 231
      Width = 19
      Height = 16
      Hint = 'Play'
      Color = clBlack
      TabOrder = 0
      object iconPlay: TIconButton
        Left = 1
        Top = 1
        Width = 17
        Height = 14
        Align = alClient
        Center = True
        Picture.Data = {<image001.bmp>}
        OnMouseUp = iconPlayMouseUp
        State = stUp
      end
    end
    object Panel2: TPanel
      Left = 26
      Top = 231
      Width = 19
      Height = 16
      Color = clBlack
      TabOrder = 1
      object IconStop: TIconButton
        Left = 1
        Top = 1
        Width = 17
        Height = 14
        Hint = 'Stop'
        Align = alClient
        Center = True
        Picture.Data = {<image002.bmp>}
        OnMouseUp = IconStopMouseUp
        State = stUp
      end
    end
    object btnClose: tnybutton
      Left = 7
      Top = 93
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Cancel = True
      Caption = '&Close'
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = tnybutton1Click
    end
    object btnUndo: tnybutton
      Left = 7
      Top = 64
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '&Undo'
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = btnUndoClick
    end
    object btnApply: tnybutton
      Left = 7
      Top = 35
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '&Apply'
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = btnApplyClick
    end
    object btnOK: tnybutton
      Left = 7
      Top = 7
      Width = 57
      Height = 25
      Cursor = crHandPoint
      Caption = '&OK'
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clSilver
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = btnOkClick
    end
  end
  object editVelocity: TEditIncDec
    Left = 288
    Top = 71
    Width = 31
    Height = 22
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    PopupMenu = editVelocity.
    TabOrder = 7
    Text = '64'
    OnExit = editVelocityExit
    Min = 1
    Max = 0
  end
  object comboArp: TComboBox
    Left = 217
    Top = 116
    Width = 101
    Height = 21
    Hint = '[Shift + F1 - F10] Select defined locator positions'
    TabStop = False
    Style = csDropDownList
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    Items.Strings = (
      'None'
      'Up'
      'Down'
      'Up & Down'
      'Down & Up'
      'Random')
    ParentFont = False
    TabOrder = 8
  end
  object Timer1: TTimer
    Interval = 10
    OnTimer = Timer1Timer
    Left = 288
    Top = 216
  end
  object PopupRes: TPopupMenu
    Left = 156
    Top = 160
    object N641: TMenuItem
      Tag = 64
      Caption = '64'
    end
    object N321: TMenuItem
      Tag = 32
      Caption = '32'
    end
    object N161: TMenuItem
      Tag = 16
      Caption = '16'
    end
    object N81: TMenuItem
      Tag = 8
      Caption = '8'
    end
    object N41: TMenuItem
      Tag = 4
      Caption = '4'
    end
    object N21: TMenuItem
      Tag = 2
      Caption = '2'
    end
    object N64T1: TMenuItem
      Break = mbBarBreak
      Caption = '64T'
      Enabled = False
    end
    object N32T1: TMenuItem
      Caption = '32T'
      Enabled = False
    end
    object N16T1: TMenuItem
      Caption = '16T'
      Enabled = False
    end
    object N8T1: TMenuItem
      Caption = '8T'
      Enabled = False
    end
    object N4T1: TMenuItem
      Caption = '4T'
      Enabled = False
    end
    object N2T1: TMenuItem
      Caption = '2T'
      Enabled = False
    end
  end
end