jvcl driver development envionment
源代码在线查看： main.dfm
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
