350 lines
12 KiB
Plaintext
350 lines
12 KiB
Plaintext
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
|