PC World Komputer 1997 May/Pcwk0597.iso/delphi/jwrite.lzh/EXAMPLE/CHILDWIN.DFM/CHILDWIN.txt

Text File | 1996-04-30 | 7KB | 276 lines

object MDIChild: TMDIChild
  Left = 323
  Top = 309
  Width = 438
  Height = 231
  ActiveControl = FileEditor1
  Caption = 'MDI Child'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  TextHeight = 16
  object FileEditor1: TFileEditor
    Left = 0
    Top = 0
    Width = 430
    Height = 185
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ShowLineBreaks = True
    WrapMode = opNone
    MaxLineLength = 72
    OnStateChange = FileEditor1StateChange
    OnProgressEvent = FileEditor1ProgressEvent
    OnSaveModePrompt = FileEditor1SaveModePrompt
    OnSaveNewFile = SaveAs1Click
    OnNewFileName = FileEditor1NewFileName
    OnSaveModified = FileEditor1SaveModified
    OnCaretMoved = FileEditor1CaretMoved
    OnEnter = FileEditor1Enter
    OnExit = FileEditor1Exit
    OnWrapModeChange = FileEditor1WrapModeChange
    OnAbortRequest = FileEditor1AbortRequest
    OnReplaceAll = FileEditor1ReplaceAll
  end
  object MainMenu1: TMainMenu
    AutoMerge = True
    Left = 38
    Top = 5
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        GroupIndex = 1
        OnClick = New1Click
      end
      object Open1: TMenuItem
        Caption = '&Open'
        GroupIndex = 1
        OnClick = Open1Click
      end
      object Close1: TMenuItem
        Caption = '&Close'
        GroupIndex = 1
        OnClick = Close1Click
      end
      object N1: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object Save1: TMenuItem
        Caption = '&Save'
        GroupIndex = 1
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As'
        GroupIndex = 1
        OnClick = SaveAs1Click
      end
      object N2: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object Print1: TMenuItem
        Caption = '&Print'
        GroupIndex = 1
        OnClick = Print1Click
      end
      object PrintSetup1: TMenuItem
        Caption = 'Print Setu&p'
        GroupIndex = 1
        OnClick = PrintSetup1Click
      end
      object N3: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        GroupIndex = 1
        OnClick = Exit1Click
        ShortCutText = 'Alt+X'
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      GroupIndex = 20
      object Undo1: TMenuItem
        Caption = '&Undo'
        OnClick = Undo1Click
        ShortCutText = 'Alt+BkSp'
      end
      object Redo1: TMenuItem
        Caption = '&Redo'
        OnClick = Redo1Click
        ShortCutText = 'Alt+R'
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        OnClick = Cut1Click
        ShortCutText = 'Ctrl+X'
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        OnClick = Copy1Click
        ShortCutText = 'Ctrl+C'
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        OnClick = Paste1Click
        ShortCutText = 'Ctrl+V'
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object FlowText1: TMenuItem
        Caption = '&Flow Text'
        OnClick = FlowText1Click
        ShortCutText = 'Shift+F5'
      end
      object Capitalise1: TMenuItem
        Caption = 'Capitalise &Words'
        OnClick = Capitalise1Click
        ShortCutText = 'Shift+F3'
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCutText = '-'
      end
      object InsertPageBreak1: TMenuItem
        Caption = 'Insert Page &Break'
        OnClick = InsertPageBreak1Click
        ShortCutText = 'Ctrl+L'
      end
      object InsertDateTime1: TMenuItem
        Caption = 'Insert &Date/Time'
        OnClick = InsertDateTime1Click
        ShortCutText = 'F5'
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object SelectAll1: TMenuItem
        Caption = '&Select All'
        OnClick = SelectAll1Click
      end
    end
    object Search1: TMenuItem
      Caption = '&Search'
      GroupIndex = 20
      object Find1: TMenuItem
        Caption = '&Find'
        OnClick = Find1Click
        ShortCutText = 'Ctrl+F'
      end
      object FindNext1: TMenuItem
        Caption = 'Find &Next'
        OnClick = FindNext1Click
        ShortCutText = 'F3'
      end
      object Replace1: TMenuItem
        Caption = '&Replace'
        OnClick = Replace1Click
      end
      object GotoLine1: TMenuItem
        Caption = '&Goto Line'
        OnClick = GotoLine1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      GroupIndex = 20
      object Font1: TMenuItem
        Caption = '&Font'
        OnClick = Font1Click
      end
      object Colour1: TMenuItem
        Caption = '&Colour'
        OnClick = Colour1Click
      end
      object MaxLineLength1: TMenuItem
        Caption = '&Max. Line Length'
        OnClick = MaxLineLength1Click
      end
    end
  end
  object FindDialog1: TFindDialog
    OnFind = FindDialog1Find
    Left = 66
    Top = 5
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 94
    Top = 6
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Text Files (*.txt)|*.txt|All Files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Left = 121
    Top = 6
  end
  object PrintDialog1: TPrintDialog
    Left = 149
    Top = 6
  end
  object ReplaceDialog1: TReplaceDialog
    OnFind = FindDialog1Find
    OnReplace = ReplaceDialog1Find
    Left = 176
    Top = 6
  end
  object ColorDialog1: TColorDialog
    Left = 203
    Top = 7
  end
  object PopupMenu1: TPopupMenu
    Left = 231
    Top = 7
    object Find2: TMenuItem
      Caption = '&Find'
      OnClick = Find1Click
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object Cut2: TMenuItem
      Caption = 'Cu&t'
      OnClick = Cut1Click
    end
    object Copy2: TMenuItem
      Caption = '&Copy'
      OnClick = Copy1Click
    end
    object Paste2: TMenuItem
      Caption = '&Paste'
      OnClick = Paste1Click
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object FlowText2: TMenuItem
      Caption = 'Flow &Text'
      OnClick = FlowText1Click
    end
  end
end