home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / SQLMON.EXE / 0 / RCDATA / TSQLMONITOR / TSQLMONITOR.txt < prev   
Text File  |  1997-01-16  |  15KB  |  454 lines
  1. object SQLMonitor: TSQLMonitor
  2.   Left = 198
  3.   Top = 115
  4.   Width = 483
  5.   Height = 264
  6.   Caption = 'SQL Monitor'
  7.   Font.Color = clBlack
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Icon.Data = {<image000.ico>}
  12.   Menu = MainMenu
  13.   PopupMenu = PopupMenu
  14.   OnCreate = FormCreate
  15.   OnDestroy = FormDestroy
  16.   OnHide = FormHide
  17.   OnResize = FormResize
  18.   OnShow = FormShow
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object ToolBar: TPanel
  22.     Left = 0
  23.     Top = 0
  24.     Width = 475
  25.     Height = 32
  26.     Align = alTop
  27.     BevelOuter = bvNone
  28.     ParentShowHint = False
  29.     ShowHint = True
  30.     TabOrder = 0
  31.     object PauseButton: TSpeedButton
  32.       Left = 91
  33.       Top = 5
  34.       Width = 25
  35.       Height = 25
  36.       Hint = 'Pause Trace'
  37.       AllowAllUp = True
  38.       GroupIndex = 1
  39.       Glyph.Data = {
  40.         F6000000424DF600000000000000760000002800000010000000100000000100
  41.         0400000000008000000000000000000000001000000000000000000000000000
  42.         80000080000000808000800000008000800080800000C0C0C000808080000000
  43.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  44.         33333388888338888833300000830000083330BBB0830BBB083330B7B0830B7B
  45.         083330BBB0830BBB0833307B708307B7083330BBB0830BBB083330B7B0830B7B
  46.         083330BBB0830BBB0833307B708307B7083330BBB0830BBB083330B7B0830B7B
  47.         083330BBB0830BBB083330000033000003333333333333333333}
  48.       OnClick = ToggleTraceEnabled
  49.     end
  50.     object SaveButton: TSpeedButton
  51.       Left = 8
  52.       Top = 5
  53.       Width = 25
  54.       Height = 25
  55.       Hint = 'Save'
  56.       Glyph.Data = {
  57.         66010000424D6601000000000000760000002800000014000000140000000100
  58.         040000000000F000000000000000000000001000000010000000000000000000
  59.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  60.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  61.         3333333300003333333300000000000300003333333308777777770300003333
  62.         33330F88888887030000333333330F99888887030000333333330FFFFFFFF803
  63.         0000333333330000000000030000333333333333333333330000333333333333
  64.         33300333000033333333333333000033000030000000000030000003000030F8
  65.         8888888033300333000030F88888888033300333000030F88888888033700333
  66.         000030F88888888030007333000030F88888888030073333000030FFFFFFFFF0
  67.         33333333000030CCCCCCCCC03333333300003000000000003333333300003333
  68.         33333333333333330000}
  69.       OnClick = LogSave
  70.     end
  71.     object CopyButton: TSpeedButton
  72.       Left = 33
  73.       Top = 5
  74.       Width = 25
  75.       Height = 25
  76.       Hint = 'Copy'
  77.       Glyph.Data = {
  78.         66010000424D6601000000000000760000002800000014000000140000000100
  79.         0400000000009001000000000000000000001000000010000000000000000000
  80.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  81.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  82.         33333333000033333330000000000333000033333330FFFFFFFF033300003333
  83.         3330BFBFBFBF0333000033333330F777777F0333000033333330BFBFBFBF0333
  84.         000033000000F777777F03330000330FFFF0BFBFBFBF03330000330FFFF0F777
  85.         777F03330000330F8880BFBFBFBF03330000330FFFF0FFFFFF0003330000330F
  86.         8880BFBFBF0033330000330FFFF00000000333330000330F888888F033333333
  87.         0000330FFFFFFFF0333333330000330FFFFFF000333333330000330FFFFFF003
  88.         3333333300003300000000333333333300003333333333333333333300003333
  89.         33333333333333330000}
  90.       OnClick = LogCopy
  91.     end
  92.     object ClearButton: TSpeedButton
  93.       Left = 58
  94.       Top = 5
  95.       Width = 25
  96.       Height = 25
  97.       Hint = 'Clear'
  98.       Glyph.Data = {
  99.         66010000424D6601000000000000760000002800000014000000140000000100
  100.         0400000000009001000000000000000000001000000010000000000000000000
  101.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  102.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  103.         33333333000033333333333333333333000030000000000000000003000030FF
  104.         FFFFFFFFFFFFFF03000030FFFFFFFFFFFFFFFF03000030FFFFFF7111F0000F03
  105.         000030FFFFF79DD51FFFFF03000030FFFFF9D9DD51F00F03000030FFFFFD9F9D
  106.         D50FFF03000030F000F9DFD9D060FF03000030FFFFFF9DFD02460303000030F0
  107.         000FF9D0A2246003000030FFFFFFFF0ABA220703000030F000000FF0ABA04773
  108.         000030FFFFFFFFFF0A08B4730000300000000000008FBB4300003080CCCCCCCC
  109.         CC0FFBB300003000000000000000FFB3000033333333333333330FF300003333
  110.         33333333333333330000}
  111.       OnClick = LogClear
  112.     end
  113.     object OptionsButton: TSpeedButton
  114.       Left = 141
  115.       Top = 5
  116.       Width = 25
  117.       Height = 25
  118.       Hint = 'Trace Options...'
  119.       Glyph.Data = {
  120.         66010000424D6601000000000000760000002800000014000000140000000100
  121.         0400000000009001000000000000000000001000000010000000000000000000
  122.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  123.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  124.         33333333000033333333333333333333000030000000000000000003000030FF
  125.         FFFFFFFFFFFFFF03000030FFF0FFFFFFFFFFFF03000030FF000FFFFFFFFFFF03
  126.         000030F00F00FFFFFFFFFF03000030FFFFF00FFFFFFFFF03000030FFFFFF00FF
  127.         FFFFFF03000030FFF0FFFFFFFFFFFF03000030FF000FFFFFFFFFFF03000030F0
  128.         0F00FFFFFFFFFF03000030FFFFF00FFFFFFFFF03000030FFFFFF00FFFFFFFF03
  129.         000030FFFFFFFFFFFFFFFF0300003000000000000000000300003080CCCCCCCC
  130.         CC08080300003000000000000000000300003333333333333333333300003333
  131.         33333333333333330000}
  132.       OnClick = ShowTraceOptions
  133.     end
  134.     object OnTopButton: TSpeedButton
  135.       Left = 116
  136.       Top = 5
  137.       Width = 25
  138.       Height = 25
  139.       Hint = 'Always on Top'
  140.       AllowAllUp = True
  141.       GroupIndex = 2
  142.       Glyph.Data = {
  143.         66010000424D6601000000000000760000002800000014000000140000000100
  144.         0400000000009001000000000000000000001000000010000000000000000000
  145.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  146.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  147.         3333333300003333333333333333333300003330000000000000003300003330
  148.         80FFFFF8FFFFF03300003330F0888888888880330000333080FFFFF8FFFFF033
  149.         00003330F0888888888880330000333080FFFFF8FFFFF0330000300000000000
  150.         88888033000030F888888880FFFFF033000030F88888888000000033000030F8
  151.         88888880F8888033000030F88888888000000033000030F88888888033333333
  152.         000030FFFFFFFFF033333333000030CCCCCCCCC0333333330000300000000000
  153.         3333333300003333333333333333333300003333333333333333333300003333
  154.         33333333333333330000}
  155.       OnClick = ToggleAlwasyOnTop
  156.     end
  157.     object ShowTraceButton: TSpeedButton
  158.       Left = 194
  159.       Top = 5
  160.       Width = 25
  161.       Height = 25
  162.       Glyph.Data = {
  163.         06020000424D0602000000000000760000002800000028000000140000000100
  164.         0400000000009001000000000000000000000000000000000000000000000000
  165.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  166.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  167.         3333333333333333333333333333333333333333333333333333333333333333
  168.         3333333333333333333333333333333333333333333333333333333333333333
  169.         3333333333333333333333333333333333333333333333333333333333333333
  170.         33333333333333333333333FFFF3333FFFF33333330000333300003333333377
  171.         77FF337777FF33333033360330333603333F37F3377F37F3377F330330FFF303
  172.         30F3F303337337F3337F37F3337F303330FFF303303FF30337F337F3337FF7F3
  173.         337F3033303FF307703FF30337F337FFFF7777FFFF7F30330700003000000073
  174.         37F377777737777777733030733333333033073337F773333333373F77333707
  175.         3333333333003333377733333333337733333333333333333333333333333333
  176.         3333333333333333333333333333333333333333333333333333333333333333
  177.         3333333333333333333333333333333333333333333333333333333333333333
  178.         3333333333333333333333333333333333333333333333333333333333333333
  179.         33333333333333333333}
  180.       NumGlyphs = 2
  181.       Visible = False
  182.       OnClick = ShowTraceButtonClick
  183.     end
  184.     object ClearTraceButton: TSpeedButton
  185.       Left = 220
  186.       Top = 5
  187.       Width = 25
  188.       Height = 25
  189.       Glyph.Data = {
  190.         06020000424D0602000000000000760000002800000028000000140000000100
  191.         0400000000009001000000000000000000001000000000000000000000000000
  192.         80000080000000808000800000008000800080800000C0C0C000808080000000
  193.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  194.         333333333333333333333333333333333333333333333333333FFFFFFFFFFFFF
  195.         FFF3338888888888888888333388888888888888883F38BFBFBFBFBFBFBFBF83
  196.         38F3333FFFFFFFFFFF8F38FBFB00000000000B8338F33388888888888F8F38BF
  197.         BF09999999990F8338F3338F333333338F8F38FBFB09999999990B8338F3338F
  198.         333333338F8F38BFBF09999999990F8338F3338FFFFFFFFF8F8F38FBFB000000
  199.         00000B8338F3338888888888838F38BFBFBFBFBFBFBFBF8338F3333333333333
  200.         338F38FBFBFBFBFBFBFBFB8338F3333333333333338F38BFBFBFBFBFBFBFBF83
  201.         38F3333333333333338F38FBFBFBFBFBFBFBFB8338F3333333333333338F38BF
  202.         BFBFBFBFBFBFBF8338F3333333333333338F38FBFBFBFBFBFBFBFB8338FFFFFF
  203.         F3333333338F38888888BFBFBFBFBF83388888883FFFFFFFFF8338FBFBFB8888
  204.         88888833383FFFFF888888888833338888883333333333333388888833333333
  205.         3333333333333333333333333333333333333333333333333333333333333333
  206.         33333333333333333333}
  207.       NumGlyphs = 2
  208.       Visible = False
  209.       OnClick = ClearTraceButtonClick
  210.     end
  211.     object ToolBarBevel: TBevel
  212.       Left = 0
  213.       Top = 0
  214.       Width = 475
  215.       Height = 2
  216.       Align = alTop
  217.       Shape = bsTopLine
  218.     end
  219.   end
  220.   object LogPanel: TPanel
  221.     Left = 0
  222.     Top = 32
  223.     Width = 475
  224.     Height = 165
  225.     Align = alClient
  226.     BevelOuter = bvNone
  227.     TabOrder = 1
  228.     object LogGrid: TDrawGrid
  229.       Left = 0
  230.       Top = 0
  231.       Width = 475
  232.       Height = 102
  233.       Align = alClient
  234.       ColCount = 3
  235.       DefaultColWidth = 35
  236.       DefaultRowHeight = 16
  237.       FixedCols = 0
  238.       RowCount = 2
  239.       GridLineWidth = 0
  240.       Options = [goFixedHorzLine, goRangeSelect, goDrawFocusSelected, goRowSelect, goThumbTracking]
  241.       TabOrder = 0
  242.       OnClick = LogGridClick
  243.       OnDblClick = ToggleSQLWindow
  244.       OnDragOver = SplitterDragOver
  245.       OnDrawCell = LogGridDrawCell
  246.       OnEnter = ResetLogSelection
  247.       ColWidths = (
  248.         74
  249.         94
  250.         300)
  251.     end
  252.     object SQLTextWindow: TMemo
  253.       Left = 0
  254.       Top = 105
  255.       Width = 475
  256.       Height = 60
  257.       Align = alBottom
  258.       PopupMenu = PopupMenu
  259.       ReadOnly = True
  260.       ScrollBars = ssVertical
  261.       TabOrder = 2
  262.       Visible = False
  263.       OnDragOver = SplitterDragOver
  264.       OnEnter = ResetLogSelection
  265.     end
  266.     object Splitter: TPanel
  267.       Left = 0
  268.       Top = 102
  269.       Width = 475
  270.       Height = 3
  271.       Cursor = crVSplit
  272.       Align = alBottom
  273.       BevelOuter = bvNone
  274.       DragCursor = crVSplit
  275.       DragMode = dmAutomatic
  276.       TabOrder = 1
  277.       Visible = False
  278.       OnDragOver = SplitterDragOver
  279.     end
  280.   end
  281.   object StatusBar: TStatusBar
  282.     Left = 0
  283.     Top = 197
  284.     Width = 475
  285.     Height = 21
  286.     Panels = <
  287.       item
  288.         Width = 150
  289.       end
  290.       item
  291.         Width = 50
  292.       end>
  293.     SimplePanel = False
  294.   end
  295.   object MainMenu: TMainMenu
  296.     Left = 405
  297.     Top = 149
  298.     object miFile: TMenuItem
  299.       Caption = '&File'
  300.       ShortCut = 0
  301.       OnClick = FileMenuClick
  302.       object miFileSaveLog: TMenuItem
  303.         Caption = '&Save Log...'
  304.         ShortCut = 0
  305.         OnClick = LogSave
  306.       end
  307.       object N2: TMenuItem
  308.         Caption = '-'
  309.         ShortCut = 0
  310.       end
  311.       object miFileExit: TMenuItem
  312.         Caption = '&Exit'
  313.         ShortCut = 0
  314.         OnClick = FileExit
  315.       end
  316.     end
  317.     object miEdit: TMenuItem
  318.       Caption = '&Edit'
  319.       ShortCut = 0
  320.       OnClick = EditMenuClick
  321.       object miEditCopy: TMenuItem
  322.         Caption = '&Copy'
  323.         ShortCut = 0
  324.         OnClick = LogCopy
  325.       end
  326.       object miEditClearLog: TMenuItem
  327.         Caption = 'Cl&ear Log'
  328.         ShortCut = 0
  329.         OnClick = LogClear
  330.       end
  331.       object miEditSelectAll: TMenuItem
  332.         Caption = '&Select All'
  333.         ShortCut = 0
  334.         OnClick = LogSelectAll
  335.       end
  336.     end
  337.     object miView: TMenuItem
  338.       Caption = '&View'
  339.       ShortCut = 0
  340.       OnClick = ViewMenuClick
  341.       object miViewSQLTextWindow: TMenuItem
  342.         Caption = 'SQL Text &Window'
  343.         ShortCut = 16471
  344.         OnClick = ToggleSQLWindow
  345.       end
  346.       object miViewToolBar: TMenuItem
  347.         Caption = '&Tool Bar'
  348.         ShortCut = 0
  349.         OnClick = ToggleToolBar
  350.       end
  351.       object miViewStatusBar: TMenuItem
  352.         Caption = 'Status Ba&r'
  353.         ShortCut = 0
  354.         OnClick = ToggleStatusBar
  355.       end
  356.       object N3: TMenuItem
  357.         Caption = '-'
  358.         ShortCut = 0
  359.       end
  360.       object miViewColumns: TMenuItem
  361.         Caption = '&Columns'
  362.         ShortCut = 0
  363.         object miViewRefNo: TMenuItem
  364.           Caption = 'Re&ference Number'
  365.           ShortCut = 0
  366.           OnClick = ViewRefNoClick
  367.         end
  368.         object miViewTimeStamp: TMenuItem
  369.           Caption = 'T&ime Stamp'
  370.           ShortCut = 0
  371.           OnClick = ViewTimeStampClick
  372.         end
  373.       end
  374.       object miViewHints: TMenuItem
  375.         Caption = 'Tool Bar &Hints'
  376.         ShortCut = 0
  377.         OnClick = ToggleToolTips
  378.       end
  379.     end
  380.     object miClients: TMenuItem
  381.       Caption = '&Clients'
  382.       ShortCut = 0
  383.       OnClick = ClientMenuClick
  384.     end
  385.     object miOptions: TMenuItem
  386.       Caption = '&Options'
  387.       ShortCut = 0
  388.       OnClick = OptionsMenuOpen
  389.       object miTracePaused: TMenuItem
  390.         Caption = 'Trace &Paused'
  391.         ShortCut = 16464
  392.         OnClick = ToggleTraceEnabled
  393.       end
  394.       object miTraceOptions: TMenuItem
  395.         Caption = 'Trace &Options...'
  396.         ShortCut = 16463
  397.         OnClick = ShowTraceOptions
  398.       end
  399.       object N1: TMenuItem
  400.         Caption = '-'
  401.         ShortCut = 0
  402.       end
  403.       object miAlwaysOnTop: TMenuItem
  404.         Caption = 'Always on &Top'
  405.         ShortCut = 16468
  406.         OnClick = ToggleAlwasyOnTop
  407.       end
  408.       object miAutoClientSwitch: TMenuItem
  409.         Caption = '&Auto Client Switch'
  410.         ShortCut = 0
  411.         OnClick = miAutoClientSwitchClick
  412.       end
  413.     end
  414.     object miHelp: TMenuItem
  415.       Caption = '&Help'
  416.       ShortCut = 0
  417.       object ShowHelpAbout: TMenuItem
  418.         Caption = '&About...'
  419.         ShortCut = 0
  420.         OnClick = ShowHelpAboutClick
  421.       end
  422.     end
  423.   end
  424.   object SaveDialog1: TSaveDialog
  425.     DefaultExt = 'txt'
  426.     FileEditStyle = fsEdit
  427.     Filter = 'Text Files (*.txt)|*.txt'
  428.     Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir]
  429.     Title = 'Save Trace Log As'
  430.     Left = 272
  431.     Top = 149
  432.   end
  433.   object PopupMenu: TPopupMenu
  434.     OnPopup = PopupMenuPopup
  435.     Left = 339
  436.     Top = 149
  437.     object miPopupCopy: TMenuItem
  438.       Caption = '&Copy'
  439.       ShortCut = 0
  440.       OnClick = LogCopy
  441.     end
  442.     object miPopupClear: TMenuItem
  443.       Caption = 'C&lear Log'
  444.       ShortCut = 0
  445.       OnClick = LogClear
  446.     end
  447.     object miPopupSelectAll: TMenuItem
  448.       Caption = 'Select &All'
  449.       ShortCut = 0
  450.       OnClick = LogSelectAll
  451.     end
  452.   end
  453. end
  454.