main.lfm

object frmMain: TfrmMain
  Left = 0
  Height = 518
  Top = 250
  Width = 1167
  BorderStyle = bsSizeToolWin
  Caption = 'Event Log Viewer'
  ClientHeight = 518
  ClientWidth = 1167
  KeyPreview = True
  Menu = MainMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  object StatusBar1: TStatusBar
    Left = 0
    Height = 23
    Top = 495
    Width = 1167
    Panels = <    
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object vtEventLog: TVirtualStringTree
    Left = 0
    Height = 406
    Top = 0
    Width = 1167
    Align = alClient
    BorderStyle = bsNone
    DefaultText = 'Node'
    Header.AutoSizeIndex = 0
    Header.Columns = <    
      item
        Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus, coEditable]
        Position = 0
        Text = 'Source'
        Width = 150
      end    
      item
        Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus, coEditable]
        Position = 1
        Text = 'Date and Time'
        Width = 120
      end    
      item
        Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus, coEditable]
        Position = 2
        Text = 'Message'
        Width = 1500
      end>
    Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible]
    PopupMenu = PopupMenu1
    TabOrder = 1
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes, toAutoChangeScale]
    TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
    TreeOptions.SelectionOptions = [toFullRowSelect, toAlwaysSelectNode]
    OnBeforeCellPaint = vtEventLogBeforeCellPaint
    OnDblClick = vtEventLogDblClick
    OnFocusChanged = vtEventLogFocusChanged
    OnFreeNode = vtEventLogFreeNode
    OnGetText = vtEventLogGetText
  end
  object pnlDescription: TPanel
    Left = 0
    Height = 84
    Top = 411
    Width = 1167
    Align = alBottom
    BevelOuter = bvNone
    Caption = 'pnlDescription'
    ClientHeight = 84
    ClientWidth = 1167
    TabOrder = 2
    object Memo1: TMemo
      Left = 0
      Height = 84
      Top = 0
      Width = 1167
      Align = alClient
      BorderStyle = bsNone
      ScrollBars = ssAutoBoth
      TabOrder = 0
    end
  end
  object Splitter1: TSplitter
    Cursor = crVSplit
    Left = 0
    Height = 5
    Top = 406
    Width = 1167
    Align = alBottom
    ResizeAnchor = akBottom
  end
  object Timer1: TTimer
    Interval = 500
    OnTimer = Timer1Timer
    left = 588
    top = 141
  end
  object MainMenu1: TMainMenu
    left = 209
    top = 96
    object MenuItem1: TMenuItem
      Caption = 'File'
      object MenuItem2: TMenuItem
        Action = acApplicationLog
      end
      object MenuItem21: TMenuItem
        Action = acSystemLog
      end
      object MenuItem22: TMenuItem
        Action = acSecurityLog
      end
      object MenuItem23: TMenuItem
        Caption = '-'
      end
      object MenuItem3: TMenuItem
        Action = acOpenFile
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object MenuItem4: TMenuItem
        Action = acSaveLog
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object MenuItem5: TMenuItem
        Action = acExit
      end
    end
    object MenuItem6: TMenuItem
      Caption = 'Search'
      object MenuItem7: TMenuItem
        Action = acGotoTime
      end
      object MenuItem8: TMenuItem
        Action = acFind
      end
      object MenuItem10: TMenuItem
        Caption = '-'
      end
      object MenuItem9: TMenuItem
        Action = acFilter
      end
    end
    object MenuItem11: TMenuItem
      Caption = 'View'
      object MenuItem12: TMenuItem
        Action = acOnTop
        AutoCheck = True
      end
      object MenuItem24: TMenuItem
        Action = acShowMenu
        AutoCheck = True
      end
      object MenuItem13: TMenuItem
        Action = acShowHeaders
        AutoCheck = True
      end
      object MenuItem14: TMenuItem
        Action = acShowStatus
        AutoCheck = True
      end
      object MenuItem15: TMenuItem
        Action = acShowDescription
        AutoCheck = True
      end
      object N3: TMenuItem
        Caption = '-'
        object MenuItem17: TMenuItem
          Caption = 'MenuItem17'
        end
      end
      object MenuItem16: TMenuItem
        Action = acView1_2
      end
      object MenuItem18: TMenuItem
        Action = acView1_3
      end
      object MenuItem19: TMenuItem
        Action = acView1_4
      end
      object MenuItem20: TMenuItem
        Action = acView1_6
      end
    end
  end
  object ActionList1: TActionList
    left = 428
    top = 175
    object acSystemLog: TAction
      Category = 'File'
      Caption = 'System Log'
      OnExecute = acSystemLogExecute
    end
    object acOpenFile: TAction
      Category = 'File'
      Caption = 'Open File ...'
      OnExecute = acOpenFileExecute
    end
    object acSaveLog: TAction
      Category = 'File'
      Caption = 'Save Log'
    end
    object acClearLog: TAction
      Category = 'File'
      Caption = 'Clear Log'
      OnExecute = acClearLogExecute
    end
    object acExit: TAction
      Category = 'File'
      Caption = 'Exit'
      OnExecute = acExitExecute
    end
    object acGotoTime: TAction
      Category = 'Search'
      Caption = 'Goto To Time ...'
    end
    object acFind: TAction
      Category = 'Search'
      Caption = 'Find Text ...'
    end
    object acFilter: TAction
      Category = 'Search'
      Caption = 'Filter ...'
    end
    object acSetTimeZone: TAction
      Category = 'View'
      AutoCheck = True
      Caption = 'Set Time Zone ...'
    end
    object acOnTop: TAction
      Category = 'View'
      AutoCheck = True
      Caption = 'On Top'
      OnExecute = acOnTopExecute
    end
    object acShowHeaders: TAction
      Category = 'View'
      AutoCheck = True
      Caption = 'Show Headers'
      Checked = True
      OnExecute = acShowHeadersExecute
      ShortCut = 16456
    end
    object acShowStatus: TAction
      Category = 'View'
      AutoCheck = True
      Caption = 'Show Status'
      Checked = True
      OnExecute = acShowStatusExecute
      ShortCut = 16467
    end
    object acShowDescription: TAction
      Category = 'View'
      AutoCheck = True
      Caption = 'Show Description'
      Checked = True
      OnExecute = acShowDescriptionExecute
      ShortCut = 16452
    end
    object acView1_6: TAction
      Category = 'View'
      Caption = '1/6 of Display'
      OnExecute = acView1_6Execute
      ShortCut = 32891
    end
    object acView1_4: TAction
      Category = 'View'
      Caption = '1/4 of Display'
      OnExecute = acView1_4Execute
      ShortCut = 16507
    end
    object acView1_3: TAction
      Category = 'View'
      Caption = '1/3 of Display'
      OnExecute = acView1_3Execute
      ShortCut = 8315
    end
    object acView1_2: TAction
      Category = 'View'
      Caption = '1/2 of Display'
      OnExecute = acView1_2Execute
      ShortCut = 123
    end
    object acApplicationLog: TAction
      Category = 'File'
      Caption = 'Application Log'
      OnExecute = acApplicationLogExecute
    end
    object acSecurityLog: TAction
      Category = 'File'
      Caption = 'Security Log'
      OnExecute = acSecurityLogExecute
    end
    object acShowMenu: TAction
      Category = 'View'
      AutoCheck = True
      Caption = 'ShowMenu'
      Checked = True
      OnExecute = acShowMenuExecute
      ShortCut = 16461
    end
  end
  object PopupMenu1: TPopupMenu
    left = 340
    top = 109
    object MenuItem25: TMenuItem
      Caption = 'View'
      object MenuItem26: TMenuItem
        Action = acShowMenu
        AutoCheck = True
      end
      object MenuItem27: TMenuItem
        Action = acShowHeaders
        AutoCheck = True
      end
      object MenuItem28: TMenuItem
        Action = acShowStatus
        AutoCheck = True
      end
      object MenuItem29: TMenuItem
        Action = acShowDescription
        AutoCheck = True
      end
    end
  end
end