Freelog 34/Freelog034.iso/Progr/Demo/Main.txt

Text File | 2002-04-21 | 4KB | 161 lines

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