Freelog 65/Freelog065.iso/BAS/Musique/AllThatChords/allthatchords.exe/0/RCDATA/TFORMCLAVIER/TFORMCLAVIER.txt

Text File | 2005-01-25 | 11KB | 642 lines

object FormClavier: TFormClavier
  Left = 726
  Top = 243
  Width = 820
  Height = 480
  Caption = 'Midi Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    812
    446)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 69
    Height = 13
    Caption = 'Input Devices:'
  end
  object Label2: TLabel
    Left = 224
    Top = 8
    Width = 74
    Height = 13
    Caption = 'Ouput Devices:'
  end
  object Label3: TLabel
    Left = 8
    Top = 216
    Width = 21
    Height = 13
    Caption = 'Log:'
  end
  object Shape1: TShape
    Left = 8
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape3: TShape
    Left = 27
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape5: TShape
    Left = 46
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape2: TShape
    Left = 22
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape6: TShape
    Left = 65
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape8: TShape
    Left = 84
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape10: TShape
    Left = 103
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape12: TShape
    Left = 122
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape13: TShape
    Left = 141
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape15: TShape
    Left = 160
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape17: TShape
    Left = 179
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape18: TShape
    Left = 198
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape20: TShape
    Left = 217
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape22: TShape
    Left = 236
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape24: TShape
    Left = 255
    Top = 123
    Width = 19
    Height = 81
    Shape = stRoundRect
  end
  object Shape25: TShape
    Left = 273
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape27: TShape
    Left = 292
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape29: TShape
    Left = 311
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape30: TShape
    Left = 330
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape32: TShape
    Left = 349
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape34: TShape
    Left = 368
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape36: TShape
    Left = 387
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape7: TShape
    Left = 79
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape9: TShape
    Left = 98
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape11: TShape
    Left = 117
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape16: TShape
    Left = 174
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape14: TShape
    Left = 155
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape19: TShape
    Left = 212
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape21: TShape
    Left = 231
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape23: TShape
    Left = 250
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape28: TShape
    Left = 307
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape26: TShape
    Left = 287
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape31: TShape
    Left = 343
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape33: TShape
    Left = 362
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape35: TShape
    Left = 381
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape4: TShape
    Left = 41
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape37: TShape
    Left = 406
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape39: TShape
    Left = 425
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape41: TShape
    Left = 444
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape38: TShape
    Left = 420
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape42: TShape
    Left = 463
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape44: TShape
    Left = 482
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape46: TShape
    Left = 501
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape48: TShape
    Left = 520
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape43: TShape
    Left = 477
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape45: TShape
    Left = 496
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape47: TShape
    Left = 515
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape40: TShape
    Left = 439
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape49: TShape
    Left = 539
    Top = 123
    Width = 22
    Height = 81
    Shape = stRoundRect
  end
  object Shape51: TShape
    Left = 558
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape53: TShape
    Left = 577
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape50: TShape
    Left = 553
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape54: TShape
    Left = 596
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape56: TShape
    Left = 615
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape58: TShape
    Left = 634
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape60: TShape
    Left = 653
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape55: TShape
    Left = 611
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape57: TShape
    Left = 630
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape59: TShape
    Left = 649
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape52: TShape
    Left = 572
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape61: TShape
    Left = 672
    Top = 123
    Width = 22
    Height = 81
    Shape = stRoundRect
  end
  object Shape63: TShape
    Left = 691
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape65: TShape
    Left = 710
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape62: TShape
    Left = 686
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape66: TShape
    Left = 729
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape68: TShape
    Left = 748
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape70: TShape
    Left = 767
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape72: TShape
    Left = 786
    Top = 123
    Width = 20
    Height = 81
    Shape = stRoundRect
  end
  object Shape67: TShape
    Left = 744
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape69: TShape
    Left = 762
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape71: TShape
    Left = 781
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape64: TShape
    Left = 705
    Top = 123
    Width = 12
    Height = 49
    Brush.Color = clBlack
    Shape = stRoundRect
  end
  object Shape73: TShape
    Left = 272
    Top = 208
    Width = 265
    Height = 3
    Brush.Color = clYellow
  end
  object memLog: TMemo
    Left = 8
    Top = 232
    Width = 796
    Height = 82
    Anchors = [akLeft, akTop, akRight, akBottom]
    ScrollBars = ssVertical
    TabOrder = 0
    WordWrap = False
  end
  object lbxInputDevices: TCheckListBox
    Left = 8
    Top = 24
    Width = 209
    Height = 49
    OnClickCheck = lbxInputDevicesClickCheck
    ItemHeight = 13
    TabOrder = 1
  end
  object lbxOutputDevices: TCheckListBox
    Left = 219
    Top = 26
    Width = 201
    Height = 49
    OnClickCheck = lbxOutputDevicesClickCheck
    Anchors = []
    ItemHeight = 13
    TabOrder = 2
  end
  object Button1: TButton
    Left = 736
    Top = 324
    Width = 63
    Height = 35
    Anchors = []
    Caption = 'Clear'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Octaves: TRadioGroup
    Left = 8
    Top = 80
    Width = 161
    Height = 33
    BiDiMode = bdLeftToRight
    Caption = 'Octaves'
    Columns = 5
    ItemIndex = 4
    Items.Strings = (
      '2'
      '3'
      '4'
      '5'
      '6')
    ParentBiDiMode = False
    TabOrder = 4
    OnClick = OctavesClick
  end
end