david
ac9b7c9668
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@17 7f62d464-2af8-f54e-996c-e91b33f51cbe
227 lines
6.4 KiB
Plaintext
227 lines
6.4 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 32
|
|
Top = 93
|
|
Width = 965
|
|
Height = 678
|
|
Caption = 'Controlling Docking from Code'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
ShowHint = True
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object JvSplitter1: TJvSplitter
|
|
Left = 0
|
|
Top = 477
|
|
Width = 957
|
|
Height = 3
|
|
Cursor = crVSplit
|
|
Align = alBottom
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 113
|
|
Height = 477
|
|
Align = alLeft
|
|
Color = 15399897
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Top = 200
|
|
Width = 61
|
|
Height = 13
|
|
Caption = 'Grabber Size'
|
|
end
|
|
object ButtonSibDock: TButton
|
|
Left = 6
|
|
Top = 6
|
|
Width = 99
|
|
Height = 25
|
|
Hint = 'Create new dockable document window '
|
|
Caption = 'Sibling Dock'
|
|
TabOrder = 0
|
|
OnClick = ButtonSibDockClick
|
|
end
|
|
object Button2: TButton
|
|
Left = 6
|
|
Top = 164
|
|
Width = 99
|
|
Height = 25
|
|
Hint = 'Display number of windows docked in the Custom Docking Area.'
|
|
Caption = 'View Dock Tree'
|
|
TabOrder = 5
|
|
OnClick = Button2Click
|
|
end
|
|
object Button3: TButton
|
|
Left = 6
|
|
Top = 101
|
|
Width = 99
|
|
Height = 25
|
|
Caption = 'Save Layout'
|
|
TabOrder = 3
|
|
OnClick = Button3Click
|
|
end
|
|
object Button4: TButton
|
|
Left = 6
|
|
Top = 132
|
|
Width = 99
|
|
Height = 25
|
|
Caption = 'Load Layout'
|
|
TabOrder = 4
|
|
OnClick = Button4Click
|
|
end
|
|
object ButtonCreateTabDock: TButton
|
|
Left = 6
|
|
Top = 72
|
|
Width = 99
|
|
Height = 25
|
|
Hint = 'Create a tabbed multtiple document window'
|
|
Caption = 'Tab Dock'
|
|
TabOrder = 2
|
|
OnClick = ButtonCreateTabDockClick
|
|
end
|
|
object ButtonCreateConjoin: TButton
|
|
Left = 6
|
|
Top = 39
|
|
Width = 99
|
|
Height = 25
|
|
Hint = 'Create a tabbed multtiple document window'
|
|
Caption = 'Conjoined Dock'
|
|
TabOrder = 1
|
|
OnClick = ButtonCreateConjoinClick
|
|
end
|
|
object SpinEdit1: TSpinEdit
|
|
Left = 8
|
|
Top = 224
|
|
Width = 89
|
|
Height = 22
|
|
MaxValue = 100
|
|
MinValue = 0
|
|
TabOrder = 6
|
|
Value = 18
|
|
OnChange = SpinEdit1Change
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 113
|
|
Top = 0
|
|
Width = 844
|
|
Height = 477
|
|
Align = alClient
|
|
Caption = 'Custom Docking Area'
|
|
Color = clAppWorkSpace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindow
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 480
|
|
Width = 957
|
|
Height = 164
|
|
Align = alBottom
|
|
Caption = 'PanelBottom'
|
|
TabOrder = 2
|
|
object MemoTrace: TMemo
|
|
Left = 1
|
|
Top = 1
|
|
Width = 955
|
|
Height = 162
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
Lines.Strings = (
|
|
'Trace Messages go here.')
|
|
ParentFont = False
|
|
ScrollBars = ssBoth
|
|
TabOrder = 0
|
|
WordWrap = False
|
|
end
|
|
end
|
|
object dockServer: TJvDockServer
|
|
LeftSplitterStyle.Color = clGreen
|
|
LeftSplitterStyle.Cursor = crHSplit
|
|
LeftSplitterStyle.ParentColor = False
|
|
RightSplitterStyle.Color = clBlue
|
|
RightSplitterStyle.Cursor = crHSplit
|
|
RightSplitterStyle.ParentColor = False
|
|
TopSplitterStyle.Color = clYellow
|
|
TopSplitterStyle.Cursor = crVSplit
|
|
TopSplitterStyle.ParentColor = False
|
|
BottomSplitterStyle.Color = clRed
|
|
BottomSplitterStyle.Cursor = crVSplit
|
|
BottomSplitterStyle.ParentColor = False
|
|
OnGetClientAlignSize = dockServerGetClientAlignSize
|
|
OnFinishSetDockPanelSize = dockServerFinishSetDockPanelSize
|
|
OnCustomPanel = dockServerCustomPanel
|
|
LeftDock = False
|
|
TopDock = False
|
|
RightDock = False
|
|
BottomDock = False
|
|
DockStyle = JvDockVIDStyle1
|
|
CustomDock = False
|
|
Left = 288
|
|
Top = 136
|
|
end
|
|
object JvDockVIDStyle1: TJvDockVIDStyle
|
|
AlwaysShowGrabber = True
|
|
ConjoinServerOption.GrabbersSize = 20
|
|
ConjoinServerOption.SplitterWidth = 4
|
|
ConjoinServerOption.ActiveFont.Charset = DEFAULT_CHARSET
|
|
ConjoinServerOption.ActiveFont.Color = clWhite
|
|
ConjoinServerOption.ActiveFont.Height = -13
|
|
ConjoinServerOption.ActiveFont.Name = 'Trebuchet MS'
|
|
ConjoinServerOption.ActiveFont.Style = [fsBold]
|
|
ConjoinServerOption.InactiveFont.Charset = DEFAULT_CHARSET
|
|
ConjoinServerOption.InactiveFont.Color = 16311512
|
|
ConjoinServerOption.InactiveFont.Height = -13
|
|
ConjoinServerOption.InactiveFont.Name = 'Trebuchet MS'
|
|
ConjoinServerOption.InactiveFont.Style = [fsBold]
|
|
ConjoinServerOption.TextAlignment = taLeftJustify
|
|
ConjoinServerOption.ActiveTitleStartColor = 14898176
|
|
ConjoinServerOption.ActiveTitleEndColor = 16749885
|
|
ConjoinServerOption.InactiveTitleStartColor = 14653050
|
|
ConjoinServerOption.InactiveTitleEndColor = 15448477
|
|
ConjoinServerOption.TextEllipsis = True
|
|
ConjoinServerOption.SystemInfo = False
|
|
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
|
|
TabServerOption.ShowCloseButtonOnTabs = False
|
|
Left = 306
|
|
Top = 232
|
|
end
|
|
object DockIniStorage: TJvAppIniFileStorage
|
|
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
|
|
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
|
|
SubStorages = <>
|
|
Left = 422
|
|
Top = 306
|
|
end
|
|
end
|