custtoolbar.dfm

Delphi的Office 2007风格界面控件

object Form1: TForm1
  Left = 364
  Top = 165
  Width = 516
  Height = 405
  Caption = 'AdvToolBar customizer'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object AdvDockPanel1: TAdvDockPanel
    Left = 0
    Top = 0
    Width = 508
    Height = 43
    MinimumSize = 3
    LockHeight = False
    Persistence.Location = plRegistry
    Persistence.Enabled = False
    ToolBarStyler = AdvToolBarOfficeStyler1
    UseRunTimeHeight = False
    Version = '2.0.0.0'
    object AdvToolBar1: TAdvToolBar
      Left = 3
      Top = 1
      Width = 119
      Height = 28
      AllowFloating = True
      CaptionFont.Charset = DEFAULT_CHARSET
      CaptionFont.Color = clWindowText
      CaptionFont.Height = -11
      CaptionFont.Name = 'MS Sans Serif'
      CaptionFont.Style = []
      TextAutoOptionMenu = 'Add or Remove Buttons'
      TextOptionMenu = 'Options'
      ToolBarStyler = AdvToolBarOfficeStyler1
      Images = ImageList1
      object AdvToolBarButton1: TAdvToolBarButton
        Left = 9
        Top = 2
        Width = 24
        Height = 24
        Appearance.CaptionFont.Charset = DEFAULT_CHARSET
        Appearance.CaptionFont.Color = clWindowText
        Appearance.CaptionFont.Height = -11
        Appearance.CaptionFont.Name = 'MS Sans Serif'
        Appearance.CaptionFont.Style = []
        Caption = 'Calculator'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ImageIndex = 0
        ParentFont = False
        Position = daTop
        Version = '2.0.0.0'
      end
      object AdvToolBarButton2: TAdvToolBarButton
        Left = 33
        Top = 2
        Width = 24
        Height = 24
        Hint = 'About'
        Appearance.CaptionFont.Charset = DEFAULT_CHARSET
        Appearance.CaptionFont.Color = clWindowText
        Appearance.CaptionFont.Height = -11
        Appearance.CaptionFont.Name = 'MS Sans Serif'
        Appearance.CaptionFont.Style = []
        Caption = 'About'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ImageIndex = 1
        ParentFont = False
        Position = daTop
        Version = '2.0.0.0'
        OnClick = AdvToolBarButton2Click
      end
      object AdvToolBarButton3: TAdvToolBarButton
        Left = 57
        Top = 2
        Width = 24
        Height = 24
        Hint = 'Settings'
        Appearance.CaptionFont.Charset = DEFAULT_CHARSET
        Appearance.CaptionFont.Color = clWindowText
        Appearance.CaptionFont.Height = -11
        Appearance.CaptionFont.Name = 'MS Sans Serif'
        Appearance.CaptionFont.Style = []
        Caption = 'Settings'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ImageIndex = 2
        ParentFont = False
        Position = daTop
        Version = '2.0.0.0'
        OnClick = AdvToolBarButton3Click
      end
      object Appearance: TAdvToolBarMenuButton
        Left = 81
        Top = 2
        Width = 24
        Height = 24
        Hint = 'Change toolbar appearance'
        Appearance.CaptionFont.Charset = DEFAULT_CHARSET
        Appearance.CaptionFont.Color = clWindowText
        Appearance.CaptionFont.Height = -11
        Appearance.CaptionFont.Name = 'MS Sans Serif'
        Appearance.CaptionFont.Style = []
        DropDownMenu = AdvPopupMenu1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ImageIndex = 3
        Position = daTop
        Version = '2.0.0.0'
      end
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 43
    Width = 508
    Height = 328
    Align = alClient
    Lines.Strings = (
      'Choose settings from the toolbar or click the toolbar options'
      'and customize the toolbar with clipboard actions or change'
      'the toolbar icon size etc ...')
    TabOrder = 2
  end
  object AdvToolBarCustomizer1: TAdvToolBarCustomizer
    AdvToolBar = AdvToolBar1
    LargeImages = ImageList2
    SmallImages = ImageList1
    Commands = <
      item
        Caption = 'Cut'
        ItemIndex = 4
        Action = EditCut1
      end
      item
        Caption = 'Copy'
        ItemIndex = 5
        Action = EditCopy1
      end
      item
        Caption = 'Paste'
        ItemIndex = 6
        Action = EditPaste1
      end
      item
        Caption = 'Undo'
        ItemIndex = 7
        Action = EditUndo1
      end
      item
        Caption = 'Delete'
        ItemIndex = 8
        Action = EditDelete1
      end>
    EnablePersistence = True
    FileName = '.\demo.ini'
    ButtonProperties.Caption = True
    ButtonProperties.Glyph = True
    ButtonProperties.Hint = True
    ButtonProperties.Visible = False
    ButtonProperties.ShowCaption = True
    DialogSettings.ToolBarLabel = 'ToolBar Items:'
    DialogSettings.CommandLabel = 'Commands'
    DialogSettings.CaptionLabel = 'Caption'
    DialogSettings.GlyphPosLabel = 'Glyph Position'
    DialogSettings.LargeIconCheck = 'Large Icon'
    DialogSettings.TopHint = 'Move to Top'
    DialogSettings.UpHint = 'Move Up'
    DialogSettings.DownHint = 'Move Down'
    DialogSettings.BottomHint = 'Move to Bottom'
    DialogSettings.AddHint = 'Add Item'
    DialogSettings.AddSeparatorHint = 'Add Separator'
    DialogSettings.DeleteHint = 'Delete Item'
    DialogSettings.DeleteAllHint = 'Delete All'
    DialogSettings.EditHint = 'Edit Item'
    DialogSettings.Caption = 'Customizer'
    DialogSettings.ButtonEditCaption = 'Customize Button'
    DialogSettings.ButtonEditCaptionLabel = 'Caption'
    DialogSettings.ButtonEditHintLabel = 'Hint'
    DialogSettings.ButtonEditIconLabel = 'Icon'
    DialogSettings.ButtonEditCaptionCheck = 'Show Caption'
    DialogSettings.ButtonEditVisibleCheck = 'Visible'
    DialogSettings.EditGlyph = True
    DialogSettings.EditCaption = True
    DialogSettings.EditGlyphPosition = True
    DialogSettings.LargeIcon = True
    Options.ReOrder = True
    Options.AddButton = True
    Options.AddSeparator = True