1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
object EasyDockMain: TEasyDockMain
Left = 280
Height = 285
Top = 123
Width = 510
ActiveControl = buDump
Caption = 'EasyDockMain'
ClientHeight = 285
ClientWidth = 510
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCreate = FormCreate
ShowHint = True
LCLVersion = '0.9.29'
object sb: TStatusBar
Left = 0
Height = 20
Top = 265
Width = 510
Panels = <>
end
object ToolBar1: TToolBar
Left = 0
Height = 29
Top = 0
Width = 510
Caption = 'ToolBar1'
TabOrder = 1
object Shape1: TShape
Left = 1
Height = 22
Hint = 'Click to create a floating window'
Top = 2
Width = 21
Brush.Color = clRed
OnMouseUp = Shape1MouseUp
end
object Shape2: TShape
Left = 22
Height = 22
Hint = 'Click to create a floating window'
Top = 2
Width = 24
Brush.Color = clLime
OnMouseUp = Shape1MouseUp
end
object Shape4: TShape
Left = 46
Height = 22
Hint = 'Click to create a floating window'
Top = 2
Width = 24
Brush.Color = clYellow
OnMouseUp = Shape1MouseUp
end
object Shape3: TShape
Left = 70
Height = 22
Hint = 'Click to create a floating window'
Top = 2
Width = 24
Brush.Color = clBlue
OnMouseUp = Shape1MouseUp
end
object lbDock: TLabel
Left = 213
Height = 22
Top = 2
Width = 97
Alignment = taCenter
AutoSize = False
Caption = 'Drag Me!'
DragKind = dkDock
DragMode = dmAutomatic
ParentColor = False
end
object buDump: TButton
Left = 155
Height = 22
Top = 2
Width = 58
Caption = 'Dump'
OnClick = buDumpClick
TabOrder = 0
end
object edDock: TEdit
Left = 327
Height = 21
Top = 2
Width = 56
DragKind = dkDock
TabOrder = 1
Text = 'Drag Me!'
end
object buManDock: TButton
Left = 383
Height = 22
Top = 2
Width = 75
Caption = 'buManDock'
OnClick = buManDockClick
TabOrder = 2
end
object swCaptions: TCheckBox
Left = 94
Height = 17
Hint = 'Show zone names?'
Top = 2
Width = 61
Caption = 'Captions'
OnChange = swCaptionsChange
TabOrder = 3
end
object buDockEdit: TButton
Left = 310
Height = 22
Top = 2
Width = 17
Caption = '->'
OnMouseDown = buDockEditMouseDown
TabOrder = 4
end
end
object pnlDocker: TPanel
Left = 0
Height = 236
Top = 29
Width = 510
Align = alClient
Caption = 'Dock here!'
TabOrder = 2
UseDockManager = False
OnDockOver = DockerDockOver
end
end
|
