// Lösungen zu "Richard Kaiser: C++ mit dem Borland C++Builder 2007", ISBN: 978-3-540-69575-2
// Copyright Richard Kaiser, 2007. http://www.rkaiser.de. All rights reserved.
// Diese Quelltexte dürfen in eigenen Programmen verwendet werden, wenn sie einen Hinweis auf die Quelle (die ersten beiden Zeilen) enthalten. In keinem Fall wird eine Haftung für direkte, indirekte, zufällige oder Folgeschäden übernommen, die sich aus der Nutzung ergeben.
// It is permitted to use this source text in programs of your own, provided that it contains a reference to the source (the first two lines above). All liabilities for use of the code are disclaimed.

Die Struktur sieht man in der Strukturansicht (Ansicht|Struktur)
oder in der Ansicht des Formulars als Text (im Kontextmenü
des Formulars: Ansicht als Text):

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 286
  ClientWidth = 426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ActionMainMenuBar1: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 426
    Height = 24
    UseSystemFont = False
    ActionManager = ActionManager1
    Caption = 'ActionMainMenuBar1'
    ColorMap.HighlightColor = 15660791
    ColorMap.BtnSelectedColor = clBtnFace
    ColorMap.UnusedColor = 15660791
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentShowHint = False
    ShowHint = True
    Spacing = 0
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 24
    Width = 426
    Height = 33
    Align = alTop
    TabOrder = 1
    object ActionToolBar1: TActionToolBar
      Left = 32
      Top = 2
      Width = 81
      Height = 48
      ActionManager = ActionManager1
      Caption = 'ActionToolBar1'
      ColorMap.HighlightColor = 15660791
      ColorMap.BtnSelectedColor = clBtnFace
      ColorMap.UnusedColor = 15660791
      Spacing = 0
    end
    object ActionToolBar2: TActionToolBar
      Left = 201
      Top = 2
      Width = 200
      Height = 48
      ActionManager = ActionManager1
      Caption = 'ActionToolBar2'
      ColorMap.HighlightColor = 15660791
      ColorMap.BtnSelectedColor = clBtnFace
      ColorMap.UnusedColor = 15660791
      Spacing = 0
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 57
    Width = 426
    Height = 229
    Align = alClient
    Lines.Strings = (
      'Memo1')
    TabOrder = 2
  end
  object ActionManager1: TActionManager
    FileName = 'MostRecentlyUsed.dat'
    ActionBars = <
      item
        Items = <
          item
            Items = <
              item
                Action = FileOpen1
                ImageIndex = 3
                ShortCut = 16463
              end
              item
                Action = FileSaveAs1
                ImageIndex = 4
              end
              item
                Action = FilePrintSetup1
              end
              item
                Action = FileExit1
                ImageIndex = 5
              end>
            Caption = '&Datei'
          end
          item
            Items = <
              item
                Action = EditCut1
                ImageIndex = 0
                ShortCut = 16472
              end
              item
                Action = EditCopy1
                ImageIndex = 1
                ShortCut = 16451
              end
              item
                Action = EditPaste1
                ImageIndex = 2
                ShortCut = 16470
              end>
            Caption = '&Bearbeiten'
          end>
        ActionBar = ActionMainMenuBar1
      end
      item
        Items = <
          item
            Action = FileOpen1
            ImageIndex = 3
            ShortCut = 16463
          end
          item
            Action = FileExit1
            ImageIndex = 5
          end
          item
            Action = FilePrintSetup1
          end
          item
            Action = FileSaveAs1
            ImageIndex = 4
          end>
      end
      item
        Items = <
          item
            Action = FileOpen1
            ImageIndex = 3
            ShortCut = 16463
          end
          item
            Action = FileSaveAs1
            ImageIndex = 4
          end>
      end
      item
        Items = <
          item
            Action = FileExit1
            ImageIndex = 5
          end
          item
            Action = FilePrintSetup1
          end
          item
            Action = FileSaveAs1
            ImageIndex = 4
          end
          item
            Action = FileOpen1
            ImageIndex = 3
            ShortCut = 16463
          end>
      end
      item
        Items.CaptionOptions = coNone
        Items = <
          item
            Action = EditPaste1
            ImageIndex = 2
            ShortCut = 16470
          end
          item
            Action = EditCopy1
            ImageIndex = 1
            ShortCut = 16451
          end
          item
            Action = FileExit1
            ImageIndex = 5
          end
          item
            Action = FileSaveAs1
            ImageIndex = 4
          end
          item
            Action = FileOpen1
            ImageIndex = 3
            ShortCut = 16463
          end
          item
            Action = EditCut1
            ImageIndex = 0
            ShortCut = 16472
          end>
      end
      item
        Items.CaptionOptions = coNone
        Items = <
          item
            Action = FileSaveAs1
            ImageIndex = 4
          end
          item
            Action = FileOpen1
            ImageIndex = 3
            ShortCut = 16463
          end>
        ActionBar = ActionToolBar1
      end
      item
        Items.CaptionOptions = coNone
        Items = <
          item
            Action = EditPaste1
            ImageIndex = 2
            ShortCut = 16470
          end
          item
            Action = EditCopy1
            ImageIndex = 1
            ShortCut = 16451
          end
          item
            Action = CustomizeActionBars1
          end
          item
            Action = EditCut1
            ImageIndex = 0
            ShortCut = 16472
          end>
        ActionBar = ActionToolBar2
      end>
    Images = ImageList1
    Left = 16
    Top = 232
    StyleName = 'XP Style'
    object Action1: TAction
      Caption = 'Action1'
    end
    object EditCut1: TEditCut
      Category = 'Bearbeiten'
      Caption = '&Ausschneiden'
      Enabled = False
      Hint = 'Ausschneiden|Markiertes Objekt in die Zwischenablage verschieben'
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy1: TEditCopy
      Category = 'Bearbeiten'
      Caption = '&Kopieren'
      Enabled = False
      Hint = 'Kopieren|Markiertes Objekt in die Zwischenablage kopieren'
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = 'Bearbeiten'
      Caption = '&Einf'#252'gen'
      Hint = 'Einf'#252'gen|Inhalt der Zwischenablage einf'#252'gen'
      ImageIndex = 2
      ShortCut = 16470
    end
    object FileOpen1: TFileOpen
      Category = 'Datei'
      Caption = #214'&ffnen...'
      Hint = #214'ffnen|Vorhandene Datei '#246'ffnen'
      ImageIndex = 3
      ShortCut = 16463
      BeforeExecute = FileOpen1BeforeExecute
      OnAccept = FileOpen1Accept
    end
    object FileSaveAs1: TFileSaveAs
      Category = 'Datei'
      Caption = 'Speichern &unter...'
      Hint = 'Speichern unter|Aktive Datei unter einem neuen Namen speichern'
      ImageIndex = 4
      OnAccept = FileSaveAs1Accept
    end
    object FilePrintSetup1: TFilePrintSetup
      Category = 'Datei'
      Caption = '&Druckereinstellungen...'
      Hint = 'Druckereinstellungen'
    end
    object FileExit1: TFileExit
      Category = 'Datei'
      Caption = '&Beenden-1'
      Hint = 'Beenden|Anwendung beenden'
      ImageIndex = 5
    end
    object CustomizeActionBars1: TCustomizeActionBars
      Category = 'Tools'
      Caption = 'A&npassen...'
      CustomizeDlg.StayOnTop = False
    end
  end
  object ImageList1: TImageList
    Left = 64
    Top = 232
    Bitmap = {
    .....
      }
  end
end
