gsmctrfr.dfm

boomerang library 5.11 internet ed

              '61801,"Omega"'
              '62001,"SPACEFON"'
              '62002,"Ghana Telecom Mobile GSM"'
              '62100,"Integrated Mobile Serv."'
              '62300,"TELECEL CENTRAFRIQUE"'
              '62402,"Mobilis"'
              '62501,"CVMOVEL"'
              '62802,"Celtel"'
              '63301,"CELLULAR SERVICES"'
              '63310,"AIRTEL"'
              '63401,"MobiTel"'
              '63510,"Rwandacell"'
              '63601,"ETMTN"'
              '63701,"BARAKAAT"'
              '63902,"SAFARICOM"'
              '63903,"KenCell"'
              '64001,"TRI - TELECOMMUNICATION"'
              '64003,"ZANTEL"'
              '64101,"CelTel Cellular"'
              '64110,"MTN-UGANDA"'
              '64202,"ANTARIS"'
              '64301,"mCel"'
              '64710,"SFR REUNION"'
              '64801,"NET*ONE"'
              '64803,"TELECEL"'
              '64804,"ECONET"'
              '64901,"MTC"'
              '65001,"CALLPOINT 900"'
              '65010,"Celtel"'
              '65101,"VODACOM LESOTHO"'
              '65201,"MASCOM"'
              '65202,"VISTA Cellular Pty (Ltd)"'
              '65310,"Swazi MTN Limited"'
              '65501,"VodaCom"'
              '65510,"MTN"'
              '73401,"INFONET"'
              '73402,"DIGITEL"'
              '74601,"ICMS"')
            TabOrder = 4
          end
          object Button2: TButton
            Left = 360
            Top = 72
            Width = 43
            Height = 25
            Caption = 'Load...'
            TabOrder = 5
            OnClick = Button2Click
          end
          object Button3: TButton
            Left = 360
            Top = 104
            Width = 43
            Height = 25
            Caption = 'Save..'
            TabOrder = 6
            OnClick = Button3Click
          end
        end
        object Blink: TButton
          Left = 352
          Top = 112
          Width = 21
          Height = 22
          Caption = '&Blk'
          TabOrder = 4
          TabStop = False
          OnClick = BlinkClick
        end
        object MelodyGB: TGroupBox
          Left = 16
          Top = 144
          Width = 409
          Height = 265
          Caption = 'Melody'
          TabOrder = 7
          object MelodyKeyboard: TPaintBox
            Left = 8
            Top = 200
            Width = 393
            Height = 57
            Anchors = [akLeft, akTop, akRight, akBottom]
            OnMouseDown = MelodyKeyboardMouseDown
            OnMouseUp = MelodyKeyboardMouseUp
            OnPaint = MelodyKeyboardPaint
          end
          object Label12: TLabel
            Left = 8
            Top = 16
            Width = 26
            Height = 13
            Caption = 'Name'
          end
          object MelodyName: TEdit
            Left = 48
            Top = 16
            Width = 121
            Height = 21
            TabOrder = 0
          end
          object Button1: TButton
            Left = 222
            Top = 14
            Width = 43
            Height = 25
            Caption = 'Load...'
            TabOrder = 1
            OnClick = Button1Click
          end
          object Button4: TButton
            Left = 270
            Top = 14
            Width = 43
            Height = 25
            Caption = 'Save..'
            TabOrder = 2
            OnClick = Button4Click
          end
          object MelodyGrid: TStringGrid
            Left = 8
            Top = 72
            Width = 393
            Height = 120
            Anchors = [akLeft, akTop, akRight, akBottom]
            ColCount = 1
            DefaultRowHeight = 15
            FixedCols = 0
            RowCount = 2
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
            TabOrder = 13
            OnDblClick = MelodyGridDblClick
          end
          object MelodyNote: TComboBox
            Left = 42
            Top = 48
            Width = 49
            Height = 21
            Style = csDropDownList
            DropDownCount = 18
            ItemHeight = 15
            Items.Strings = (
              'pause'
              'C'
              'Cis'
              'D'
              'Dis'
              'E'
              'F'
              'Fis'
              'G'
              'Gis'
              'A'
              'Ais'
              'H')
            TabOrder = 4
          end
          object MelodyDuration: TComboBox
            Left = 91
            Top = 48
            Width = 49
            Height = 21
            Style = csDropDownList
            DropDownCount = 18
            ItemHeight = 15
            Items.Strings = (
              'Full'
              '1/2'
              '1/4'
              '1/8'
              '1/16'
              '1/32')
            TabOrder = 5
          end
          object MelodyDuration2: TComboBox
            Left = 141
            Top = 48
            Width = 65
            Height = 21
            Style = csDropDownList
            DropDownCount = 18
            ItemHeight = 15
            Items.Strings = (
              'No special'
              'Dotted'
              'Double dotted'
              '2/3 length')
            TabOrder = 6
          end
          object MelodyScale: TComboBox
            Left = 9
            Top = 48
            Width = 33
            Height = 21
            Style = csDropDownList
            DropDownCount = 18
            ItemHeight = 15
            Items.Strings = (
              '1'
              '2'
              '3'
              '4')
            TabOrder = 3
          end
          object MelodyStyle: TComboBox
            Left = 250
            Top = 48
            Width = 65
            Height = 21
            Style = csDropDownList
            DropDownCount = 18
            ItemHeight = 15
            Items.Strings = (
              'Natural'
              'Continuous'
              'Staccato')
            TabOrder = 8
          end
          object MelodyTempo: TComboBox
            Left = 207
            Top = 48
            Width = 41
            Height = 21
            Style = csDropDownList
            DropDownCount = 18
            ItemHeight = 15
            Items.Strings = (
              '25'
              '28'
              '31'
              '35'
              '40'
              '45'
              '50'
              '56'
              '63'
              '70'
              '80'
              '90'
              '100'
              '112'
              '125'
              '140'
              '160'
              '180'
              '200'
              '225'
              '250'
              '285'
              '320'
              '355'
              '400'
              '450'
              '500'
              '565'
              '635'
              '715'
              '800'
              '900')
            TabOrder = 7
          end
          object MelodyVolume: TComboBox
            Left = 319
            Top = 48
            Width = 41
            Height = 21
            Style = csDropDownList
            DropDownCount = 18
            ItemHeight = 15
            Items.Strings = (
              'off'
              '1'
              '2'
              '3'
              '4'
              '5'
              '6'
              '7'
              '8'
              '9'
              '10'
              '11'
              '12'
              '13'
              '14'
              '15')
            TabOrder = 9
          end
          object MelodyInsert: TCheckBox
            Left = 360
            Top = 32
            Width = 41
            Height = 17
            Caption = 'INS'
            TabOrder = 10
          end
          object Button5: TButton
            Left = 360
            Top = 48
            Width = 19
            Height = 19
            Caption = '+'
            TabOrder = 11
            OnClick = Button5Click
          end
          object Button6: TButton
            Left = 379
            Top = 48
            Width = 19
            Height = 19
            Caption = '-'
            TabOrder = 12
            OnClick = Button6Click
          end
        end
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'SMS log'
      ImageIndex = 5
      object Panel8: TPanel
        Left = 0
        Top = 0
        Width = 444
        Height = 456
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 0
        object SMSLog: TTerminal
          Left = 1
          Top = 1
          Width = 442
          Height = 454
          MaxLines = 30
          Align = alClient
          Font.Color = clText
          Font.Height = 14
          Font.Name = 'fixed'
          Font.Pitch = fpFixed
          Font.Style = []
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
    object TabSheet7: TTabSheet
      Caption = 'Modem log'
      ImageIndex = 6
      object Panel9: TPanel
        Left = 0
        Top = 0
        Width = 444
        Height = 456
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 0
        object ModemLog: TTerminal
          Left = 1
          Top = 1