ribbonnotepaddemomain.dfm

胜天进销存源码,国产优秀的进销存

object RibbonDemoMainForm: TRibbonDemoMainForm
  Left = 170
  Top = 153
  AutoScroll = False
  Caption = 'ExpressBars RibbonNotepadDemo'
  ClientHeight = 404
  ClientWidth = 854
  Color = clBtnFace
  Constraints.MinHeight = 270
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = RibbonResize
  PixelsPerInch = 96
  TextHeight = 14
  object dxStatusBar: TdxRibbonStatusBar
    Left = 0
    Top = 381
    Width = 854
    Height = 23
    Images = ilStatusBarImages
    Panels = <
      item
        PanelStyleClassName = 'TdxStatusBarToolbarPanelStyle'
        PanelStyle.ToolbarName = 'BarManagerBar13'
        Fixed = False
        Width = 116
      end
      item
        PanelStyleClassName = 'TdxStatusBarToolbarPanelStyle'
        PanelStyle.ToolbarName = 'BarManagerBar6'
        Bevel = dxpbRaised
        Width = 68
      end
      item
        PanelStyleClassName = 'TdxStatusBarKeyboardStatePanelStyle'
        PanelStyle.FullRect = True
        PanelStyle.CapsLockKeyAppearance.ActiveFontColor = 536870912
        PanelStyle.CapsLockKeyAppearance.InactiveFontColor = 536870912
        PanelStyle.CapsLockKeyAppearance.ActiveCaption = 'CAPS'
        PanelStyle.CapsLockKeyAppearance.InactiveCaption = 'CAPS'
        PanelStyle.NumLockKeyAppearance.ActiveFontColor = 536870912
        PanelStyle.NumLockKeyAppearance.InactiveFontColor = 536870912
        PanelStyle.NumLockKeyAppearance.ActiveCaption = 'NUM'
        PanelStyle.NumLockKeyAppearance.InactiveCaption = 'NUM'
        PanelStyle.ScrollLockKeyAppearance.ActiveFontColor = 536870912
        PanelStyle.ScrollLockKeyAppearance.InactiveFontColor = 536870912
        PanelStyle.ScrollLockKeyAppearance.ActiveCaption = 'SCRL'
        PanelStyle.ScrollLockKeyAppearance.InactiveCaption = 'SCRL'
        PanelStyle.InsertKeyAppearance.ActiveFontColor = 536870912
        PanelStyle.InsertKeyAppearance.InactiveFontColor = 536870912
        PanelStyle.InsertKeyAppearance.ActiveCaption = 'INS'
        PanelStyle.InsertKeyAppearance.InactiveCaption = 'OVR'
        Bevel = dxpbRaised
      end>
    Ribbon = Ribbon
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 536870912
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
  end
  object Ribbon: TdxRibbon
    Left = 0
    Top = 0
    Width = 854
    Height = 147
    ApplicationButton.Glyph.Data = {
      36090000424D3609000000000000360000002800000018000000180000000100
      2000000000000009000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000100000008000000140000
      0017000000110000000700000001000000000000000000000000000000040000
      000F00000017000000150000000A000000020000000000000000000000000000
      00000000000000000000000000000000000000000003172068801721678A0D13
      3B64000000280000001A000000090000000100000000000000020A0E2A3F1620
      608A1622608D000000260000001C0000000C0000000200000000000000000000
      000000000000000000000000000000000000151D5B673146E2FF3045E0FF3046
      E0FF1A25769D000000290000001A0000000800000001070A1C282D40C3F02F44
      D0FF2F47D0FF2637A5D204050E2A000000130000000500000000000000000000
      00000000000000000000000000000000000000000000223098AB3146E2FF3146
      E1FF3046E0FF1A2677990000002600000017000000081D2B819F3046D5FF3045
      D2FF1018456A233599BE1D2A7C9D0000000D0000000400000000000000000000
      000000000000000000000000000000000000000000000405101111194C561118
      4C572E42D2EE3045E0FF131B59790000002304050F272D43CBF03048D7FF202F
      8EB80000001504050E15131D5467000000030000000100000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000070A1F222839B4CD3045E0FF0D133C5B141C587D3046DCFF3048D9FF1018
      486E0000000D0000000100000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000040510112939B5CD2D41D1EF2639B3D33046DDFF2D41CDF10405
      0F2C000000070000000000000000000000000000000000000000000000000000
      0001000000030000000500000005000000050000000500000005000000050000
      00050000000400000001040510112939B5CD3146E1FF3045E0FF1E2B85AB0000
      0018000000050000000000000000000000000000000000000000000000000000
      00020000000C0000001600000019000000190000001900000019000000190000
      0019000000160000000E0000000A18216B7E3247E3FF3146E1FF0D133B660000
      00210000000E0000000300000000000000000000000000000000000000003A1F
      0C46633614806335148A6235138E6133138F6034128E5F32138C5E32118A5E32
      118A0000002400000021000000203242BCD33B4FE7FF344AE4FF2738B3D40405
      0F340000001F0000001000000004000000000000000000000000000000004928
      1056D8752CFFD7732CFFD4722BFFD37029FFD16F28FFD06F27FFCE6C27FFCD6C
      25FFCB6924FFCA6924FF5B382E964B5FEFFF4557ECFF2B3A9AB9394BD7F02D3C
      B7D1070A1E410000002200000013000000080000000400000001000000000000
      0000925120ABD8752EFFD7732CFFC66B29F06334138D000000210000000B2F37
      666A0E0803245F321183986E85FF5B6CF4FF5366F2FF1013305813193F584357
      E9FF3446C8E00C102E52000000270000001D0000001300000007000000000000
      0000000000000000000066371678D8752EFF9C5520C400000029000000185966
      AAAC454F888F0000001E6A75DCE86A7BFAFF7174DCFF5D311091000000282028
      60724A5EEDFF4658E9FF212D7B9B17205B800000002700000014000000000000
      0000000000000000000000000000AE6125CDD8752EFF6437148E000000231417
      222B8696EEEE6D7BCCD08295FFFF7C8DFFFFA8757BFFCA6922FF351C09660000
      001F2A33717C5365EFFF4B61ECFF4659E8FF161D4D6E00000019000000000000
      000000000000000000000000000076411B89DB782FFFBC6628E3000000290000
      00102C30444690A0EEEE93A4FFFF555E999DB15E21DFCB6C24FF934F1BC70000
      00280000000D212852565061D1DE5569EFFF4456CDDE00000008000000000000
      00010000000300000003000000014B2A1156DE7B31FFDB792FFF2B180A560000
      00150000000400000000000000000000000061341279CE6E27FFCD6B24FF0E07
      0339000000130000000300000000000000000000000000000000000000000000
      00030000000D000000100000000810090412E17C32FFDE7B31FF492811730000
      001B000000060000000000000000000000002B170835D06E27FFCE6C27FF4424
      0D72000000160000000400000000000000000000000000000000000000004E2C
      13584D2C1364000000230000001700000005D37632EFE17C34FF77421B9D0000
      0022000000090000000000000000000000001D100625D37029FFD17028FF532C
      1080000000160000000400000000000000000000000000000000000000007E48
      2089EB8539FF7C461F9A000000210000000B985525ACE47F35FFB4652AD50000
      00280000000D0000000100000000000000012B170939D5732BFFD47229FF542D
      1080000000130000000300000000000000000000000000000000000000004F2E
      1456ED863BFFAD622CC3000000270000001B6C3D1A7FE58037FFE47F35FF0F09
      04390000001500000007000000060000000B66371684D8752CFFD7732BFF4726
      0E6E0000000D0000000100000000000000000000000000000000000000000000
      0000BE6D30CCED863BFF7D472096000000242F1A0C4DE88338FFE78237FF3D22
      0F66000000230000001A0000001B4A29116DDD792FFFDB782EFFD8762CFF0F08
      0327000000060000000000000000000000000000000000000000000000000000
      0000100A0411AF642DBCED883CFFDD7D38EF7D472094EA8539FFE88338FF9A57
      26B76A3C1A8B6A3B198AD27632F0E17C34FFE07B32FFDD7931FF663816810000
      0007000000010000000000000000000000000000000000000000000000000000
      000000000000000000004F2E14566F401C79ED863BFFEB863BFFEB8539FFEA83
      39FFE88238FFE78037FFE58035FFE47F35FF965423AD4B2A115A000000040000
      0001000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000}
    ApplicationButton.Menu = ApplicationMenu
    ApplicationButton.ScreenTip = stAppMenu
    BarManager = BarManager
    ColorSchemeName = 'Blue'
    HelpButtonScreenTip = stHelpButton
    PopupMenuItems = [rpmiItems, rpmiQATPosition, rpmiQATAddRemoveItem, rpmiMinimizeRibbon]
    QuickAccessToolbar.Toolbar = BarManagerBar7
    SupportNonClientDrawing = True
    TabOrder = 1
    TabStop = False
    OnHelpButtonClick = RibbonHelpButtonClick
    OnHideMinimizedByClick = RibbonHideMinimizedByClick
    OnResize = RibbonResize
    object tabHome: TdxRibbonTab
      Active = True
      Caption = 'Home'
      Groups = <
        item
          ToolbarName = 'BarManagerBar12'
        end
        item
          ToolbarName = 'BarManagerBar1'
        end
        item
          ToolbarName = 'BarManagerBar2'
        end
        item
          ToolbarName = 'BarManagerBar3'
        end
        item
          ToolbarName = 'BarManagerBar5'
        end>
      KeyTip = 'H'
    end
    object tabAppearance: TdxRibbonTab
      Caption = 'Appearance'
      Groups = <
        item
          ToolbarName = 'BarManagerBar4'
        end
        item
          ToolbarName = 'BarManagerBar9'
        end
        item
          ToolbarName = 'BarManagerBar10'
        end>
      KeyTip = 'A'
    end
    object tabHelp: TdxRibbonTab
      Caption = 'Help'
      Groups = <
        item
          ToolbarName = 'BarManagerBar8'
        end
        item
          ToolbarName = 'BarManagerBar11'
        end>
      KeyTip = 'E'
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 147
    Width = 854
    Height = 234
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 8
    TabOrder = 6
    object Editor: TRichEdit
      Left = 8
      Top = 8
      Width = 838
      Height = 218
      Align = alClient
      ScrollBars = ssBoth
      TabOrder = 0
      OnChange = EditorChange
      OnMouseDown = EditorMouseDown
      OnSelectionChange = EditorSelectionChange
    end
  end
  object BarManager: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Categories.Strings = (
      'File'
      'Edit'
      'Format'
      'Help'
      'Appearance'
      'StatusBar'
      'Options')
    Categories.ItemsVisibles = (
      2
      2
      2
      2
      2
      2
      2)
    Categories.Visibles = (
      True
      True
      True
      True
      True
      True
      True)
    ImageOptions.Images = cxSmallImages
    ImageOptions.LargeImages = cxLargeImages
    LookAndFeel.Kind = lfOffice11
    PopupMenuLinks = <>
    Style = bmsStandard
    UseSystemFont = True
    Left = 16
    Top = 312
    DockControlHeights = (
      0
      0
      0
      0)
    object BarManagerBar2: TdxBar
      Caption = 'Editing'
      CaptionButtons = <>
      DockedLeft = 301
      DockedTop = 0
      FloatLeft = 122
      FloatTop = 175
      FloatClientWidth = 114
      FloatClientHeight = 79
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000020000000B0000001A0000002000000015000000050000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000010000000C0E0C096336271DDE412D1FF60B0A09B6010101290000
        0009000000010000000000000000000000000000000000000000000000000000
        0000000000040808073F6C5A4EF2F2CDAAFFFFD1A3FF533C2DFF101010D30303
        03470000000E0000000100000000000000000000000000000000000000050000
        000B000000121616158CD5C3B5FFFFE9D2FFFFE5C9FF8F735EFF414344FF1D1E
        1EE90505056200000014000000030000000000000000000000000808083F1A16
        14C60F0D0D90171717B4F3EAE3FFFFF1E5FFFFEFDFFFA19285FF8C8C8CFF7878
        78FF282828F8070707880000001A000000040000000000000000343332D0E7D7
        C7FF675547FF2F2F2FFFBAB8B7FFFFFFFDFFE6DFD9FFBCB8B5FFCBCBCBFFB5B5
        B5FF8C8C8CFF1D1D1DFF121212A90101012100000007000000017B7C7BF8FFFF
        FFFFA89C93FF8A8A8AFF656565FF8A8989FFBABABAFFE1E3E3FFE7E7E7FFE1E1
        E1FFBCBCBCFF6D6D6DFF686868FF222222C6040404350000000B747474F0E3E4
        E4FFD0D0D0FFE0E0E0FFC3C3C3FF6A6A6AFF646464FFA8A8A8FFE0E0E0FFF0F0
        F0FFD4D4D4FFD1D1D1FFC4C4C4FF9C9C9CFF464646E20E0E0E523C3C3C656F6F
        6FDABCBCBCFFDCDCDCFFF0F0F0FFC4C4C4FF787878FF585858FF707070FFAEAE
        AEFFE0E0E0FFF2F2F2FFEBEBEBFFE3E3E3FFCCCCCCFF666666E5000000000303
        0305292929494D4D4D86878787D7BCBCBCFBD9D9D9FFC4C4C4FF9B9B9BFF9E9E
        9EFF9E9E9EFFBFBFBFFFE9E9E9FFF3F3F3FFF3F3F3FFA9A9A9FB000000000000
        00000000000000000000010101012424243D464646798D8D8DCCB7B7B7F4D4D4
        D4FFCCCCCCFFA8A8A8FF8E8E8EEDC4C4C4F9DADADAFF808080BD000000000000
        00000000000000000000000000000000000000000000020202031C1C1C294242
        42717D7D7DBB969696DC2727273D25252539474747721414141C000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000}
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButtonFind'
        end
        item
          Visible = True
          ItemName = 'dxBarButtonReplace'
        end
        item
          BeginGroup = True
          ViewLevels = [ivlSmallIconWithText, ivlSmallIcon, ivlControlOnly]
          Visible = True
          ItemName = 'dxBarButtonClear'
        end
        item
          ViewLevels = [ivlSmallIconWithText, ivlSmallIcon, ivlControlOnly]
          Visible = True
          ItemName = 'dxBarButtonUndo'
        end
        item
          BeginGroup = True