object Form2: TForm2 Left = 171 Top = 438 Width = 643 Height = 302 Caption = 'Log/Report File Viewer' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Menu = MainMenu1 Position = poScreenCenter PixelsPerInch = 96 TextHeight = 16 object memo1: TRichEdit Left = 0 Top = 0 Width = 635 Height = 256 Align = alClient Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] ParentFont = False ScrollBars = ssBoth TabOrder = 0 end object MainMenu1: TMainMenu object ViewerMenu: TMenuItem Caption = '&Options' object ExportFile1: TMenuItem Caption = 'Export to text File...' OnClick = ExportFile1Click end object ExporttoMSExcelFile1: TMenuItem Caption = 'Export to MS Excel File...' Visible = False OnClick = ExporttoMSExcelFile1Click end object N3: TMenuItem Caption = '-' end object PrintSetup1: TMenuItem Caption = 'Print &Setup...' ShortCut = 16467 OnClick = PrintSetup1Click end object Print1: TMenuItem Caption = '&Print' ShortCut = 16464 OnClick = Print1Click end object N1: TMenuItem Caption = '-' end object Close1: TMenuItem Caption = '&Close' ShortCut = 16451 OnClick = Close1Click end end object Filter2: TMenuItem Caption = 'Fil&ter' ShortCut = 16468 OnClick = Filter1Click end end object PrinterSetupDialog1: TPrinterSetupDialog Left = 24 end object PrintDialog1: TPrintDialog Left = 48 end object SaveDialog1: TSaveDialog Filter = 'Text File (*.txt)|*.txt|All Files (*.*)|*.*' Options = [ofHideReadOnly, ofNoChangeDir] Left = 72 end object SaveDialog2: TSaveDialog Filter = 'Excel File (*.xls)|*.xls|All Files (*.*)|*.*' Options = [ofHideReadOnly, ofNoChangeDir] Left = 96 end end