ribbonone_mainform.dfm

来自「source code for the Marco Cantu s book D」· DFM 代码 · 共 1,035 行 · 第 1/4 页

          end
          item
            Action = RichEditUnderline1
            ImageIndex = 7
            ShortCut = 16469
          end
          item
            Action = RichEditBold1
            ImageIndex = 5
            ShortCut = 16450
          end>
        ActionBar = RibbonGroup1
      end
      item
        Items = <
          item
            Action = RichEditBullets1
            ImageIndex = 9
          end
          item
            Action = RichEditStrikeOut1
            ImageIndex = 8
          end>
        ActionBar = RibbonGroup2
      end
      item
        Items = <
          item
            Action = RichEditAlignLeft1
            ImageIndex = 10
          end
          item
            Action = RichEditAlignRight1
            ImageIndex = 11
          end
          item
            Action = RichEditAlignCenter1
            ImageIndex = 12
          end>
        ActionBar = RibbonGroup3
      end
      item
        Items = <
          item
            ChangesAllowed = [caModify]
            Items = <
              item
                Action = FileSaveAs1
                ImageIndex = 14
              end
              item
                Action = FileOpen1
                ImageIndex = 13
                ShortCut = 16463
              end>
            Caption = '&ActionClientItem0'
            KeyTip = 'F'
          end>
        ActionBar = RibbonApplicationMenuBar1
        AutoSize = False
      end
      item
        ActionBar = RibbonQuickAccessToolbar1
        AutoSize = False
      end>
    Images = ImageList1
    Left = 408
    Top = 208
    StyleName = 'Ribbon - Luna'
    object EditCut1: TEditCut
      Caption = 'Cu&t'
      Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy1: TEditCopy
      Caption = '&Copy'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Caption = '&Paste'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
    end
    object EditSelectAll1: TEditSelectAll
      Caption = 'Select &All'
      Hint = 'Select All|Selects the entire document'
      ShortCut = 16449
    end
    object EditUndo1: TEditUndo
      Caption = '&Undo'
      Hint = 'Undo|Reverts the last action'
      ImageIndex = 3
      ShortCut = 16474
    end
    object EditDelete1: TEditDelete
      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
      Caption = '&Strikeout'
      Hint = 'Strikeout'
      ImageIndex = 8
    end
    object RichEditBullets1: TRichEditBullets
      Category = 'Format'
      AutoCheck = True
      Caption = '&Bullets'
      Hint = 'Bullets|Inserts a bullet on the current line'
      ImageIndex = 9
    end
    object RichEditAlignLeft1: TRichEditAlignLeft
      Category = 'Format'
      AutoCheck = True
      Caption = 'Align &Left'
      Hint = 'Align Left|Aligns text at the left indent'
      ImageIndex = 10
    end
    object RichEditAlignRight1: TRichEditAlignRight
      Category = 'Format'
      AutoCheck = True
      Caption = 'Align &Right'
      Hint = 'Align Right|Aligns text at the right indent'
      ImageIndex = 11
    end
    object RichEditAlignCenter1: TRichEditAlignCenter
      Category = 'Format'
      AutoCheck = True
      Caption = '&Center'
      Hint = 'Center|Centers text between margins'
      ImageIndex = 12
    end
    object FileOpen1: TFileOpen
      Category = 'Search'
      Caption = '&Open...'
      Hint = 'Open|Opens an existing file'
      ImageIndex = 13
      ShortCut = 16463
    end
    object FileOpenWith1: TFileOpenWith
      Category = 'Search'
      Caption = 'Open with...'
    end
    object FileSaveAs1: TFileSaveAs
      Category = 'Search'
      Caption = 'Save &As...'
      Hint = 'Save As|Saves the active file with a new name'
      ImageIndex = 14
    end
    object FilePrintSetup1: TFilePrintSetup
      Category = 'Search'
      Caption = 'Print Set&up...'
      Hint = 'Print Setup'
    end
    object FilePageSetup1: TFilePageSetup
      Category = 'Search'
      Caption = 'Page Set&up...'
      Dialog.MinMarginLeft = 0
      Dialog.MinMarginTop = 0
      Dialog.MinMarginRight = 0
      Dialog.MinMarginBottom = 0
      Dialog.MarginLeft = 1000
      Dialog.MarginTop = 1000
      Dialog.MarginRight = 1000
      Dialog.MarginBottom = 1000
      Dialog.PageWidth = 8267
      Dialog.PageHeight = 11692
    end
    object FileRun1: TFileRun
      Category = 'Search'
      Browse = False
      BrowseDlg.Title = 'Run'
      Caption = '&Run...'
      Hint = 'Run|Runs an application'
      Operation = 'open'
      ShowCmd = scShowNormal
    end
    object FileExit1: TFileExit
      Category = 'Search'
      Caption = 'E&xit'
      Hint = 'Exit|Quits the application'
      ImageIndex = 15
    end
    object BrowseForFolder1: TBrowseForFolder
      Category = 'Search'
      Caption = 'BrowseForFolder1'
      DialogCaption = 'BrowseForFolder1'
      BrowseOptions = []
    end
    object SearchFind1: TSearchFind
      Category = 'Search'
      Caption = '&Find...'
      Hint = 'Find|Finds the specified text'
      ImageIndex = 16
      ShortCut = 16454
    end
    object SearchFindNext1: TSearchFindNext
      Category = 'Search'
      Caption = 'Find &Next'
      Hint = 'Find Next|Repeats the last find'
      ImageIndex = 17
      ShortCut = 114
    end
    object SearchReplace1: TSearchReplace
      Category = 'Search'
      Caption = '&Replace'
      Hint = 'Replace|Replaces specific text with different text'
      ImageIndex = 18
    end
    object SearchFindFirst1: TSearchFindFirst
      Category = 'Search'
      Caption = 'F&ind First'
      Hint = 'Find First|Finds the first occurance of specified text'
    end
    object BrowseURL1: TBrowseURL
      Category = 'Search'
      Caption = '&Browse URL'
      Hint = 'Browse URL'
    end
    object DownLoadURL1: TDownLoadURL
      Category = 'Search'
      Caption = '&Download URL'
      Hint = 'Download from URL'
    end
  end
end