MTK

开发平台：
C++ Builder

form_BaseBand.dfm：源码内容
							object frmBaseBand: TfrmBaseBand
  Left = 235
  Top = 165
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Baseband'
  ClientHeight = 397
  ClientWidth = 555
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnHide = FormHide
  PixelsPerInch = 96
  TextHeight = 13
  object pctlToolSel: TPageControl
    Left = 7
    Top = 5
    Width = 538
    Height = 388
    ActivePage = tsPMICReg
    MultiLine = True
    TabIndex = 2
    TabOrder = 0
    OnChange = pctlToolSelChange
    object tsADC: TTabSheet
      Caption = 'Auxiliary ADC'
      ImageIndex = 2
      object lblLabel01: TLabel
        Left = 0
        Top = 40
        Width = 33
        Height = 13
        Caption = 'Slope :'
      end
      object lblLabel02: TLabel
        Left = 0
        Top = 64
        Width = 34
        Height = 13
        Caption = 'Offset :'
      end
      object Label1: TLabel
        Left = 456
        Top = 16
        Width = 72
        Height = 13
        Caption = 'Mesaure Count'
      end
      object edtSlope0: TEdit
        Tag = 1
        Left = 40
        Top = 40
        Width = 49
        Height = 21
        TabOrder = 1
        Text = '1'
        OnExit = edtSlopeCheck
      end
      object btnADC0: TButton
        Left = 40
        Top = 8
        Width = 49
        Height = 25
        Caption = 'ADC 0'
        TabOrder = 0
        OnClick = btnAdcClick
      end
      object edtOffset0: TEdit
        Left = 40
        Top = 64
        Width = 49
        Height = 21
        TabOrder = 2
        Text = '0'
        OnExit = edtOffsetCheck
      end
      object btnADC1: TButton
        Tag = 1
        Left = 96
        Top = 8
        Width = 49
        Height = 25
        Caption = 'ADC 1'
        TabOrder = 3
        OnClick = btnAdcClick
      end
      object edtSlope1: TEdit
        Tag = 1
        Left = 96
        Top = 40
        Width = 49
        Height = 21
        TabOrder = 4
        Text = '1'
        OnExit = edtSlopeCheck
      end
      object edtOffset1: TEdit
        Left = 96
        Top = 64
        Width = 49
        Height = 21
        TabOrder = 5
        Text = '0'
        OnExit = edtOffsetCheck
      end
      object btnADC2: TButton
        Tag = 2
        Left = 152
        Top = 8
        Width = 49
        Height = 25
        Caption = 'ADC 2'
        TabOrder = 6
        OnClick = btnAdcClick
      end
      object edtSlope2: TEdit
        Tag = 1
        Left = 152
        Top = 40
        Width = 49
        Height = 21
        TabOrder = 7
        Text = '1'
        OnExit = edtSlopeCheck
      end
      object edtOffset2: TEdit
        Left = 152
        Top = 64
        Width = 49
        Height = 21
        TabOrder = 8
        Text = '0'
        OnExit = edtOffsetCheck
      end
      object btnADC3: TButton
        Tag = 3
        Left = 208
        Top = 8
        Width = 49
        Height = 25
        Caption = 'ADC 3'
        TabOrder = 9
        OnClick = btnAdcClick
      end
      object edtSlope3: TEdit
        Tag = 1
        Left = 208
        Top = 40
        Width = 49
        Height = 21
        TabOrder = 10
        Text = '1'
        OnExit = edtSlopeCheck
      end
      object edtOffset3: TEdit
        Left = 208
        Top = 64
        Width = 49
        Height = 21
        TabOrder = 11
        Text = '0'
        OnExit = edtOffsetCheck
      end
      object btnADC4: TButton
        Tag = 4
        Left = 264
        Top = 8
        Width = 49
        Height = 25
        Caption = 'ADC 4'
        TabOrder = 12
        OnClick = btnAdcClick
      end
      object edtSlope4: TEdit
        Tag = 1
        Left = 264
        Top = 40
        Width = 49
        Height = 21
        TabOrder = 13
        Text = '1'
        OnExit = edtSlopeCheck
      end
      object edtOffset4: TEdit
        Left = 264
        Top = 64
        Width = 49
        Height = 21
        TabOrder = 14
        Text = '0'
        OnExit = edtOffsetCheck
      end
      object pnlProfileTitle: TPanel
        Left = 16
        Top = 96
        Width = 57
        Height = 25
        BevelOuter = bvLowered
        Caption = 'ADC 0'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 16
      end
      object Panel1: TPanel
        Left = 16
        Top = 120
        Width = 497
        Height = 161
        BevelOuter = bvLowered
        TabOrder = 15
        object lblLabel03: TLabel
          Left = 72
          Top = 8
          Width = 60
          Height = 13
          Caption = 'Analog Input'
        end
        object lblLabel04: TLabel
          Left = 160
          Top = 16
          Width = 64
          Height = 13
          Caption = 'Digital Output'
        end
        object lblLabel05: TLabel
          Left = 16
          Top = 40
          Width = 39
          Height = 13
          Caption = 'Point 1 :'
        end
        object lblLabel06: TLabel
          Left = 16
          Top = 72
          Width = 39
          Height = 13
          Caption = 'Point 2 :'
        end
        object lblLabel07: TLabel
          Left = 16
          Top = 128
          Width = 36
          Height = 13
          Caption = 'Result :'
        end
        object lblLabel08: TLabel
          Left = 64
          Top = 112
          Width = 74
          Height = 13
          Caption = 'Slope (uV/Dac)'
        end
        object lblLabel09: TLabel
          Left = 160
          Top = 112
          Width = 50
          Height = 13
          Caption = 'Offset (uV)'
        end
        object Bevel1: TBevel
          Left = 0
          Top = 104
          Width = 497
          Height = 1
        end
        object lblLabel12: TLabel
          Left = 80
          Top = 24
          Width = 41
          Height = 13
          Caption = '( m Volt )'
        end
        object Label15: TLabel
          Left = 320
          Top = 24
          Width = 74
          Height = 13
          Caption = 'Battery channel'
        end
        object Label16: TLabel
          Left = 408
          Top = 24
          Width = 78
          Height = 13
          Caption = 'Charger channel'
        end
        object edtInput1: TEdit
          Left = 64
          Top = 40
          Width = 73
          Height = 21
          TabOrder = 4
          Text = '0.0'
          OnExit = edtInputCheck
        end
        object txtOutput1: TStaticText
          Left = 152
          Top = 40
          Width = 73
          Height = 21
          Alignment = taCenter
          AutoSize = False
          BorderStyle = sbsSingle
          Caption = '0'
          Color = clWhite
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Courier New'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 0
        end
        object btnMeasureAdcStart1: TBitBtn
          Left = 248
          Top = 38
          Width = 65
          Height = 25
          Caption = 'Start'
          TabOrder = 5
          OnClick = btnMeasureAdcStart1Click
          Kind = bkRetry
        end
        object edtInput2: TEdit
          Tag = 1
          Left = 64
          Top = 72
          Width = 73
          Height = 21
          TabOrder = 6
          Text = '0.0'
          OnExit = edtInputCheck
        end
        object txtOutput2: TStaticText
          Tag = 1
          Left = 152
          Top = 72
          Width = 73
          Height = 21
          Alignment = taCenter
          AutoSize = False
          BorderStyle = sbsSingle
          Caption = '0'
          Color = clWhite
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Courier New'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 1
        end
        object btnMeasureAdcStart2: TBitBtn
          Tag = 1
          Left = 248
          Top = 70
          Width = 65
          Height = 25
          Caption = 'Start'
          TabOrder = 7
          OnClick = btnMeasureAdcStart2Click
          Kind = bkRetry
        end
        object txtResultSlope: TStaticText
          Left = 64
          Top = 128
          Width = 73
          Height = 21
          Alignment = taCenter
          AutoSize = False
          BorderStyle = sbsSingle
          Caption = '0'
          Color = clWhite
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Courier New'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 2
        end
        object txtResultOffset: TStaticText
          Left = 152
          Top = 128
          Width = 73
          Height = 21
          Alignment = taCenter
          AutoSize = False
          BorderStyle = sbsSingle
          Caption = '0'
          Color = clWhite
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'Courier New'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 3
        end
        object btnApply: TButton
          Tag = 1
          Left = 248
          Top = 128
          Width = 65
          Height = 25
          Caption = 'Apply'
          Enabled = False
          TabOrder = 8
          OnClick = btnApplyClick
        end
        object cbADCBatteryChannel: TComboBox
          Left = 320
          Top = 40
          Width = 73
          Height = 21
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 9
          Text = '0'
          Items.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
        end
        object cbADCChargerChannel: TComboBox
          Left = 408
          Top = 40
          Width = 73
          Height = 21
          ItemHeight = 13
          ItemIndex = 1
          TabOrder = 10
          Text = '1'
          Items.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
        end
      end
      object btnAdcUploadFromFlash: TButton
        Left = 16
        Top = 288
        Width = 97
        Height = 25
        Caption = 'Upload from flash'
        TabOrder = 17
        OnClick = btnAdcUploadFromFlashClick
      end
      object btnAdcDownloadToFlash: TButton
        Left = 120
        Top = 288
        Width = 97
        Height = 25
        Caption = 'Download to flash'
        TabOrder = 18
        OnClick = btnAdcDownloadToFlashClick
      end
      object btnAdcLoadFromFile: TButton
        Left = 336
        Top = 288
        Width = 73
        Height = 25
        Caption = 'Load fom file'
        TabOrder = 19
        OnClick = btnAdcLoadFromFileClick
      end
      object btnAdcSaveToFile: TButton
        Left = 416
        Top = 288
        Width = 73
        Height = 25
        Caption = 'Save to file'
        TabOrder = 20
        OnClick = btnAdcSaveToFileClick
      end
      object edtMeasureCount: TEdit
        Left = 456
        Top = 40
        Width = 70
        Height = 21
        TabOrder = 21
        Text = '1000'
        OnExit = edtMeasureCountCheck
      end
      object btnADC5: TButton
        Tag = 5
        Left = 320
        Top = 8
        Width = 49
        Height = 25
        Caption = 'ADC5'
        TabOrder = 22
        OnClick = btnAdcClick
      end
      object edtSlope5: TEdit
        Left = 320
        Top = 40
        Width = 49
        Height = 21
        TabOrder = 23
        Text = '1'
        OnExit = edtSlopeCheck
      end
      object edtOffset5: TEdit
        Left = 320
        Top = 64
        Width = 49
        Height = 21
        TabOrder = 24
        Text = '0'
        OnExit = edtOffsetCheck
      end
      object btnADC6: TButton
        Tag = 6
        Left = 376
        Top = 8
        Width = 49
        Height = 25
        Caption = 'ADC6'
        TabOrder = 25
        OnClick = btnAdcClick
      end
      object edtSlope6: TEdit
        Left = 376
        Top = 40
        Width = 49
        Height = 21
        TabOrder = 26
        Text = '1'
        OnExit = edtSlopeCheck
      end
      object edtOffset6: TEdit
        Left = 376
        Top = 64
        Width = 49
        Height = 21
        TabOrder = 27
        Text = '0'
        OnExit = edtOffsetCheck
      end
      object btnADCChangeDB: TButton
        Left = 224
        Top = 288
        Width = 105
        Height = 25
        Caption = 'Change NVRAM DB'
        TabOrder = 28
        OnClick = btnADCChangeDBClick
      end
      object sbAdc: TStatusBar
        Left = 0
        Top = 313
        Width = 530
        Height = 29
        Panels = <
          item
            Width = 50
          end>
        SimplePanel = False
      end
    end
    object tsBBReg: TTabSheet
      Caption = 'Baseband Register Read/Write'
      ImageIndex = 1
      object lblBBRegAddr0X: TLabel
        Left = 9
        Top = 52
        Width = 11
        Height = 13
        Caption = '0x'
      end
      object lblBBRegValue0X: TLabel
        Left = 114
        Top = 52
        Width = 11
        Height = 13
        Caption = '0x'
      end
      object lblLabel10: TLabel
        Left = 32
        Top = 24
        Width = 66
        Height = 13
        Caption = 'Address (Hex)'
      end
      object edtBBAddress: TEdit
        Left = 24
        Top = 48
        Width = 81
        Height = 21
        TabOrder = 0
        Text = '20'
        OnExit = edtRegAddrCheck
      end
      object edtBBValue: TEdit
        Left = 128
        Top = 48
        Width = 81
        Height = 21
        TabOrder = 1
        Text = '20'
        OnExit = edtRegValueCheck
      end
      object btnBBRegRead: TButton
        Tag = 1
        Left = 232
        Top = 48
        Width = 65
        Height = 25
        Caption = 'Read'
        TabOrder = 2
        OnClick = btnBBRegReadClick
      end
      object btnBBRegWrite: TButton
        Tag = 1
        Left = 304
        Top = 48
        Width = 65
        Height = 25
        Caption = 'Write'
        TabOrder = 3
        OnClick = btnBBRegWriteClick
      end
      object btnBBRegValue: TButton
        Tag = 1
        Left = 128
        Top = 16
        Width = 81
        Height = 25
        Caption = 'Value (Hex)'
        TabOrder = 4
        OnClick = btnBBRegValueClick
      end
      object sbReg: TStatusBar
        Left = 0
        Top = 310
        Width = 530
        Height = 32
        Panels = <
          item
            Width = 50
          end>
        SimplePanel = False
      end
    end
    object tsPMICReg: TTabSheet
      Caption = 'PMIC Register Read/Write'
      ImageIndex = 3
      object lblPMICRegAddr: TLabel
        Left = 48
        Top = 32
        Width = 66
        Height = 13
        Caption = 'Address (Hex)'
      end
      object lblPMICRegAddr0X: TLabel
        Left = 24
        Top = 52
        Width = 11
        Height = 13
        Caption = '0x'
      end
      object lblPMICRegValue0X: TLabel
        Left = 146
        Top = 52
        Width = 11
        Height = 13
        Caption = '0x'
      end
      object edtPMICAddress: TEdit
        Left = 40
        Top = 48
        Width = 81
        Height = 21
        TabOrder = 0
        Text = '3000'
        OnExit = edtPMICAddressCheck
      end
      object btnPMICRegValue: TButton
        Tag = 1
        Left = 160
        Top = 16
        Width = 75
        Height = 25
        Caption = 'Value (Hex)'
        TabOrder = 1
        OnClick = btnPMICRegValueClick
      end
      object edtPMICValue: TEdit
        Left = 160
        Top = 48
        Width = 81
        Height = 21
        TabOrder = 2
        Text = '0'
        OnExit = edtPMICValueCheck
      end
      object btnPMICRegRead: TButton
        Left = 280
        Top = 48
        Width = 65
        Height = 25
        Caption = 'Read'
        TabOrder = 3
        OnClick = btnPMICRegReadClick
      end
      object btnPMICRegWrite: TButton
        Left = 368
        Top = 48
        Width = 65
        Height = 25
        Caption = 'Write'
        TabOrder = 4
        OnClick = btnPMICRegWriteClick
      end
      object m_sbPMIC: TStatusBar
        Left = 0
        Top = 318
        Width = 530
        Height = 24
        Panels = <
          item
            Width = 50
          end>
        SimplePanel = False
      end
      object btnPMICReg: TButton
        Left = 280
        Top = 160
        Width = 185
        Height = 25
        Caption = 'PMIC register setting ...'
        TabOrder = 6
        Visible = False
        OnClick = btnPMICRegClick
      end
    end
    object tsBL: TTabSheet
      Caption = 'Battery Level'
      ImageIndex = 2
      object Label2: TLabel
        Left = 32
        Top = 16
        Width = 3
        Height = 13
      end
      object sbBG: TStatusBar
        Left = 0
        Top = 310
        Width = 530
        Height = 32
        Panels = <
          item
            Width = 50
          end>
        SimplePanel = False
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 513
        Height = 169
        Caption = '  Input  '
        TabOrder = 1
        object Label3: TLabel
          Left = 16
          Top = 32
          Width = 65
          Height = 13
          Alignment = taCenter
          AutoSize = False
          Caption = 'Shutdown '
        end
        object Label4: TLabel
          Left = 152
          Top = 32
          Width = 65
          Height = 13
          Alignment = taCenter
          AutoSize = False
          Caption = 'No MO call'
        end
        object Label5: TLabel
          Left = 280
          Top = 32
          Width = 89
          Height = 13
          AutoSize = False
          Caption = 'Low battery waring'
        end
        object Label6: TLabel
          Left = 16
          Top = 104
          Width = 65
          Height = 13
          Alignment = taCenter
          AutoSize = False
          Caption = 'Level 1'
        end
        object Label7: TLabel
          Left = 152
          Top = 104
          Width = 65
          Height = 13
          Alignment = taCenter
          AutoSize = False
          Caption = 'Leve 2'
        end
        object Label8: TLabel
          Left = 288
          Top = 104
          Width = 65
          Height = 13
          Alignment = taCenter
          AutoSize = False
          Caption = 'Level 3'
        end
        object Label9: TLabel
          Left = 88
          Top = 48
          Width = 13
          Height = 13
          Caption = 'uV'
        end
        object Label10: TLabel
          Left = 224
          Top = 48
          Width = 13
          Height = 13
          Caption = 'uV'
        end
        object Label11: TLabel
          Left = 360
          Top = 48
          Width = 13
          Height = 13
          Caption = 'uV'
        end
        object Label12: TLabel
          Left = 88
          Top = 120
          Width = 13
          Height = 13
          Caption = 'uV'
        end
        object Label13: TLabel
          Left = 224
          Top = 120
          Width = 13
          Height = 13
          Caption = 'uV'
        end
        object Label14: TLabel
          Left = 360
          Top = 120
          Width = 13
          Height = 13
          Caption = 'uV'
        end
        object edtBGShutdown: TEdit
          Left = 16
          Top = 48
          Width = 65
          Height = 21
          TabOrder = 0
          Text = '0'
          OnExit = edtBatteryLevelVoltageCheck
        end
        object edtBGNoMoCall: TEdit
          Tag = 1
          Left = 152
          Top = 48
          Width = 65
          Height = 21
          TabOrder = 1
          Text = '0'
          OnExit = edtBatteryLevelVoltageCheck
        end
        object edtBGLowBatteryWarning: TEdit
          Tag = 2
          Left = 288
          Top = 48
          Width = 65
          Height = 21
          TabOrder = 2
          Text = '0'
          OnExit = edtBatteryLevelVoltageCheck
        end
        object edtBGLevel1: TEdit
          Tag = 3
          Left = 16
          Top = 120
          Width = 65
          Height = 21
          TabOrder = 3
          Text = '0'
          OnExit = edtBatteryLevelVoltageCheck
        end
        object edtBGLevel2: TEdit
          Tag = 4
          Left = 152
          Top = 120
          Width = 65
          Height = 21
          TabOrder = 4
          Text = '0'
          OnExit = edtBatteryLevelVoltageCheck
        end
        object edtBGLevel3: TEdit
          Tag = 5
          Left = 288
          Top = 120
          Width = 65
          Height = 21
          TabOrder = 5
          Text = '0'
          OnExit = edtBatteryLevelVoltageCheck
        end
      end
      object btnBGUploadFromFlash: TButton
        Left = 8
        Top = 187
        Width = 100
        Height = 25
        Caption = 'Upload from flash'
        TabOrder = 2
        OnClick = btnBGUploadFromFlashClick
      end
      object btnBGDownloadToFlash: TButton
        Left = 122
        Top = 187
        Width = 100
        Height = 25
        Caption = 'Download to flash'
        TabOrder = 3
        OnClick = btnBGDownloadToFlashClick
      end
      object btnBGChangeDB: TButton
        Left = 236
        Top = 187
        Width = 100
        Height = 25
        Caption = 'Change NVRAM DB'
        TabOrder = 4
        OnClick = btnBGChangeDBClick
      end
      object btnBGLoadFromFile: TButton
        Left = 350
        Top = 187
        Width = 80
        Height = 25
        Caption = 'Load from file'
        TabOrder = 5
        OnClick = btnBGLoadFromFileClick
      end
      object btnBGSaveToFile: TButton
        Left = 440
        Top = 187
        Width = 80
        Height = 25
        Caption = 'Save to file'
        TabOrder = 6
        OnClick = btnBGSaveToFileClick
      end
    end
    object tsLED: TTabSheet
      Caption = 'LED'
      ImageIndex = 4
      object Label17: TLabel
        Left = 40
        Top = 24
        Width = 113
        Height = 13
        Caption = 'LED light level (Keypad)'
      end
      object Label25: TLabel
        Left = 6
        Top = 72
        Width = 148
        Height = 13
        Caption = 'LED light level (Main/Sub LCD)'
      end
      object m_edtKeypadLED: TEdit
        Left = 160
        Top = 24
        Width = 81
        Height = 21
        TabOrder = 0
        Text = '0'
        OnExit = edtLEDLightLevelCheck
      end
      object m_btnKeypadLEDSet: TButton
        Left = 248
        Top = 24
        Width = 75
        Height = 25
        Caption = 'Set'
        TabOrder = 1
        OnClick = m_btnKeypadLEDSetClick
      end
      object m_sbLED: TStatusBar
        Left = 0
        Top = 312
        Width = 530
        Height = 30
        Panels = <
          item
            Width = 50
          end>
        SimplePanel = False
      end
      object m_edtMainLCD: TEdit
        Left = 160
        Top = 68
        Width = 81
        Height = 21
        TabOrder = 3
        Text = '0'
        OnExit = m_edtMainLCDCheck
      end
      object m_btnMainLCDSet: TButton
        Left = 248
        Top = 68
        Width = 75
        Height = 25
        Caption = 'Set'
        TabOrder = 4
        OnClick = m_btnMainLCDSetClick
      end
    end
    object tsVBR: TTabSheet
      Caption = 'Vibrator'
      ImageIndex = 5
      object btnVBROn: TButton
        Left = 64
        Top = 24
        Width = 75
        Height = 25
        Caption = 'Turn on'
        TabOrder = 0
        OnClick = btnVBROnClick
      end
      object btnVBROff: TButton
        Left = 152
        Top = 24
        Width = 75
        Height = 25
        Caption = 'Turn off'
        TabOrder = 1
        OnClick = btnVBROffClick
      end
      object m_sbVBR: TStatusBar
        Left = 0
        Top = 312
        Width = 530
        Height = 30
        Panels = <
          item
            Width = 50
          end>
        SimplePanel = False
      end
    end
    object tsRTC: TTabSheet
      Caption = 'RTC'
      ImageIndex = 6
      object Label18: TLabel
        Left = 32
        Top = 8
        Width = 22
        Height = 13
        Caption = 'Year'
      end
      object Label19: TLabel
        Left = 240
        Top = 8
        Width = 63
        Height = 13
        Caption = 'Day of Week'
      end
      object Label20: TLabel
        Left = 112
        Top = 8
        Width = 30
        Height = 13
        Caption = 'Month'
      end
      object Label21: TLabel
        Left = 184
        Top = 8
        Width = 19
        Height = 13
        Caption = 'Day'
      end
      object Label22: TLabel
        Left = 32
        Top = 56
        Width = 23
        Height = 13
        Caption = 'Hour'
      end
      object Label23: TLabel
        Left = 104
        Top = 56
        Width = 32
        Height = 13
        Caption = 'Minute'
      end
      object Label24: TLabel
        Left = 192
        Top = 56
        Width = 19
        Height = 13
        Caption = 'Sec'
      end
      object edtRTCYear: TEdit
        Left = 16
        Top = 24
        Width = 57
        Height = 21
        ReadOnly = True
        TabOrder = 0
        OnExit = edtRTCYearCheck
      end
      object edtRTCWDay: TEdit
        Left = 245
        Top = 24
        Width = 57
        Height = 21
        ReadOnly = True
        TabOrder = 1
        OnExit = edtRTCWDayCheck
      end
      object edtRTCMonth: TEdit
        Left = 93
        Top = 24
        Width = 57
        Height = 21
        ReadOnly = True
        TabOrder = 2
        OnExit = edtRTCMonthCheck
      end
      object edtRTCDay: TEdit
        Left = 170
        Top = 24
        Width = 57
        Height = 21
        ReadOnly = True
        TabOrder = 3
        OnExit = edtRTCDayCheck
      end
      object edtRTCWHour: TEdit
        Left = 16
        Top = 72
        Width = 57
        Height = 21
        ReadOnly = True
        TabOrder = 4
        OnExit = edtRTCHourCheck
      end
      object edtRTCMinute: TEdit
        Left = 93
        Top = 72
        Width = 57
        Height = 21
        ReadOnly = True
        TabOrder = 5
        OnExit = edtRTCMinuteCheck
      end
      object edtRTCSec: TEdit
        Left = 170
        Top = 72
        Width = 57
        Height = 21
        ReadOnly = True
        TabOrder = 6
        OnExit = edtRTCSecCheck
      end
      object btnRTCQuery: TButton
        Left = 384
        Top = 24
        Width = 75
        Height = 25
        Caption = 'Query'
        TabOrder = 7
        OnClick = btnRTCQueryClick
      end
      object m_sbRTC: TStatusBar
        Left = 0
        Top = 312
        Width = 530
        Height = 30
        Panels = <
          item
            Width = 50
          end>
        SimplePanel = False
      end
    end
  end
  object lblHint: TStaticText
    Left = 488
    Top = 64
    Width = 33
    Height = 17
    BorderStyle = sbsSingle
    Caption = 'lblHint'
    Color = clYellow
    ParentColor = False
    TabOrder = 1
    Visible = False
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'ini'
    Filter = 
      'Ini file (*.ini)|*.ini|Cal file (*.cal)|*.cal|All files (*.*)|*.' +
      '*'
    InitialDir = '.'
    Title = 'Open ini file'
    Left = 452
    Top = 64
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'ini'
    Filter = 
      'Ini file (*.ini)|*.ini|Cal file (*.cal)|*.cal|All files (*.*)|*.' +
      '*'
    InitialDir = '.'
    Title = 'Save to ini file'
    Left = 412
    Top = 64
  end
  object HintTimer: TTimer
    Enabled = False
    Interval = 4000
    OnTimer = HintTimerTimer
    Left = 376
    Top = 64
  end
end

						