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

Text File | 2002-04-21 | 5KB | 185 lines

object MainForm: TMainForm
  Left = 271
  Top = 141
  Width = 409
  Height = 249
  Caption = 'By the Blue Velvet League'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusLine: TStatusBar
    Left = 0
    Top = 180
    Width = 401
    Height = 23
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <>
    ParentFont = False
    SimplePanel = True
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 401
    Height = 180
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'Comic Sans MS'
    Font.Style = []
    Lines.Strings = (
      'Memo1')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
  end
  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
end