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