object MainForm: TMainForm Left = 214 Top = 112 Width = 409 Height = 249 Caption = 'MainForm' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' PixelsPerInch = 96 TextHeight = 13 Menu = MainMenu ShowHint = True OnCreate = FormCreate object MainMenu: TMainMenu Left = 220 Top = 40 object FileMenu: TMenuItem Caption = '&Fichier' object FileNewItem: TMenuItem Caption = '&Nouveau' Hint = 'Créer un nouveau fichier' OnClick = FileNew end object FileOpenItem: TMenuItem Caption = '&Ouvrir...' Hint = 'Ouvrir un fichier existant' OnClick = FileOpen end object FileSaveItem: TMenuItem Caption = '&Enregistrer' Hint = 'Enregistrer le fichier en cours' OnClick = FileSave end object FileSaveAsItem: TMenuItem Caption = 'En®istrer sous...' Hint = 'Enregistrer le fichier sous un nouveau nom' OnClick = FileSaveAs end object N1: TMenuItem Caption = '-' end object FilePrintItem: TMenuItem Caption = '&Imprimer' Hint = 'Imprimer le fichier en cours' OnClick = FilePrint end object FilePrintSetupItem: TMenuItem Caption = '&Configuration impression...' Hint = 'Modifier la configuration de l'#39'impression' OnClick = FilePrintSetup end object N4: TMenuItem Caption = '-' end object FileExitItem: TMenuItem Caption = '&Quitter' Hint = 'Quitter cette application' OnClick = FileExit end end object EditMenu: TMenuItem Caption = '&Edition' object EditUndoItem: TMenuItem Caption = '&Défaire' Hint = 'Défaire la dernière action' OnClick = EditUndo end object N2: TMenuItem Caption = '-' end object EditCutItem: TMenuItem Caption = '&Couper' Hint = 'Supprimer l'#39'élément sélectionné' OnClick = EditCut end object EditCopyItem: TMenuItem Caption = 'Co&pier' Hint = 'Copier l'#39'élément sélectionné dans le Presse-papiers' OnClick = EditCopy end object EditPasteItem: TMenuItem Caption = 'C&oller' Hint = 'Coller le contenu du Presse-papiers' OnClick = EditPaste end end object WindowMenu: TMenuItem Caption = 'Fe&nêtre' object WindowTileItem: TMenuItem Caption = '&Mosaïque' Hint = 'Disposer toutes les fenêtres en mosaïque' OnClick = WindowTile end object WindowCascadeItem: TMenuItem Caption = '&Cascade' Hint = 'Disposer toutes les fenêtres en cascade' OnClick = WindowCascade end object WindowArrangeItem: TMenuItem Caption = '&Réorganiser' Hint = 'Réorganiser les fenêtres minimisées' OnClick = WindowArrange end end object HelpMenu: TMenuItem Caption = '&Aide' object HelpContentsItem: TMenuItem Caption = '&Index' Hint = 'Afficher l'#39'index de l'#39'aide' OnClick = HelpContents end object HelpSearchItem: TMenuItem Caption = '&Rechercher...' Hint = 'Rechercher une rubrique dans l'#39'aide' OnClick = HelpSearch end object HelpHowToUseItem: TMenuItem Caption = '&Utiliser l'#39'aide' Hint = 'Aide sur le système d'#39'aide' OnClick = HelpHowToUse end object N3: TMenuItem Caption = '-' end object HelpAboutItem: TMenuItem Caption = '&A propos...' Hint = 'Afficher des informations sur le programme' OnClick = HelpAbout end end end object OpenDialog: TOpenDialog Filter = 'fichiers texte|*.txt' Left = 230 Top = 87 end object SaveDialog: TSaveDialog Filter = 'fichiers texte|*.txt' Left = 204 Top = 125 end object PrintDialog: TPrintDialog Left = 262 Top = 127 end object PrintSetupDialog: TPrinterSetupDialog Left = 276 Top = 93 end object StatusLine: TStatusBar Align = alBottom Height = 23 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' ParentFont = False SimplePanel = True end end