home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 January / Pcwk0198.iso / Zadarmo / CYBERCON / _SETUP.1 / Ccontact.exe / 0 / RCDATA / TMAINFORMMDI / TMAINFORMMDI.txt
Text File  |  1997-08-26  |  4KB  |  143 lines
  1. object MainFormMdi: TMainFormMdi
  2.   Left = -4
  3.   Top = -4
  4.   Width = 648
  5.   Height = 488
  6.   Caption = 'CyberContacts'
  7.   Color = clAppWorkSpace
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   FormStyle = fsMDIForm
  13.   Menu = MainMenu1
  14.   Position = poDefault
  15.   WindowState = wsMaximized
  16.   WindowMenu = Window1
  17.   OnCreate = FormCreate
  18.   OnDestroy = FormDestroy
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object MainMenu1: TMainMenu
  22.     AutoMerge = True
  23.     Left = 36
  24.     Top = 196
  25.     object File1: TMenuItem
  26.       Caption = '&File'
  27.       Hint = 'File related commands'
  28.       ShortCut = 0
  29.       object FileNewItem: TMenuItem
  30.         Caption = '&New'
  31.         Hint = 'Create a new file'
  32.         ShortCut = 0
  33.         OnClick = FileNewItemClick
  34.       end
  35.       object FileOpenItem: TMenuItem
  36.         Caption = '&Open'
  37.         Hint = 'Open an existing file'
  38.         ShortCut = 0
  39.         OnClick = FileOpenItemClick
  40.       end
  41.       object FileCloseItem: TMenuItem
  42.         Caption = '&Close'
  43.         Hint = 'Close current file'
  44.         ShortCut = 0
  45.         OnClick = FileCloseItemClick
  46.       end
  47.       object FileSaveItem: TMenuItem
  48.         Caption = '&Save'
  49.         Enabled = False
  50.         Hint = 'Save current file'
  51.         ShortCut = 0
  52.         OnClick = FileSaveItemClick
  53.       end
  54.       object FileSaveAsItem: TMenuItem
  55.         Caption = 'Save &As...'
  56.         Enabled = False
  57.         Hint = 'Save current file as...'
  58.         ShortCut = 0
  59.         OnClick = FileSaveAsItemClick
  60.       end
  61.       object N1: TMenuItem
  62.         Caption = '-'
  63.         ShortCut = 0
  64.       end
  65.       object FileExitItem: TMenuItem
  66.         Caption = 'E&xit'
  67.         Hint = 'Exit the application'
  68.         ShortCut = 0
  69.         OnClick = FileExitItemClick
  70.       end
  71.     end
  72.     object Edit1: TMenuItem
  73.       Caption = '&Edit'
  74.       ShortCut = 0
  75.       object CutItem: TMenuItem
  76.         Caption = 'Cu&t'
  77.         Enabled = False
  78.         Hint = 'Cut to clipboard'
  79.         ShortCut = 0
  80.         OnClick = CutItemClick
  81.       end
  82.       object CopyItem: TMenuItem
  83.         Caption = '&Copy'
  84.         Enabled = False
  85.         Hint = 'Copy to clipboard'
  86.         ShortCut = 0
  87.         OnClick = CopyItemClick
  88.       end
  89.       object PasteItem: TMenuItem
  90.         Caption = '&Paste'
  91.         Enabled = False
  92.         Hint = 'Paste from clipboard'
  93.         ShortCut = 0
  94.         OnClick = PasteItemClick
  95.       end
  96.     end
  97.     object Window1: TMenuItem
  98.       Caption = '&Window'
  99.       Hint = 'Window related commands such as Tile and Cascade'
  100.       ShortCut = 0
  101.       object WindowCascadeItem: TMenuItem
  102.         Caption = '&Cascade'
  103.         Hint = 'Arrange windows to overlap'
  104.         ShortCut = 0
  105.         OnClick = WindowCascadeItemClick
  106.       end
  107.       object WindowTileItem: TMenuItem
  108.         Caption = '&Tile'
  109.         Hint = 'Arrange windows without overlap'
  110.         ShortCut = 0
  111.         OnClick = WindowTileItemClick
  112.       end
  113.       object WindowArrangeItem: TMenuItem
  114.         Caption = '&Arrange Icons'
  115.         Hint = 'Arrange window icons at bottom of main window'
  116.         ShortCut = 0
  117.         OnClick = WindowArrangeItemClick
  118.       end
  119.       object WindowMinimizeItem: TMenuItem
  120.         Caption = '&Minimize All'
  121.         Hint = 'Minimize all windows'
  122.         ShortCut = 0
  123.         OnClick = WindowMinimizeItemClick
  124.       end
  125.     end
  126.     object Help1: TMenuItem
  127.       Caption = '&Help'
  128.       Hint = 'Help topics'
  129.       ShortCut = 0
  130.       object HelpAboutItem: TMenuItem
  131.         Caption = '&About'
  132.         ShortCut = 0
  133.       end
  134.     end
  135.   end
  136.   object OpenDialog: TOpenDialog
  137.     FileEditStyle = fsEdit
  138.     Filter = 'All files (*.*)|*.*'
  139.     Left = 4
  140.     Top = 196
  141.   end
  142. end
  143.