Delphi 4 Bible/Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso/source/TABEDIT/MAIN.dfm/MAIN.txt

Text File | 1998-05-14 | 4KB | 182 lines

object MainForm: TMainForm
  Left = 330
  Top = 183
  Width = 397
  Height = 360
  Caption = 'Tabbed Text Editor'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 20
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 389
    Height = 285
    Align = alClient
    Color = clNavy
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -15
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
    OnChange = Memo1Change
  end
  object TabSet1: TTabSet
    Left = 0
    Top = 285
    Width = 389
    Height = 26
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Tabs.Strings = (
      '[untitled]')
    TabIndex = 0
    OnClick = TabSet1Click
    OnChange = TabSet1Change
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 24
    object FileMenu: TMenuItem
      Caption = '&File'
      OnClick = FileMenuClick
      object FileNew: TMenuItem
        Caption = '&New'
        ShortCut = 16462
        OnClick = FileNewClick
      end
      object FileOpen: TMenuItem
        Caption = '&Open...'
        ShortCut = 16463
        OnClick = FileOpenClick
      end
      object FileClose: TMenuItem
        Caption = '&Close'
        OnClick = FileCloseClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object FileSave: TMenuItem
        Caption = '&Save'
        ShortCut = 16467
        OnClick = FileSaveClick
      end
      object FileSaveAs: TMenuItem
        Caption = 'Save &As...'
        OnClick = FileSaveAsClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object FilePrint: TMenuItem
        Caption = '&Print'
        ShortCut = 16464
      end
      object FilePrintSetup: TMenuItem
        Caption = 'Prin&t Setup...'
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FileExit: TMenuItem
        Caption = 'E&xit'
        OnClick = FileExitClick
      end
    end
    object EditMenu: TMenuItem
      Caption = '&Edit'
      OnClick = EditMenuClick
      object EditCut: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 16472
        OnClick = EditCutClick
      end
      object EditCopy: TMenuItem
        Caption = '&Copy'
        ShortCut = 16451
        OnClick = EditCopyClick
      end
      object EditPaste: TMenuItem
        Caption = '&Paste'
        ShortCut = 16470
        OnClick = EditPasteClick
      end
    end
    object OptionsMenu: TMenuItem
      Caption = '&Options'
      object OptionsFont: TMenuItem
        Caption = '&Font...'
        OnClick = OptionsFontClick
      end
      object OptionsBackground: TMenuItem
        Caption = '&Background...'
        OnClick = OptionsBackgroundClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      object HelpAbout: TMenuItem
        Caption = '&About...'
        OnClick = HelpAboutClick
      end
    end
  end
  object FileOpenDialog: TOpenDialog
    Filter =
      'All files (*.*)|*.*|Text files (*.txt)|*.txt|Pascal files (*.pas' +
      ')|*.pas'
    Options = [ofPathMustExist, ofFileMustExist]
    Left = 48
    Top = 96
  end
  object FileSaveDialog: TSaveDialog
    Filter =
      'All files (*.*)|*.*|Text files (*.txt)|*.txt|Pascal files (*.pas' +
      ')|*.pas'
    Options = [ofOverwritePrompt, ofPathMustExist]
    Left = 144
    Top = 96
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    Device = fdPrinter
    MinFontSize = 0
    MaxFontSize = 0
    Left = 104
    Top = 24
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 184
    Top = 24
  end
  object FindDialog: TFindDialog
    Left = 264
    Top = 24
  end
end