home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / HAWKEYE / _SETUP.1 / LogWindow.dfm / LogWindow.txt
Encoding:
Text File  |  1998-07-21  |  1.6 KB  |  80 lines
  1. object fLogWindow: TfLogWindow
  2.   Left = 343
  3.   Top = 323
  4.   Width = 600
  5.   Height = 200
  6.   HelpContext = 3150
  7.   BorderIcons = []
  8.   Caption = 'Log Window'
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Scaled = False
  15.   Visible = True
  16.   OnClose = FormClose
  17.   OnDestroy = FormDestroy
  18.   PixelsPerInch = 120
  19.   TextHeight = 16
  20.   object LogLV: TListView
  21.     Left = 0
  22.     Top = 0
  23.     Width = 592
  24.     Height = 173
  25.     Align = alClient
  26.     Columns = <
  27.       item
  28.         Caption = 'Log Type'
  29.         Width = 175
  30.       end
  31.       item
  32.         Caption = 'Component Name'
  33.         Width = 125
  34.       end
  35.       item
  36.         Caption = 'Property Name'
  37.         Width = 150
  38.       end
  39.       item
  40.         Caption = 'Old Value'
  41.         Width = 100
  42.       end
  43.       item
  44.         Caption = 'New Value'
  45.         Width = 100
  46.       end>
  47.     RowSelect = True
  48.     PopupMenu = LogPM
  49.     TabOrder = 0
  50.     ViewStyle = vsReport
  51.   end
  52.   object SaveDialog: TSaveDialog
  53.     DefaultExt = 'log'
  54.     Filter = 'Log file (*.log)|*.log'
  55.     Options = [ofOverwritePrompt, ofHideReadOnly]
  56.     Title = 'Save log to...'
  57.     Left = 336
  58.     Top = 48
  59.   end
  60.   object LogPM: TPopupMenu
  61.     Left = 120
  62.     Top = 48
  63.     object SaveLogMI: TMenuItem
  64.       Caption = '&Save Log'
  65.       OnClick = SaveLogMIClick
  66.     end
  67.     object ClearLogMI: TMenuItem
  68.       Caption = '&Clear Log'
  69.       OnClick = ClearLogMIClick
  70.     end
  71.     object N1: TMenuItem
  72.       Caption = '-'
  73.     end
  74.     object StayOnTopMI: TMenuItem
  75.       Caption = '&Stay On Top'
  76.       OnClick = StayOnTopMIClick
  77.     end
  78.   end
  79. end
  80.