ribboneditor_mainform.dfm

source code for the Marco Cantu s book Delphi 2009 Handbook

            Action = RichEditStrikeOut1
            CommandStyle = csCheckBox
            ImageIndex = 8
            CommandProperties.Width = -1
          end
          item
            Action = RichEditUnderline1
            CommandStyle = csCheckBox
            ImageIndex = 7
            ShortCut = 16469
            CommandProperties.Width = -1
          end
          item
            Action = RichEditBold1
            CommandStyle = csCheckBox
            ImageIndex = 5
            ShortCut = 16450
            CommandProperties.Width = -1
          end>
        ActionBar = RibbonGroup3
      end
      item
        Items = <
          item
            Action = RichEditAlignLeft1
            CommandStyle = csRadioButton
            ImageIndex = 10
            CommandProperties.Width = -1
          end
          item
            Action = RichEditAlignRight1
            CommandStyle = csRadioButton
            ImageIndex = 11
            CommandProperties.Width = -1
          end
          item
            Action = RichEditAlignCenter1
            CommandStyle = csRadioButton
            ImageIndex = 12
            CommandProperties.Width = -1
          end>
        ActionBar = RibbonGroup4
      end
      item
        Items = <
          item
            Action = RichEditBullets1
            ImageIndex = 9
          end>
        ActionBar = RibbonGroup5
      end
      item
        Items = <
          item
            Action = DownLoadURL1
          end
          item
            ContextItems = <
              item
                Caption = 'ActionClientItem0'
              end
              item
                Caption = 'ActionClientItem1'
              end
              item
                Caption = 'ActionClientItem2'
              end>
            Caption = '&No Action'
            CommandStyle = csText
            CommandProperties.Width = -1
            CommandProperties.Font.Charset = DEFAULT_CHARSET
            CommandProperties.Font.Color = clWindowText
            CommandProperties.Font.Height = -11
            CommandProperties.Font.Name = 'Tahoma'
            CommandProperties.Font.Style = []
            CommandProperties.ParentFont = False
          end>
        ActionBar = RibbonGroup6
      end
      item
        Items = <
          item
            ChangesAllowed = [caModify]
            Items = <
              item
                Action = FileOpen1
                ImageIndex = 13
                ShortCut = 16463
              end
              item
                Action = FileSaveAs1
                ImageIndex = 14
              end
              item
                Action = FilePrintSetup1
                ImageIndex = 22
              end
              item
                Action = FileExit1
                ImageIndex = 31
              end>
            Caption = '&ActionClientItem0'
            KeyTip = 'F'
          end>
        ActionBar = RibbonApplicationMenuBar1
        AutoSize = False
      end
      item
        Items = <
          item
            Action = FileSaveAs1
            ImageIndex = 14
            ShowCaption = False
          end
          item
            Action = FileExit1
            ImageIndex = 15
            ShowCaption = False
          end>
        ActionBar = RibbonQuickAccessToolbar1
        AutoSize = False
      end
      item
        Items = <
          item
            Action = RichEditAlignCenter1
            ImageIndex = 12
            ShowCaption = False
            CommandProperties.GroupPosition = gpStart
          end
          item
            Action = RichEditAlignRight1
            ImageIndex = 11
            ShowCaption = False
            CommandProperties.GroupPosition = gpMiddle
          end
          item
            Action = RichEditAlignLeft1
            ImageIndex = 10
            ShowCaption = False
            CommandProperties.GroupPosition = gpEnd
          end
          item
            Action = RichEditUnderline1
            ImageIndex = 7
            NewRow = True
            ShowCaption = False
            ShortCut = 16469
            CommandProperties.GroupPosition = gpStart
          end
          item
            Action = RichEditItalic1
            ImageIndex = 6
            ShowCaption = False
            ShortCut = 16457
            CommandProperties.GroupPosition = gpMiddle
          end
          item
            Action = RichEditBold1
            ImageIndex = 5
            ShowCaption = False
            ShortCut = 16450
            CommandProperties.GroupPosition = gpEnd
          end>
        ActionBar = RibbonGroup8
      end
      item
        Items = <
          item
            Caption = '&Search:'
            CommandStyle = csControl
            CommandProperties.Width = 150
            CommandProperties.ContainedControl = ButtonedEdit1
            CommandProperties.LabelWidth = 50
            CommandProperties.Text = 'Search:'
          end
          item
            Caption = '&Pick:'
            CommandStyle = csControl
            KeyTip = 'p'
            NewRow = True
            CommandProperties.Width = 150
            CommandProperties.ContainedControl = TreeView1
            CommandProperties.LabelWidth = 50
          end>
        ActionBar = RibbonGroup7
      end>
    LargeImages = listLarge
    Images = listStandard
    Left = 224
    Top = 272
    StyleName = 'Ribbon - Luna'
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
    end
    object EditSelectAll1: TEditSelectAll
      Category = 'Edit'
      Caption = 'Select &All'
      Hint = 'Select All|Selects the entire document'
      ShortCut = 16449
    end
    object EditUndo1: TEditUndo
      Category = 'Edit'
      Caption = '&Undo'
      Hint = 'Undo|Reverts the last action'
      ImageIndex = 3
      ShortCut = 16474
    end
    object EditDelete1: TEditDelete
      Category = 'Edit'
      Caption = '&Delete'
      Hint = 'Delete|Erases the selection'
      ImageIndex = 4
      ShortCut = 46
    end
    object RichEditBold1: TRichEditBold
      Category = 'Format'
      AutoCheck = True
      Caption = '&Bold'
      Hint = 'Bold'
      ImageIndex = 5
      ShortCut = 16450
    end
    object RichEditItalic1: TRichEditItalic
      Category = 'Format'
      AutoCheck = True
      Caption = '&Italic'
      Hint = 'Italic'
      ImageIndex = 6
      ShortCut = 16457
    end
    object RichEditUnderline1: TRichEditUnderline
      Category = 'Format'
      AutoCheck = True
      Caption = '&Underline'
      Hint = 'Underline'
      ImageIndex = 7
      ShortCut = 16469
    end
    object RichEditStrikeOut1: TRichEditStrikeOut
      Category = 'Format'
      AutoCheck = True