home *** CD-ROM | disk | FTP | other *** search
/ Freelog 34 / Freelog034.iso / Progr / Demo / Main.txt < prev    next >
Encoding:
Text File  |  2002-04-21  |  4.4 KB  |  161 lines
  1. object MainForm: TMainForm
  2.   Left = 214
  3.   Top = 112
  4.   Width = 409
  5.   Height = 249
  6.   Caption = 'MainForm'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   PixelsPerInch = 96
  11.   TextHeight = 13
  12.   Menu = MainMenu
  13.   ShowHint = True
  14.   OnCreate = FormCreate
  15.   object MainMenu: TMainMenu
  16.     Left = 220
  17.     Top = 40
  18.     object FileMenu: TMenuItem
  19.       Caption = '&Fichier'
  20.       object FileNewItem: TMenuItem
  21.         Caption = '&Nouveau'
  22.         Hint = 'CrΘer un nouveau fichier'
  23.         OnClick = FileNew
  24.       end
  25.       object FileOpenItem: TMenuItem
  26.         Caption = '&Ouvrir...'
  27.         Hint = 'Ouvrir un fichier existant'
  28.         OnClick = FileOpen
  29.       end
  30.       object FileSaveItem: TMenuItem
  31.         Caption = '&Enregistrer'
  32.         Hint = 'Enregistrer le fichier en cours'
  33.         OnClick = FileSave
  34.       end
  35.       object FileSaveAsItem: TMenuItem
  36.         Caption = 'En®istrer sous...'
  37.         Hint = 'Enregistrer le fichier sous un nouveau nom'
  38.         OnClick = FileSaveAs
  39.       end
  40.       object N1: TMenuItem
  41.         Caption = '-'
  42.       end
  43.       object FilePrintItem: TMenuItem
  44.         Caption = '&Imprimer'
  45.         Hint = 'Imprimer le fichier en cours'
  46.         OnClick = FilePrint
  47.       end
  48.       object FilePrintSetupItem: TMenuItem
  49.         Caption = '&Configuration impression...'
  50.         Hint = 'Modifier la configuration de l'#39'impression'
  51.         OnClick = FilePrintSetup
  52.       end
  53.       object N4: TMenuItem
  54.         Caption = '-'
  55.       end
  56.       object FileExitItem: TMenuItem
  57.         Caption = '&Quitter'
  58.         Hint = 'Quitter cette application'
  59.         OnClick = FileExit
  60.       end
  61.     end
  62.     object EditMenu: TMenuItem
  63.       Caption = '&Edition'
  64.       object EditUndoItem: TMenuItem
  65.         Caption = '&DΘfaire'
  66.         Hint = 'DΘfaire la derniΦre action'
  67.         OnClick = EditUndo
  68.       end
  69.       object N2: TMenuItem
  70.         Caption = '-'
  71.       end
  72.       object EditCutItem: TMenuItem
  73.         Caption = '&Couper'
  74.         Hint = 'Supprimer l'#39'ΘlΘment sΘlectionnΘ'
  75.         OnClick = EditCut
  76.       end
  77.       object EditCopyItem: TMenuItem
  78.         Caption = 'Co&pier'
  79.         Hint = 'Copier l'#39'ΘlΘment sΘlectionnΘ dans le Presse-papiers'
  80.         OnClick = EditCopy
  81.       end
  82.       object EditPasteItem: TMenuItem
  83.         Caption = 'C&oller'
  84.         Hint = 'Coller le contenu du Presse-papiers'
  85.         OnClick = EditPaste
  86.       end
  87.     end
  88.     object WindowMenu: TMenuItem
  89.       Caption = 'Fe&nΩtre'
  90.       object WindowTileItem: TMenuItem
  91.         Caption = '&Mosa∩que'
  92.         Hint = 'Disposer toutes les fenΩtres en mosa∩que'
  93.         OnClick = WindowTile
  94.       end
  95.       object WindowCascadeItem: TMenuItem
  96.         Caption = '&Cascade'
  97.         Hint = 'Disposer toutes les fenΩtres en cascade'
  98.         OnClick = WindowCascade
  99.       end
  100.       object WindowArrangeItem: TMenuItem
  101.         Caption = '&RΘorganiser'
  102.         Hint = 'RΘorganiser les fenΩtres minimisΘes'
  103.         OnClick = WindowArrange
  104.       end
  105.     end
  106.     object HelpMenu: TMenuItem
  107.       Caption = '&Aide'
  108.       object HelpContentsItem: TMenuItem
  109.         Caption = '&Index'
  110.         Hint = 'Afficher l'#39'index de l'#39'aide'
  111.         OnClick = HelpContents
  112.       end
  113.       object HelpSearchItem: TMenuItem
  114.         Caption = '&Rechercher...'
  115.         Hint = 'Rechercher une rubrique dans l'#39'aide'
  116.         OnClick = HelpSearch
  117.       end
  118.       object HelpHowToUseItem: TMenuItem
  119.         Caption = '&Utiliser l'#39'aide'
  120.         Hint = 'Aide sur le systΦme d'#39'aide'
  121.         OnClick = HelpHowToUse
  122.       end
  123.       object N3: TMenuItem
  124.         Caption = '-'
  125.       end
  126.       object HelpAboutItem: TMenuItem
  127.         Caption = '&A propos...'
  128.         Hint = 'Afficher des informations sur le programme'
  129.         OnClick = HelpAbout
  130.       end
  131.     end
  132.   end
  133.   object OpenDialog: TOpenDialog
  134.     Filter = 'fichiers texte|*.txt'
  135.     Left = 230
  136.     Top = 87
  137.   end
  138.   object SaveDialog: TSaveDialog
  139.     Filter = 'fichiers texte|*.txt'
  140.     Left = 204
  141.     Top = 125
  142.   end
  143.   object PrintDialog: TPrintDialog
  144.     Left = 262
  145.     Top = 127
  146.   end
  147.   object PrintSetupDialog: TPrinterSetupDialog
  148.     Left = 276
  149.     Top = 93
  150.   end
  151.   object StatusLine: TStatusBar
  152.     Align = alBottom
  153.     Height = 23
  154.     Font.Color = clBlack
  155.     Font.Height = -11
  156.     Font.Name = 'MS Sans Serif'
  157.     ParentFont = False
  158.     SimplePanel = True
  159.   end
  160. end
  161.