home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / textdemo.pak / MAIN.DFM / MAIN.txt
Encoding:
Text File  |  1995-08-24  |  2.1 KB  |  98 lines
  1. object Form1: TForm1
  2.   Left = 228
  3.   Top = 100
  4.   AutoScroll = False
  5.   Caption = 'Text Demo - [Untitled]'
  6.   ClientHeight = 241
  7.   ClientWidth = 436
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   PixelsPerInch = 96
  14.   TextHeight = 16
  15.   object Memo1: TMemo
  16.     Left = 0
  17.     Top = 0
  18.     Width = 436
  19.     Height = 241
  20.     Align = alClient
  21.     BorderStyle = bsNone
  22.     DragCursor = crDefault
  23.     HideSelection = False
  24.     ScrollBars = ssBoth
  25.     TabOrder = 0
  26.   end
  27.   object MainMenu1: TMainMenu
  28.     Left = 249
  29.     Top = 65535
  30.     object File1: TMenuItem
  31.       Caption = '&File'
  32.       object New1: TMenuItem
  33.         Caption = '&New'
  34.         OnClick = New1Click
  35.       end
  36.       object Open1: TMenuItem
  37.         Caption = '&Open ...'
  38.         OnClick = FileOpenClick
  39.       end
  40.       object Save1: TMenuItem
  41.         Caption = '&Save'
  42.         OnClick = Save1Click
  43.       end
  44.       object SaveAs1: TMenuItem
  45.         Caption = 'Save &As ...'
  46.         OnClick = SaveAs1Click
  47.       end
  48.       object N1: TMenuItem
  49.         Caption = '-'
  50.       end
  51.       object Exit1: TMenuItem
  52.         Caption = 'E&xit'
  53.         OnClick = FileExitClick
  54.       end
  55.     end
  56.     object Search1: TMenuItem
  57.       Caption = '&Search'
  58.       object Find1: TMenuItem
  59.         Caption = '&Find ...'
  60.         OnClick = Find1Click
  61.       end
  62.       object FindNext1: TMenuItem
  63.         Caption = 'Find &Next'
  64.         OnClick = FindNext1Click
  65.         ShortCutText = 'F3'
  66.       end
  67.       object Replace1: TMenuItem
  68.         Caption = '&Replace ...'
  69.         OnClick = Replace1Click
  70.       end
  71.     end
  72.   end
  73.   object OpenDialog1: TOpenDialog
  74.     Filter = 'Text Files (*.txt)|*.txt|All Files (*.*)|*.*'
  75.     FilterIndex = 0
  76.     Options = [ofHideReadOnly]
  77.     Left = 283
  78.     Top = 65535
  79.   end
  80.   object SaveDialog1: TSaveDialog
  81.     DefaultExt = 'TXT'
  82.     Filter = 'Text Files (*.txt)|*.txt|All Files (*.*)|*.*'
  83.     Left = 319
  84.     Top = 65535
  85.   end
  86.   object FindDialog1: TFindDialog
  87.     OnFind = Find
  88.     Left = 353
  89.     Top = 65535
  90.   end
  91.   object ReplaceDialog1: TReplaceDialog
  92.     OnFind = Find
  93.     OnReplace = Replace
  94.     Left = 387
  95.     Top = 65535
  96.   end
  97. end
  98.