VmsCommServer/SRC/LIB/FrmCommLogF.dfm

object FrmCommLog: TFrmCommLog
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #53685#49888' '#47196#44536
  ClientHeight = 610
  ClientWidth = 821
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Icon.Data = {
    000001000100100F000000000000540500001600000028000000100000001E00
    000001000800000000002C01000000000000000000000000000000000000FFFF
    FF00F1F3F300FFF1E100FFF2D400FFF0CE00FFECDC00FFEDD200FEE0D200FFE5
    C400FFDBC100E2DFDB00EADEC900FCD3BD00FFD4B000FECEB200EFCAAC00EEC0
    A100FCB69B00F9B59500FFAC9A00FCA19700FCAE8500E2B59300EEAB8C00E4A2
    8800E2A48500E9969A00E39D9B00C6B8AA00DDA08700D4A28500CC9EA800D398
    8200A9C5D30089E3FF0085EAFF0087E5FF008AD2F20085D5FA0086D2F30088D1
    EF0088CFF00087CFEF0098AEC1008EBCD600BFB3A800B2A1980098B5A600DCAE
    7E00DCA47E00CCA97500D69A7C00CC9B7F00C9917A00CF927600C4927900CC8F
    7700C68B7300CC896A00C4876B00BC967F00BC8C7100B9856C00B5806300B682
    5700C5756600DA773800DB6C3600C56C3900C6622A00B17E6400B2746200B46F
    5600A3614000955E4600815B4A0081574D00BC6B3700B5693C00A8703800A172
    3300A0742A00AE6C3B00B05627007BFFFF0070FBFF007CE2FF007ADAFF007FD4
    FD0075DAFF0074D2FF007ACFEE006EDDFF0068D2FF0062CEFF0045CAFF007BBE
    E0007CB2D10074B8DC007DB8CD007AACCA007BABC50044B7EE0073A4BD007960
    4F007F7532000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000FFFFFF006A6A
    6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A684B6A6A6A
    6A6A6A6A6A6A4C4944433A39336A6A6A6A6A4A5345424D3D2E2B3C3E376A6A48
    38404E1C212C5B565655343B1E6A6A46526554595726262727573336166A6A3F
    5267232A2829252827593133106A6A3D5265242527252525275931190E6A6A35
    4F6422252525252527573117096A6A205061222525252525265C3012066A6A1D
    51602426585A5E5D5E5F3215036A6A1869665762632F2D1F1B13110C006A6A38
    47411A14110D060205050000006A6A0F080405070B0A6A6A6A6A6A6A6A6A6A6A
    6A6A6A6A6A6A6A6A6A6A6A6A6A6AFFF80000FF000000F0000000800000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000001000080FF0000}
  OldCreateOrder = False
  ShowHint = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object plServerInfo: TPanel
    AlignWithMargins = True
    Left = 2
    Top = 82
    Width = 817
    Height = 528
    Margins.Left = 2
    Margins.Top = 2
    Margins.Right = 2
    Margins.Bottom = 0
    Align = alClient
    Alignment = taLeftJustify
    BevelKind = bkSoft
    BevelOuter = bvNone
    ParentBackground = False
    ParentColor = True
    TabOrder = 0
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 813
      Height = 25
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 185
        Height = 25
        Align = alLeft
        Alignment = taLeftJustify
        BevelOuter = bvNone
        Caption = '  '#53685#49888' '#47196#44536
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
      object chkLogPause: TCheckBox
        Left = 652
        Top = 0
        Width = 67
        Height = 25
        Cursor = crHandPoint
        Hint = 'Log Message Display pause/start'
        Align = alRight
        Caption = 'Pause'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object btnClear: TButton
        Left = 719
        Top = 0
        Width = 47
        Height = 25
        Cursor = crHandPoint
        Hint = 'Log Message Clear'
        Align = alRight
        Caption = 'Clear'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = btnClearClick
      end
      object btnCopy: TButton
        Left = 766
        Top = 0
        Width = 47
        Height = 25
        Cursor = crHandPoint
        Hint = 'Log Message Copy To Clipboard'
        Align = alRight
        Caption = 'Copy'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = btnCopyClick
      end
      object chkServer: TCheckBox
        Left = 458
        Top = 0
        Width = 97
        Height = 25
        Cursor = crHandPoint
        Align = alRight
        Caption = 'Send'
        Checked = True
        State = cbChecked
        TabOrder = 4
        Visible = False
      end
      object chkClient: TCheckBox
        Left = 555
        Top = 0
        Width = 97
        Height = 25
        Cursor = crHandPoint
        Align = alRight
        Caption = 'Recv'
        Checked = True
        State = cbChecked
        TabOrder = 5
        Visible = False
      end
    end
    object reMsg: TMemo
      Left = 0
      Top = 25
      Width = 813
      Height = 499
      Align = alClient
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Hack'
      Font.Style = []
      ImeName = 'Microsoft IME 2010'
      Lines.Strings = (
        'Local mode          (Remote mode=0, Local mode=1): %d", status.'
        'Module power                  (normal=0, fault=1): %d", status.'
        'Signboard power                     (off=0, on=1): %d", status.'
        'Door                            (open=0, close=1): %d", status.'
        'Fan                                 (off=0, on=1): %d", status.'
        'Luminance mode(00:'#51088#46041', 01:'#51452#44036#49688#46041', 02:'#50556#44036#49688#46041'): %d", status.'
        '')
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 1
      WordWrap = False
    end
  end
  object Panel4: TPanel
    AlignWithMargins = True
    Left = 2
    Top = 0
    Width = 817
    Height = 78
    Margins.Left = 2
    Margins.Top = 0
    Margins.Right = 2
    Margins.Bottom = 2
    Align = alTop
    BevelKind = bkSoft
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 1
    object Panel6: TPanel
      AlignWithMargins = True
      Left = 2
      Top = 2
      Width = 809
      Height = 26
      Margins.Left = 2
      Margins.Top = 2
      Margins.Right = 2
      Margins.Bottom = 2
      Align = alTop
      Alignment = taLeftJustify
      BevelKind = bkSoft
      BevelOuter = bvNone
      Caption = '       Log Options'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentBackground = False
      ParentColor = True
      ParentFont = False
      TabOrder = 0
      object Image2: TImage
        Left = 7
        Top = 6
        Width = 9
        Height = 9
        Picture.Data = {
          07544269746D617032010000424D320100000000000036000000280000000900
          0000090000000100180000000000FC000000C30E0000C30E0000000000000000
          00000000FF0000FF0000FF0092FF0092FF0092FF0000FF0000FF0000FF000000
          FF0092FF0092FF46AFFD46AFFD46AFFD0092FF0092FF0000FF000000FF0092FF
          46AFFD46AFFDFFFFFF46AFFD46AFFD0092FF0000FF000092FF46AFFD46AFFD46
          AFFDFFFFFF46AFFD46AFFD46AFFD0092FF000092FF46AFFDFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFF46AFFD0092FF000092FF46AFFD46AFFD46AFFDFFFFFF46AFFD
          46AFFD46AFFD0092FF000000FF0092FF46AFFD46AFFDFFFFFF46AFFD46AFFD00
          92FF0000FF000000FF0092FF0092FF46AFFD46AFFD46AFFD0092FF0092FF0000
          FF000000FF0000FF0000FF0092FF0092FF0092FF0000FF0000FF0000FF00}
        Transparent = True
      end
    end
    object chkInfo: TCheckBox
      Left = 15
      Top = 37
      Width = 97
      Height = 17
      Cursor = crHandPoint
      Caption = ' Information'
      TabOrder = 1
    end
    object chkData: TCheckBox
      Left = 283
      Top = 37
      Width = 73
      Height = 17
      Cursor = crHandPoint
      Caption = ' Data'
      TabOrder = 2
    end
    object chkDetail: TCheckBox
      Left = 443
      Top = 37
      Width = 72
      Height = 17
      Cursor = crHandPoint
      Caption = ' Detail'
      TabOrder = 3
      Visible = False
    end
    object chkError: TCheckBox
      Left = 116
      Top = 37
      Width = 69
      Height = 17
      Cursor = crHandPoint
      Caption = ' Error'
      TabOrder = 4
    end
    object chkWarning: TCheckBox
      Left = 188
      Top = 37
      Width = 73
      Height = 17
      Cursor = crHandPoint
      Caption = ' Warning'
      TabOrder = 5
    end
    object chkDebug: TCheckBox
      Left = 360
      Top = 37
      Width = 72
      Height = 17
      Cursor = crHandPoint
      Caption = ' Debug'
      TabOrder = 6
    end
    object btnSetLog: TButton
      Left = 515
      Top = 33
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Caption = #49444#51221
      TabOrder = 7
      OnClick = btnSetLogClick
    end
  end
end