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

Text File | 1999-04-03 | 18.5 KB | 827 lines

object fmCompose2: TfmCompose2
  Left = 179
  Top = 217
  HelpContext = 6
  BorderStyle = bsDialog
  Caption = 'Compose controllers'
  ClientHeight = 238
  ClientWidth = 377
  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 RotateLabel1: TRotateLabel
    Left = 157
    Top = 209
    Width = 211
    Height = 24
    Cursor = crHandPoint
    Hint = 'Click for help'
    Escapement = 0
    TextStyle = tsRecessed
    Caption = 'Compose controllers'
    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 PageControl1: TPage95Control
    Left = 80
    Top = 8
    Width = 289
    Height = 193
    ActivePage = TabFade
    ButtonStyle = True
    FlatButtons = True
    FlatSeperators = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    HotTrack = True
    TabInactiveColor = clSilver
    TabInactiveFont.Charset = ANSI_CHARSET
    TabInactiveFont.Color = clWindowText
    TabInactiveFont.Height = -11
    TabInactiveFont.Name = 'Arial'
    TabInactiveFont.Style = []
    ParentFont = False
    TabOrder = 3
    OnChange = PageControl1Change
    object TabSet: TTab95Sheet
      Caption = 'Set'
      GripAlign = gaLeft
      ImageIndex = -1
      StaticPageIndex = -1
      TabVisible = True
      object Label1: TLabel
        Left = 24
        Top = 32
        Width = 46
        Height = 14
        Caption = 'Controller'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 24
        Top = 72
        Width = 28
        Height = 14
        Caption = 'Value'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object setValue: TEditIncDec
        Left = 65
        Top = 69
        Width = 31
        Height = 22
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = setValue.
        TabOrder = 0
        Text = '64'
        Max = 0
      end
    end
    object TabFade: TTab95Sheet
      Caption = 'Fade'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      GripAlign = gaLeft
      ImageIndex = -1
      StaticPageIndex = -1
      ParentFont = False
      TabVisible = True
      object Label3: TLabel
        Left = 24
        Top = 32
        Width = 46
        Height = 14
        Caption = 'Controller'
      end
      object Label4: TLabel
        Left = 24
        Top = 72
        Width = 24
        Height = 14
        Caption = 'From'
      end
      object Label5: TLabel
        Left = 136
        Top = 72
        Width = 12
        Height = 14
        Caption = 'To'
      end
      object Label6: TLabel
        Left = 24
        Top = 144
        Width = 33
        Height = 14
        Caption = 'Editres'
      end
      object fadeMin: TEditIncDec
        Left = 65
        Top = 69
        Width = 31
        Height = 22
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = fadeMin.
        TabOrder = 0
        Text = '0'
        Max = 0
      end
      object fadeMax: TEditIncDec
        Left = 161
        Top = 69
        Width = 31
        Height = 22
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = fadeMax.
        TabOrder = 1
        Text = '127'
        Max = 0
      end
    end
    object TabRandom: TTab95Sheet
      Caption = 'Random'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      GripAlign = gaLeft
      ImageIndex = -1
      StaticPageIndex = -1
      ParentFont = False
      TabVisible = True
      object Label10: TLabel
        Left = 24
        Top = 32
        Width = 46
        Height = 14
        Caption = 'Controller'
      end
      object Label7: TLabel
        Left = 24
        Top = 72
        Width = 16
        Height = 14
        Caption = 'Min'
      end
      object Label8: TLabel
        Left = 128
        Top = 72
        Width = 20
        Height = 14
        Caption = 'Max'
      end
      object Label9: TLabel
        Left = 24
        Top = 144
        Width = 33
        Height = 14
        Caption = 'Editres'
      end
      object randomMin: TEditIncDec
        Left = 65
        Top = 69
        Width = 31
        Height = 22
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = randomMin.
        TabOrder = 0
        Text = '0'
        Max = 0
      end
      object randomMax: TEditIncDec
        Left = 161
        Top = 69
        Width = 31
        Height = 22
        Color = clBlack
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = randomMax.
        TabOrder = 1
        Text = '127'
        Max = 0
      end
    end
    object TabPattern: TTab95Sheet
      Caption = 'Pattern'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      GripAlign = gaLeft
      ImageIndex = -1
      StaticPageIndex = -1
      ParentFont = False
      TabVisible = True
      object Label11: TLabel
        Left = 24
        Top = 32
        Width = 46
        Height = 14
        Caption = 'Controller'
      end
      object Label12: TLabel
        Left = 24
        Top = 144
        Width = 33
        Height = 14
        Caption = 'Editres'
      end
      object Label13: TLabel
        Left = 24
        Top = 64
        Width = 91
        Height = 14
        Caption = 'Repeat this pattern'
      end
      object Fader1: TFader
        Left = 24
        Top = 88
        Width = 25
        Height = 41
        Cursor = crHandPoint
        Color = 16744576
        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 = 0
        ThumbSize = 0
        BkColor = clBlack
      end
      object Fader2: TFader
        Left = 50
        Top = 88
        Width = 25
        Height = 41
        Cursor = crHandPoint
        Color = 16744576
        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 = 0
        ThumbSize = 0
        BkColor = clBlack
      end
      object Fader3: TFader
        Left = 76
        Top = 88
        Width = 25
        Height = 41
        Cursor = crHandPoint
        Color = 16744576
        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 = 0
        ThumbSize = 0
        BkColor = clBlack
      end
      object Fader4: TFader
        Left = 102
        Top = 88
        Width = 25
        Height = 41
        Cursor = crHandPoint
        Color = 16744576
        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 = 0
        ThumbSize = 0
        BkColor = clBlack
      end
      object Fader5: TFader
        Left = 128
        Top = 88
        Width = 25
        Height = 41
        Cursor = crHandPoint
        Color = 16744576
        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 = 0
        ThumbSize = 0
        BkColor = clBlack
      end
      object Fader6: TFader
        Left = 154
        Top = 88
        Width = 25
        Height = 41
        Cursor = crHandPoint
        Color = 16744576
        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 = 0
        ThumbSize = 0
        BkColor = clBlack
      end
      object Fader7: TFader
        Left = 180
        Top = 88
        Width = 25
        Height = 41
        Cursor = crHandPoint
        Color = 16744576
        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 = 0
        ThumbSize = 0
        BkColor = clBlack
      end
      object Fader8: TFader
        Left = 206
        Top = 88
        Width = 25
        Height = 41
        Cursor = crHandPoint
        Color = 16744576
        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 = 0
        ThumbSize = 0
        BkColor = clBlack
      end
    end
  end
  object cclist: TComboBox
    Left = 168
    Top = 64
    Width = 145
    Height = 21
    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 = (
      '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
    TabOrder = 0
  end
  object panelRes: TPanel
    Left = 153
    Top = 177
    Width = 30
    Height = 19
    Cursor = crHandPoint
    Hint = 'Edit resolution'
    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 = 1
    Visible = False
    OnMouseDown = panelResMouseDown
    OnMouseUp = panelResMouseUp
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 70
    Height = 238
    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 = 2
    object labelText: TLabel
      Left = 9
      Top = 128
      Width = 55
      Height = 113
      AutoSize = False
      Caption = 'Select controller to input at beginning of part'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object panelPlay: TPanel
      Left = 4
      Top = 219
      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 = {<image000.bmp>}
        OnMouseUp = iconPlayMouseUp
        State = stUp
      end
    end
    object Panel2: TPanel
      Left = 26
      Top = 219
      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 = {<image001.bmp>}
        OnMouseUp = IconStopMouseUp
        State = stUp
      end
    end
    object btnClose: tnybutton
      Left = 7
      Top = 92
      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 = btnCloseClick
    end
    object btnUndo: tnybutton
      Left = 8
      Top = 63
      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 btnOK: tnybutton
      Left = 8
      Top = 6
      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 = 4
      OnClick = btnOKClick
    end
    object btnApply: tnybutton
      Left = 8
      Top = 34
      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 = 5
      OnClick = btnApplyClick
    end
  end
  object chkOverwrite: TCheckBox
    Left = 108
    Top = 39
    Width = 97
    Height = 17
    Caption = 'Overwrite'
    State = cbChecked
    TabOrder = 4
  end
  object PopupRes: TPopupMenu
    Left = 196
    Top = 224
    object N641: TMenuItem
      Caption = '64'
      OnClick = N641Click
    end
    object N321: TMenuItem
      Caption = '32'
      OnClick = N321Click
    end
    object N161: TMenuItem
      Caption = '16'
      OnClick = N161Click
    end
    object N81: TMenuItem
      Caption = '8'
      OnClick = N81Click
    end
    object N41: TMenuItem
      Caption = '4'
      OnClick = N41Click
    end
    object N21: TMenuItem
      Caption = '2'
      OnClick = N21Click
    end
  end
  object Timer1: TTimer
    Interval = 10
    OnTimer = Timer1Timer
    Left = 232
    Top = 224
  end
end