object SQLMonitor: TSQLMonitor
  Left = 198
  Top = 115
  Width = 483
  Height = 264
  Caption = 'SQL Monitor'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu
  PopupMenu = PopupMenu
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 475
    Height = 32
    Align = alTop
    BevelOuter = bvNone
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object PauseButton: TSpeedButton
      Left = 91
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Pause Trace'
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333388888338888833300000830000083330BBB0830BBB083330B7B0830B7B
        083330BBB0830BBB0833307B708307B7083330BBB0830BBB083330B7B0830B7B
        083330BBB0830BBB0833307B708307B7083330BBB0830BBB083330B7B0830B7B
        083330BBB0830BBB083330000033000003333333333333333333}
      OnClick = ToggleTraceEnabled
    end
    object SaveButton: TSpeedButton
      Left = 8
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Save'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003333333300000000000300003333333308777777770300003333
        33330F88888887030000333333330F99888887030000333333330FFFFFFFF803
        0000333333330000000000030000333333333333333333330000333333333333
        33300333000033333333333333000033000030000000000030000003000030F8
        8888888033300333000030F88888888033300333000030F88888888033700333
        000030F88888888030007333000030F88888888030073333000030FFFFFFFFF0
        33333333000030CCCCCCCCC03333333300003000000000003333333300003333
        33333333333333330000}
      OnClick = LogSave
    end
    object CopyButton: TSpeedButton
      Left = 33
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Copy'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        0400000000009001000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333000033333330000000000333000033333330FFFFFFFF033300003333
        3330BFBFBFBF0333000033333330F777777F0333000033333330BFBFBFBF0333
        000033000000F777777F03330000330FFFF0BFBFBFBF03330000330FFFF0F777
        777F03330000330F8880BFBFBFBF03330000330FFFF0FFFFFF0003330000330F
        8880BFBFBF0033330000330FFFF00000000333330000330F888888F033333333
        0000330FFFFFFFF0333333330000330FFFFFF000333333330000330FFFFFF003
        3333333300003300000000333333333300003333333333333333333300003333
        33333333333333330000}
      OnClick = LogCopy
    end
    object ClearButton: TSpeedButton
      Left = 58
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Clear'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        0400000000009001000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333000033333333333333333333000030000000000000000003000030FF
        FFFFFFFFFFFFFF03000030FFFFFFFFFFFFFFFF03000030FFFFFF7111F0000F03
        000030FFFFF79DD51FFFFF03000030FFFFF9D9DD51F00F03000030FFFFFD9F9D
        D50FFF03000030F000F9DFD9D060FF03000030FFFFFF9DFD02460303000030F0
        000FF9D0A2246003000030FFFFFFFF0ABA220703000030F000000FF0ABA04773
        000030FFFFFFFFFF0A08B4730000300000000000008FBB4300003080CCCCCCCC
        CC0FFBB300003000000000000000FFB3000033333333333333330FF300003333
        33333333333333330000}
      OnClick = LogClear
    end
    object OptionsButton: TSpeedButton
      Left = 141
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Trace Options...'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        0400000000009001000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333000033333333333333333333000030000000000000000003000030FF
        FFFFFFFFFFFFFF03000030FFF0FFFFFFFFFFFF03000030FF000FFFFFFFFFFF03
        000030F00F00FFFFFFFFFF03000030FFFFF00FFFFFFFFF03000030FFFFFF00FF
        FFFFFF03000030FFF0FFFFFFFFFFFF03000030FF000FFFFFFFFFFF03000030F0
        0F00FFFFFFFFFF03000030FFFFF00FFFFFFFFF03000030FFFFFF00FFFFFFFF03
        000030FFFFFFFFFFFFFFFF0300003000000000000000000300003080CCCCCCCC
        CC08080300003000000000000000000300003333333333333333333300003333
        33333333333333330000}
      OnClick = ShowTraceOptions
    end
    object OnTopButton: TSpeedButton
      Left = 116
      Top = 5
      Width = 25
      Height = 25
      Hint = 'Always on Top'
      AllowAllUp = True
      GroupIndex = 2
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        0400000000009001000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003333333333333333333300003330000000000000003300003330
        80FFFFF8FFFFF03300003330F0888888888880330000333080FFFFF8FFFFF033
        00003330F0888888888880330000333080FFFFF8FFFFF0330000300000000000
        88888033000030F888888880FFFFF033000030F88888888000000033000030F8
        88888880F8888033000030F88888888000000033000030F88888888033333333
        000030FFFFFFFFF033333333000030CCCCCCCCC0333333330000300000000000
        3333333300003333333333333333333300003333333333333333333300003333
        33333333333333330000}
      OnClick = ToggleAlwasyOnTop
    end
    object ShowTraceButton: TSpeedButton
      Left = 194
      Top = 5
      Width = 25
      Height = 25
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333333FFFF3333FFFF33333330000333300003333333377
        77FF337777FF33333033360330333603333F37F3377F37F3377F330330FFF303
        30F3F303337337F3337F37F3337F303330FFF303303FF30337F337F3337FF7F3
        337F3033303FF307703FF30337F337FFFF7777FFFF7F30330700003000000073
        37F377777737777777733030733333333033073337F773333333373F77333707
        3333333333003333377733333333337733333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      Visible = False
      OnClick = ShowTraceButtonClick
    end
    object ClearTraceButton: TSpeedButton
      Left = 220
      Top = 5
      Width = 25
      Height = 25
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333333333333333FFFFFFFFFFFFF
        FFF3338888888888888888333388888888888888883F38BFBFBFBFBFBFBFBF83
        38F3333FFFFFFFFFFF8F38FBFB00000000000B8338F33388888888888F8F38BF
        BF09999999990F8338F3338F333333338F8F38FBFB09999999990B8338F3338F
        333333338F8F38BFBF09999999990F8338F3338FFFFFFFFF8F8F38FBFB000000
        00000B8338F3338888888888838F38BFBFBFBFBFBFBFBF8338F3333333333333
        338F38FBFBFBFBFBFBFBFB8338F3333333333333338F38BFBFBFBFBFBFBFBF83
        38F3333333333333338F38FBFBFBFBFBFBFBFB8338F3333333333333338F38BF
        BFBFBFBFBFBFBF8338F3333333333333338F38FBFBFBFBFBFBFBFB8338FFFFFF
        F3333333338F38888888BFBFBFBFBF83388888883FFFFFFFFF8338FBFBFB8888
        88888833383FFFFF888888888833338888883333333333333388888833333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      Visible = False
      OnClick = ClearTraceButtonClick
    end
    object ToolBarBevel: TBevel
      Left = 0
      Top = 0
      Width = 475
      Height = 2
      Align = alTop
      Shape = bsTopLine
    end
  end
  object LogPanel: TPanel
    Left = 0
    Top = 32
    Width = 475
    Height = 165
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object LogGrid: TDrawGrid
      Left = 0
      Top = 0
      Width = 475
      Height = 102
      Align = alClient
      ColCount = 3
      DefaultColWidth = 35
      DefaultRowHeight = 16
      FixedCols = 0
      RowCount = 2
      GridLineWidth = 0
      Options = [goFixedHorzLine, goRangeSelect, goDrawFocusSelected, goRowSelect, goThumbTracking]
      TabOrder = 0
      OnClick = LogGridClick
      OnDblClick = ToggleSQLWindow
      OnDragOver = SplitterDragOver
      OnDrawCell = LogGridDrawCell
      OnEnter = ResetLogSelection
      ColWidths = (
        74
        94
        300)
    end
    object SQLTextWindow: TMemo
      Left = 0
      Top = 105
      Width = 475
      Height = 60
      Align = alBottom
      PopupMenu = PopupMenu
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 2
      Visible = False
      OnDragOver = SplitterDragOver
      OnEnter = ResetLogSelection
    end
    object Splitter: TPanel
      Left = 0
      Top = 102
      Width = 475
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      BevelOuter = bvNone
      DragCursor = crVSplit
      DragMode = dmAutomatic
      TabOrder = 1
      Visible = False
      OnDragOver = SplitterDragOver
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 197
    Width = 475
    Height = 21
    Panels = <
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object MainMenu: TMainMenu
    Left = 405
    Top = 149
    object miFile: TMenuItem
      Caption = '&File'
      ShortCut = 0
      OnClick = FileMenuClick
      object miFileSaveLog: TMenuItem
        Caption = '&Save Log...'
        ShortCut = 0
        OnClick = LogSave
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object miFileExit: TMenuItem
        Caption = '&Exit'
        ShortCut = 0
        OnClick = FileExit
      end
    end
    object miEdit: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      OnClick = EditMenuClick
      object miEditCopy: TMenuItem
        Caption = '&Copy'
        ShortCut = 0
        OnClick = LogCopy
      end
      object miEditClearLog: TMenuItem
        Caption = 'Cl&ear Log'
        ShortCut = 0
        OnClick = LogClear
      end
      object miEditSelectAll: TMenuItem
        Caption = '&Select All'
        ShortCut = 0
        OnClick = LogSelectAll
      end
    end
    object miView: TMenuItem
      Caption = '&View'
      ShortCut = 0
      OnClick = ViewMenuClick
      object miViewSQLTextWindow: TMenuItem
        Caption = 'SQL Text &Window'
        ShortCut = 16471
        OnClick = ToggleSQLWindow
      end
      object miViewToolBar: TMenuItem
        Caption = '&Tool Bar'
        ShortCut = 0
        OnClick = ToggleToolBar
      end
      object miViewStatusBar: TMenuItem
        Caption = 'Status Ba&r'
        ShortCut = 0
        OnClick = ToggleStatusBar
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object miViewColumns: TMenuItem
        Caption = '&Columns'
        ShortCut = 0
        object miViewRefNo: TMenuItem
          Caption = 'Re&ference Number'
          ShortCut = 0
          OnClick = ViewRefNoClick
        end
        object miViewTimeStamp: TMenuItem
          Caption = 'T&ime Stamp'
          ShortCut = 0
          OnClick = ViewTimeStampClick
        end
      end
      object miViewHints: TMenuItem
        Caption = 'Tool Bar &Hints'
        ShortCut = 0
        OnClick = ToggleToolTips
      end
    end
    object miClients: TMenuItem
      Caption = '&Clients'
      ShortCut = 0
      OnClick = ClientMenuClick
    end
    object miOptions: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      OnClick = OptionsMenuOpen
      object miTracePaused: TMenuItem
        Caption = 'Trace &Paused'
        ShortCut = 16464
        OnClick = ToggleTraceEnabled
      end
      object miTraceOptions: TMenuItem
        Caption = 'Trace &Options...'
        ShortCut = 16463
        OnClick = ShowTraceOptions
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object miAlwaysOnTop: TMenuItem
        Caption = 'Always on &Top'
        ShortCut = 16468
        OnClick = ToggleAlwasyOnTop
      end
      object miAutoClientSwitch: TMenuItem
        Caption = '&Auto Client Switch'
        ShortCut = 0
        OnClick = miAutoClientSwitchClick
      end
    end
    object miHelp: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object ShowHelpAbout: TMenuItem
        Caption = '&About...'
        ShortCut = 0
        OnClick = ShowHelpAboutClick
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    FileEditStyle = fsEdit
    Filter = 'Text Files (*.txt)|*.txt'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir]
    Title = 'Save Trace Log As'
    Left = 272
    Top = 149
  end
  object PopupMenu: TPopupMenu
    OnPopup = PopupMenuPopup
    Left = 339
    Top = 149
    object miPopupCopy: TMenuItem
      Caption = '&Copy'
      ShortCut = 0
      OnClick = LogCopy
    end
    object miPopupClear: TMenuItem
      Caption = 'C&lear Log'
      ShortCut = 0
      OnClick = LogClear
    end
    object miPopupSelectAll: TMenuItem
      Caption = 'Select &All'
      ShortCut = 0
      OnClick = LogSelectAll
    end
  end
end