object MainForm: TMainForm Left = 287 Top = 215 Width = 311 Height = 300 Caption = 'MainForm' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Memo1: TMemo Left = 0 Top = 25 Width = 303 Height = 211 Align = alClient Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = '宋体' Font.Style = [] Lines.Strings = ( '欢迎大家使用DockManager控件。这个Demo程序用来演示控件的使用方' + '法。' '其中在程序的工具栏上面有四个按钮:'#39'Delphi风格'#39','#39'VC++风格'#39','#39'VID风' + '格'#39'和'#39'VS.NET风格'#39'。' #39'Delphi风格'#39'用来创建Delphi停靠风格的窗体。' #39'VC++风格'#39'用来创建Visual C++停靠风格的窗体。' #39'VID风格'#39'用来创建Visual InterDev停靠风格的窗体。' #39'VS.NET风格'#39'用来创建Visual Studio.NET停靠风格的窗体。' '如果用户希望看到Delphi的停靠风格,请在设计期的时候把主窗体上面的' + #39'lbDockServer1'#39'控件的DockStyle属性设置成JvDockDelphiStyle1;然后' + '在运行期点击'#39'Delphi风格'#39'按钮创建停靠窗体,把这个停靠窗体拖动到主' + '窗体附近就可以实现Delphi的停靠风格。' '如果用户希望看到Visual C++的停靠风格,请在设计期的时候把主窗体上' + '面的'#39'lbDockServer1'#39'控件的DockStyle属性设置成JvDockVCStyle1;然后' + '在运行期点击'#39'VC++风格'#39'按钮创建停窗体,把这个停靠窗体拖动到主窗体' + '附近就可以实现Visual C++的停靠风格。' '如果用户希望看到Visual InterDev的停靠风格,请在设计期的时候把主' + '窗体上面的'#39'lbDockServer1'#39'控件的DockStyle属性设置成JvDockVIDStyle' + '1;然后在运行期点击'#39'VID风格'#39'按钮创建停靠窗体,把这个停靠窗体拖动到' + '主窗体附近就可以实现Visual InterDev的停靠风格。' '如果用户希望看到Visual Studio.NET的停靠风格,请在设计期的时候把' + '主窗体上面的'#39'lbDockServer1'#39'控件的DockStyle属性设置成lbVSNETDockS' + 'tyle1;然后在运行期点击'#39'VSNET风格'#39'按钮创建停靠窗体,把这个停靠窗体' + '拖动到主窗体附近就可以实现Visual Studio.NET的停靠风格。') ParentFont = False ScrollBars = ssVertical TabOrder = 0 WordWrap = False end object ToolBar1: TToolBar Left = 0 Top = 0 Width = 303 Height = 25 Anchors = [] AutoSize = True ButtonHeight = 21 ButtonWidth = 72 Caption = 'ToolBar1' Color = clBtnFace EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom] Flat = True ParentColor = False ShowCaptions = True TabOrder = 1 object ToolButton1: TToolButton Left = 0 Top = 0 AllowAllUp = True AutoSize = True Caption = 'Delphi Style' ImageIndex = 0 OnClick = DelphiStyleClick end object ToolButton2: TToolButton Left = 67 Top = 0 AllowAllUp = True AutoSize = True Caption = 'VC++ Style' ImageIndex = 1 OnClick = VCStyleClick end object ToolButton3: TToolButton Left = 130 Top = 0 AllowAllUp = True AutoSize = True Caption = 'VID Style' ImageIndex = 2 OnClick = VIDStyleClick end object ToolButton4: TToolButton Left = 185 Top = 0 Caption = 'VS.NET Style' ImageIndex = 3 OnClick = VSNETStyleClick end end object lbDockServer1: TJvDockServer LeftSplitterStyle.Cursor = crHSplit LeftSplitterStyle.ParentColor = False LeftSplitterStyle.Size = 4 TopSplitterStyle.Cursor = crVSplit TopSplitterStyle.ParentColor = False TopSplitterStyle.Size = 4 RightSplitterStyle.Cursor = crHSplit RightSplitterStyle.ParentColor = False RightSplitterStyle.Size = 4 BottomSplitterStyle.Cursor = crVSplit BottomSplitterStyle.ParentColor = False BottomSplitterStyle.Size = 4 DockStyle = JvDockVSNetStyle1 Left = 32 Top = 48 end object MainMenu1: TMainMenu AutoHotkeys = maManual Left = 112 Top = 48 object DockForm_Menu: TMenuItem Caption = 'Dockable Window' object DelphiStyle: TMenuItem Caption = 'Delphi Style' OnClick = DelphiStyleClick end object VCStyle: TMenuItem Caption = 'Visual C++ Style' OnClick = VCStyleClick end object VIDStyle: TMenuItem Caption = 'Visual InterDev Style' OnClick = VIDStyleClick end object VSNETStyle: TMenuItem Caption = 'Visual Studio.net Style' OnClick = VSNETStyleClick end end object ShowWindow_Menu: TMenuItem Caption = 'Show Widnow' end object DockInfo_Menu: TMenuItem Caption = 'Dock Information' object SaveToFile: TMenuItem Caption = 'Save To Ini File' OnClick = SaveToFileClick end object LoadFromFile: TMenuItem Caption = 'Load From Ini File' OnClick = LoadFromFileClick end object N24: TMenuItem Caption = '-' end object SaveToReg: TMenuItem Caption = 'Save To Registry' OnClick = SaveToRegClick end object LoadFromReg: TMenuItem Caption = 'Load From Registry' OnClick = LoadFromRegClick end end object DockOption_Menu: TMenuItem Caption = 'Dock Option' object TopDocked: TMenuItem Caption = 'Top Dockable' OnClick = TopDockedClick end object BottomDocked: TMenuItem Caption = 'Bottom Dockable' OnClick = BottomDockedClick end object LeftDocked: TMenuItem Caption = 'Left Dockable' OnClick = LeftDockedClick end object RightDocked: TMenuItem Caption = 'Right Dockable' OnClick = RightDockedClick end object N31: TMenuItem Caption = '-' end object AllDocked: TMenuItem Caption = 'All Dockable' OnClick = AllDockedClick end end end object JvDockVIDStyle1: TJvDockVIDStyle ConjoinServerOption.GrabbersSize = 18 ConjoinServerOption.SplitterWidth = 4 ConjoinServerOption.ActiveFont.Charset = GB2312_CHARSET ConjoinServerOption.ActiveFont.Color = clWhite ConjoinServerOption.ActiveFont.Height = -11 ConjoinServerOption.ActiveFont.Name = 'Tahoma' ConjoinServerOption.ActiveFont.Style = [fsBold] ConjoinServerOption.InactiveFont.Charset = GB2312_CHARSET ConjoinServerOption.InactiveFont.Color = 13160660 ConjoinServerOption.InactiveFont.Height = -11 ConjoinServerOption.InactiveFont.Name = 'Tahoma' ConjoinServerOption.InactiveFont.Style = [fsBold] ConjoinServerOption.TextAlignment = taLeftJustify ConjoinServerOption.ActiveTitleStartColor = 6956042 ConjoinServerOption.ActiveTitleEndColor = 15780518 ConjoinServerOption.InactiveTitleStartColor = clGray ConjoinServerOption.InactiveTitleEndColor = clSilver ConjoinServerOption.TextEllipsis = True ConjoinServerOption.SystemInfo = True TabServerOption.TabPosition = tpBottom TabServerOption.ActiveSheetColor = clBtnFace TabServerOption.InactiveSheetColor = clBtnShadow TabServerOption.ActiveFont.Charset = DEFAULT_CHARSET TabServerOption.ActiveFont.Color = clWindowText TabServerOption.ActiveFont.Height = -11 TabServerOption.ActiveFont.Name = 'MS Sans Serif' TabServerOption.ActiveFont.Style = [] TabServerOption.InactiveFont.Charset = DEFAULT_CHARSET TabServerOption.InactiveFont.Color = clWhite TabServerOption.InactiveFont.Height = -11 TabServerOption.InactiveFont.Name = 'MS Sans Serif' TabServerOption.InactiveFont.Style = [] TabServerOption.HotTrackColor = clBlue TabServerOption.ShowTabImages = False Left = 192 Top = 112 end object JvDockVCStyle1: TJvDockVCStyle ConjoinServerOption.GrabbersSize = 15 ConjoinServerOption.SplitterWidth = 4 Left = 112 Top = 112 end object JvDockDelphiStyle1: TJvDockDelphiStyle ConjoinServerOption.GrabbersSize = 12 ConjoinServerOption.SplitterWidth = 4 Left = 32 Top = 112 end object JvDockVSNetStyle1: TJvDockVSNetStyle ConjoinServerOption.GrabbersSize = 18 ConjoinServerOption.SplitterWidth = 4 ConjoinServerOption.ActiveFont.Charset = GB2312_CHARSET ConjoinServerOption.ActiveFont.Color = clWhite ConjoinServerOption.ActiveFont.Height = -11 ConjoinServerOption.ActiveFont.Name = 'Tahoma' ConjoinServerOption.ActiveFont.Style = [] ConjoinServerOption.InactiveFont.Charset = GB2312_CHARSET ConjoinServerOption.InactiveFont.Color = clBlack ConjoinServerOption.InactiveFont.Height = -11 ConjoinServerOption.InactiveFont.Name = 'Tahoma' ConjoinServerOption.InactiveFont.Style = [] ConjoinServerOption.TextAlignment = taLeftJustify ConjoinServerOption.ActiveTitleStartColor = 6956042 ConjoinServerOption.ActiveTitleEndColor = 6956042 ConjoinServerOption.InactiveTitleStartColor = clBtnFace ConjoinServerOption.InactiveTitleEndColor = clBtnFace ConjoinServerOption.TextEllipsis = True ConjoinServerOption.SystemInfo = True TabServerOption.TabPosition = tpBottom TabServerOption.ActiveSheetColor = clBtnFace TabServerOption.InactiveSheetColor = 15725559 TabServerOption.ActiveFont.Charset = DEFAULT_CHARSET TabServerOption.ActiveFont.Color = clWindowText TabServerOption.ActiveFont.Height = -11 TabServerOption.ActiveFont.Name = 'MS Sans Serif' TabServerOption.ActiveFont.Style = [] TabServerOption.InactiveFont.Charset = DEFAULT_CHARSET TabServerOption.InactiveFont.Color = 5395794 TabServerOption.InactiveFont.Height = -11 TabServerOption.InactiveFont.Name = 'MS Sans Serif' TabServerOption.InactiveFont.Style = [] TabServerOption.HotTrackColor = clBlue TabServerOption.ShowTabImages = True ChannelOption.ActivePaneSize = 100 ChannelOption.ShowImage = True ChannelOption.MouseleaveHide = True ChannelOption.HideHoldTime = 1000 Left = 32 Top = 176 end object PopupMenu2: TPopupMenu OnPopup = PopupMenu2Popup Left = 192 Top = 48 object ClientTopDocked: TMenuItem Caption = 'Top Dockable' Checked = True OnClick = ClientTopDockedClick end object ClientBottomDocked: TMenuItem Caption = 'Bottom Dockable' Checked = True OnClick = ClientBottomDockedClick end object ClientLeftDocked: TMenuItem Caption = 'Left Dockable' Checked = True OnClick = ClientLeftDockedClick end object ClientRightDocked: TMenuItem Caption = 'Right Dockable' Checked = True OnClick = ClientRightDockedClick end object N20: TMenuItem Caption = '-' end object ClientEachOtherDocked: TMenuItem Caption = 'Each Other Dockable' Checked = True OnClick = ClientEachOtherDockedClick end object ClientAllDocked: TMenuItem Caption = 'All Dockable' Checked = True OnClick = ClientAllDockedClick end object N21: TMenuItem Caption = '-' end object ClientDockorFloat: TMenuItem Caption = 'Dock' OnClick = ClientDockorFloatClick end object ClientHide: TMenuItem Caption = 'Hide' OnClick = ClientHideClick end end end