ribboneditortips_mainform.dfm

source code for the Marco Cantu s book Delphi 2009 Handbook

object RibbonEditorForm: TRibbonEditorForm
  Left = 0
  Top = 0
  Caption = 'RibbonEditor'
  ClientHeight = 585
  ClientWidth = 867
  Color = clBtnFace
  Constraints.MinHeight = 300
  Constraints.MinWidth = 400
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 13
  object Ribbon1: TRibbon
    Left = 0
    Top = 0
    Width = 867
    Height = 145
    ActionManager = ActionManager1
    ScreenTips = ScreenTipsManager1
    ApplicationMenu.Menu = RibbonApplicationMenuBar1
    Caption = 'RibbonEditor'
    QuickAccessToolbar.ActionBar = RibbonQuickAccessToolbar1
    Tabs = <
      item
        Caption = 'Editing'
        KeyTip = 'E'
        Page = RibbonPage1
      end
      item
        Caption = 'Advanced'
        KeyTip = 'A'
        Page = RibbonPage2
      end>
    TabIndex = 1
    ExplicitTop = -6
    DesignSize = (
      867
      145)
    StyleName = 'Ribbon - Luna'
    object RibbonApplicationMenuBar1: TRibbonApplicationMenuBar
      ActionManager = ActionManager1
      OptionItems = <>
      RecentItems = <>
    end
    object RibbonQuickAccessToolbar1: TRibbonQuickAccessToolbar
      Left = 49
      Top = 5
      Width = 75
      Height = 24
      ActionManager = ActionManager1
    end
    object RibbonPage1: TRibbonPage
      Left = 0
      Top = 52
      Width = 866
      Height = 93
      Caption = 'Editing'
      Index = 0
      KeyTip = 'E'
      object RibbonGroup1: TRibbonGroup
        Left = 4
        Top = 3
        Width = 124
        Height = 86
        ActionManager = ActionManager1
        Caption = 'Copy&Paste'
        GroupIndex = 0
        KeyTip = 'C'
      end
      object RibbonGroup2: TRibbonGroup
        Left = 130
        Top = 3
        Width = 62
        Height = 86
        ActionManager = ActionManager1
        Caption = 'Edit'
        GroupIndex = 1
        KeyTip = 'E'
      end
      object RibbonGroup3: TRibbonGroup
        Left = 194
        Top = 3
        Width = 173
        Height = 86
        ActionManager = ActionManager1
        Caption = 'Style'
        DialogAction = FontEdit1
        GroupIndex = 2
        KeyTip = 'S'
      end
      object RibbonGroup4: TRibbonGroup
        Left = 369
        Top = 3
        Width = 108
        Height = 86
        ActionManager = ActionManager1
        Caption = 'Alignment'
        GroupIndex = 3
        KeyTip = 'A'
      end
      object RibbonGroup5: TRibbonGroup
        Left = 479
        Top = 3
        Width = 68
        Height = 86
        ActionManager = ActionManager1
        Caption = 'Paragraph'
        GroupIndex = 4
        KeyTip = 'P'
      end
    end
    object RibbonPage2: TRibbonPage
      Left = 0
      Top = 52
      Width = 866
      Height = 93
      Caption = 'Advanced'
      Index = 1
      KeyTip = 'A'
      object RibbonGroup6: TRibbonGroup
        Left = 4
        Top = 3
        Width = 86
        Height = 86
        ActionManager = ActionManager1
        Caption = 'Internet'
        GroupIndex = 0
      end
      object RibbonGroup7: TRibbonGroup
        Left = 92
        Top = 3
        Width = 158
        Height = 86
        ActionManager = ActionManager1
        Caption = 'Controls'
        GroupIndex = 1
        object ButtonedEdit1: TButtonedEdit
          Left = 56
          Top = 2
          Width = 98
          Height = 21
          Images = listStandard
          RightButton.ImageIndex = 3
          RightButton.Visible = True
          TabOrder = 0
          TextHint = 'To Search'
        end
        object TreeView1: TTreeView
          Left = 56
          Top = 23
          Width = 98
          Height = 44
          Indent = 19
          TabOrder = 1
          Items.NodeData = {
            0303000000240000000000000000000000FFFFFFFFFFFFFFFF00000000000000
            000300000001036F006E0065002C0000000000000000000000FFFFFFFFFFFFFF
            FF00000000000000000000000001076F006E0065002E006F006E0065002C0000
            000000000000000000FFFFFFFFFFFFFFFF00000000000000000000000001076F
            006E0065002E00740077006F00300000000000000000000000FFFFFFFFFFFFFF
            FF00000000000000000000000001096F006E0065002E00740068007200650065
            00240000000000000000000000FFFFFFFFFFFFFFFF0000000000000000010000
            000103740077006F002C0000000000000000000000FFFFFFFFFFFFFFFF000000
            0000000000000000000107740077006F002E006F006E00650028000000000000
            0000000000FFFFFFFFFFFFFFFF00000000000000000200000001057400680072
            0065006500300000000000000000000000FFFFFFFFFFFFFFFF00000000000000
            00000000000109740068007200650065002E006F006E00650030000000000000
            0000000000FFFFFFFFFFFFFFFF00000000000000000000000001097400680072
            00650065002E00740077006F00}
        end
      end
      object RibbonGroup8: TRibbonGroup
        Left = 252
        Top = 3
        Width = 79
        Height = 86
        ActionManager = ActionManager1
        Caption = 'Lines'
        GroupAlign = gaHorizontal
        GroupIndex = 2
        KeyTip = 'G'
        Rows = 2
      end
    end
  end
  object RichEdit1: TRichEdit
    Left = 0
    Top = 145
    Width = 867
    Height = 440
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
  object ActionManager1: TActionManager
    ActionBars = <
      item
        Items.CaptionOptions = coAll
        Items = <
          item
            Action = EditCopy1
            ImageIndex = 1
            KeyTip = 'C'
            ShortCut = 16451
          end
          item
            Action = EditPaste1
            ImageIndex = 2
            KeyTip = 'P'
            ShortCut = 16470
          end
          item
            Action = EditCut1
            ImageIndex = 0
            KeyTip = 'T'
            ShortCut = 16472
          end
          item
            Action = EditDelete1
            ImageIndex = 4
            KeyTip = 'D'
            ShortCut = 46
          end>
        ActionBar = RibbonGroup1
      end
      item
        Items = <
          item
            Action = EditUndo1
            ImageIndex = 3
            KeyTip = 'U'
            ShortCut = 16474
          end
          item
            Action = EditSelectAll1
            KeyTip = 'A'
            ShortCut = 16449
          end>
        ActionBar = RibbonGroup2
      end
      item
        Items = <
          item
            Action = RichEditItalic1
            CommandStyle = csCheckBox
            ImageIndex = 6
            ShortCut = 16457
            CommandProperties.Width = -1