VMSCommServer/SRC/LIB/FrmVmsLogF.dfm

object FrmVmsLog: TFrmVmsLog
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'VMS '#47196#44536
  ClientHeight = 612
  ClientWidth = 329
  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
  Position = poOwnerFormCenter
  ShowHint = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object plServerInfo: TPanel
    AlignWithMargins = True
    Left = 2
    Top = 2
    Width = 325
    Height = 610
    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 = 321
      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 = '  VMS '#47196#44536
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
      object btnClear: TButton
        Left = 227
        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 = 1
        OnClick = btnClearClick
      end
      object btnCopy: TButton
        Left = 274
        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 = 2
        OnClick = btnCopyClick
      end
    end
    object PgLog: TPageControl
      Left = 0
      Top = 25
      Width = 321
      Height = 581
      ActivePage = TabLog
      Align = alClient
      TabOrder = 1
      object TabTraf: TTabSheet
        Caption = ' Traf '
        object reTrf: TMemo
          Left = 0
          Top = 0
          Width = 313
          Height = 553
          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 = 0
          WordWrap = False
        end
      end
      object TabLog: TTabSheet
        Caption = ' '#47196#44536' '
        ImageIndex = 1
        object reLog: TMemo
          Left = 0
          Top = 0
          Width = 313
          Height = 553
          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 = 0
          WordWrap = False
        end
      end
    end
  end
end