Sign in Join
Wiki copytemporary

Anchor Docking/zh CN: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

OldNewLine
11关于停靠的一般信息，请参阅[[Docking]]。
22
33## 概述
44
55停靠允许您将窗体组合起来，或将控件视为窗体。您可以使用鼠标将窗体拖放停靠在一起或取消停靠（拆分）它们。基本的拖动、停靠和取消停靠功能由LCL提供。但您需要停靠管理器来添加分割条和抓取区域，以及保存和恢复布局。
66
77锚点停靠自0.9.29版本起在*anchordocking.lpk*包中实现，用于您自己的Lazarus应用程序，如果您希望使Lazarus IDE窗口可停靠，则使用*AnchorDockingDsgn.lpk*。它易于使用，并提供了许多早期停靠包中不可用的功能和选项。
88
99您可以在以下位置找到代码示例：components/anchordocking/miniide/miniide1.lpi
1010
1111这意味着早期的TLazDockingManager和LDockCtrl单元已过时，现在已被弃用。
1212
1313### 特色
1414
1515- **Drag and dock \| 拖放停靠**: 添加了标题，可以拖动以用鼠标停靠控件。预览矩形将显示控件停靠的位置和方式。
1616- **Any layout \| 任何布局**: 通过使用LCL的锚点，几乎可以实现任何布局。您可以停靠到左、右、上、下、内部或外部，或像TPageControl中的页面一样。您可以通过弹出菜单放大停靠的控件。无需取消停靠整个布局。
1717- **What you see is how it is structured\|所见即所得**: 没有隐藏的面板来对齐行和列中的控件。锚点停靠确保窗体不重叠。
1818- **Splitters \| 分割条**会自动插入停靠的窗体之间，以允许调整大小。
1919- **Page docking \| 页面停靠**. 窗体不仅可以停靠到左/右/上/下，还可以停靠到页面中。将自动创建TPageControl以实现原生外观和感觉。页面可以包含任意停靠的窗体，包括分页停靠的窗体，允许嵌套页面和布局。当页面被取消停靠时，页面控件会自动删除。您可以拖放选项卡或使用弹出菜单移动页面。
2020- **Easy use\|易于使用**: 通过一行代码，您可以使窗体或控件可停靠。只需为它们提供唯一的名称。
2121- 不仅窗体，任何**TWinControl**都可以被设置为可停靠。
2222- 可以**保存/加载布局**。停靠控件的布局信息被存储，即使应用程序获得更多的可停靠控件或移除了一些控件，旧的布局文件仍然可以工作。信息存储在LCL的TConfigStorage抽象类中。因此，您可以使用例如TXMLConfigStorage将布局存储在xml文件中，或者编写您自己的存储来将布局存储在任何您想要的位置。
2323- 每个停靠的窗体都被放入一个停靠站点，提供一个可选的**标题**。标题显示停靠窗体的标题，并包含一个关闭按钮。您可以*拖动标题*来拖动窗体、取消停靠或将其停靠到另一个位置。标题可以位于四个边的任何一边，默认情况下会自动移动到较小的一边以节省空间。您可以自定义此设置。标题显示一个可自定义的提示，允许读取长标题。
2424- 当停靠站点被调整大小时，*子站点会自动缩放*。您可以关闭此功能。
2525- **Preserve size of forms\|保持窗体大小**. 例如，当将窗体停靠到站点的左侧时，停靠窗体的宽度保持不变。其他边和解除停靠也是如此。
2626- **Flickerless\|无闪烁**: 恢复时尝试重用现有的站点和分割条以减少窗体的创建和闪烁，并保留窗体的Z顺序。这允许快速切换布局。
2727- **Header popup menu\|标题弹出菜单**:
2828 - 锁定/解锁（禁用拖动）
2929 - 标题位置（自动、左、上、右、下），这与布局一起保存/恢复
3030 - 合并（例如，在将停靠页面移动到布局后）
3131 - 取消停靠（如果屏幕上没有地方取消停靠）
3232 - 放大左侧、顶部、右侧、底部的边
3333 - 关闭
3434 - 选项
3535- **Page popup menu\|页面弹出菜单**:
3636 - 锁定/解锁（禁用拖动）
3737 - 取消停靠（如果屏幕上没有地方取消停靠）
3838 - 页面控件的选项卡位置（顶部、底部、左侧、右侧），这与布局一起保存/恢复
3939 - 将页面移动到左侧、右侧、最左侧、最右侧
4040 - 关闭
4141 - 选项
4242- 窗体可以设置为停靠站点。然后它们可以在一侧停靠。但它们本身不能被停靠。
4343- 关闭按钮自动保存布局
4444- 强大的功能来改变布局。您可以使用拖放来移动窗体，并且可以在一次操作中取消停靠和停靠。有函数可以放大窗体并缩小其他窗体。这些函数也可以通过标题弹出菜单使用。见下文。
4545- 有一个IDE包可以使Lazarus IDE可停靠。它被称为anchordockingdsgn.lpk。请确保只安装一个停靠包。不要同时安装easydockmgr！
4646
4747### 待办事项
4848
4949- 设计时包：将所有布局文件添加到菜单中
5050- 简单的方法，在设计时使窗体可停靠（即无需编写任何代码）
5151- 最小化按钮和隐藏
5252- 再次显示时：恢复默认布局
5353- 页面的关闭按钮
5454- 在LCL中实现自动菜单合并（当两个带有主菜单的窗体停靠时）。
5555
5656## 使用方法一（为Lazarus IDE添加停靠支持）
5757
5858如果您不喜欢Lazarus IDE的默认“单独窗口”外观，而更喜欢单窗口（例如RAD Studio™），您可以安装一个名为**[[AnchorDockingDsgn]]**的包（lazarus/components/anchordocking/design/anchordockingdsgn.lpk）。这个包使IDE窗口可停靠。
5959
6060### 安装
6161
6262卸载任何其他停靠管理器（例如easydockmgrdsgn）。从Lazarus主菜单中选择“包” - “安装/卸载包”，并安装“anchordockingdsgn”包。
6363
6464成功安装该包并重新启动IDE后，IDE将以默认停靠布局启动，如下所示。请注意，AnchorDocking标题和分割条已添加到IDE的所有可停靠窗口中。如果标题不可见，请参阅下面的“选项”部分以了解如何启用/禁用它们。
6565
66-<figure>
6766<img src="2021-12-02_10_21_07-Debian_10.8_Buster_-_VMware_Workstation.png" title="2021-12-02_10_21_07-Debian_10.8_Buster_-_VMware_Workstation.png" width="1333" />
68-<figcaption>2021-12-02_10_21_07-Debian_10.8_Buster_-_VMware_Workstation.png</figcaption>
69-</figure>
7067
7168您可以通过抓取带有Anchordocking标题的可停靠窗口并将其拖放到其他位置来更改布局，或者通过添加到窗口边框的分割条来调整停靠窗口的大小。您还可以在标题上右键单击以获取其他选项，例如更改标题的外观，如下所示。
7269
7370您可以通过菜单项**工具 / 将窗口布局保存为默认**来保存布局。这将保存到~/.lazarus/anchordocklayout.xml，并在IDE启动时恢复。
7471
7572您还可以将布局保存到文件并在以后加载它们。
7673
7774从Lazarus 1.1开始，您可以传递命令行参数
7875
7976./lazarus --anchordocklayout=\<filename\>
8077
8178通过右键单击标题可以进一步调整外观（如标题）。
8279
83-<figure>
84-<img src="docking_headers.gif" title="docking_headers.gif" />
85-<figcaption>docking_headers.gif</figcaption>
86-</figure>
80+![](/wiki-images/8/8a/Docking_headers.gif)
8781
8882### 选项
8983
9084成功安装AnchorDockingDsgn包后，Lazarus选项对话框（“工具” - “选项” - “环境”）中添加了一个额外的配置菜单。
9185
92-<figure>
93-<img src="anchordocking_options.png" title="anchordocking_options.png" />
94-<figcaption>anchordocking_options.png</figcaption>
95-</figure>
86+![](/wiki-images/3/3a/Anchordocking_options.png)
9687
9788#### 调整大小时缩放
9889
9990当调整窗口大小时，所有内部停靠的窗体都将按相同的百分比缩放。
10091
10192#### 显示标题
10293
10394要停靠/取消停靠窗口，您需要启用此选项。
10495
10596#### 扁平化标题
10697
10798标题中没有3D框架。
10899
109100#### 标题顶部/左对齐
110101
111102标题根据这两个值自动放置在顶部或左侧：
112103
113104- 当（宽度/高度）*100\<=HeaderAlignTop时，将标题移动到顶部，默认值为80
114105- 当（宽度/高度）*100\>=HeaderAlignLeft时，将标题移动到左侧，默认值为120
115106- 否则，将标题保留在当前位置。
116107
117108这意味着标题默认情况下被放置在停靠控件的较小一侧。当控件被调整大小时，标题会切换到较小的一侧。
118109
119110#### 允许停靠站点被最小化
120111
121112添加了一个额外的最小化按钮，以便可以最小化站点。然后，它旁边的站点会获得更多空间。如果需要，可以轻松打开最小化的站点。
122113
123114#### 多行选项卡
124115
125116Lazarus 2.2中添加了此功能。如果操作系统支持多行选项卡（如Windows），并且选项卡不多，则它们将显示在多行中。
126117
127118#### 浮动窗口在最顶层
128119
129120Lazarus 2.2中添加了此功能。如果显示了未停靠的窗口，则将它们显示在主窗口的顶部。在自定义应用程序中，可以设置DockMaster.MainDockForm，然后所有浮动窗口都将显示在其顶部。如果未设置MainDockForm，则使用Application.MainForm。
130121
131122## 使用方法二（为您自己的应用程序添加停靠支持）
132123
133124### 快速入门
134125
135126将包**AnchorDocking**添加到项目检查器中的必需包中。
136127
137128然后将单元**AnchorDocking**添加到您的主单元（包含主窗体的单元）的uses部分。
138129
139130在主窗体的FormCreate中添加：
140131
141132``` pascal
142133 DockMaster.MakeDockSite(Self,[akBottom],admrpChild);
143134```
144135
145136对于其他可停靠的窗体，将所有对*Show*和*ShowOnTop*的调用替换为
146137
147138``` pascal
148139 DockMaster.MakeDockable(Form1,true,true);
149140```
150141
151142对于其他可停靠的窗体，将所有对*Visible:=true*的调用替换为
152143
153144``` pascal
154145 DockMaster.MakeDockable(Form1,true);
155146```
156147
157148移除或注释掉所有*Hide*、*Visible:=false*、*WindowState:=*的调用。
158149
159150### 先决条件
160151
161152- 您的项目必须使用包*AnchorDocking*。
162153- 所有可停靠的窗体都必须使用MakeDockable或MakeDockSite显示。不要使用*Show*、*BringToFront*、*ShowOnTop*、*Visible:=true*。当然，您可以有一些不可停靠的窗体，如提示或启动画面。
163154- 所有可停靠的窗体都必须是可自由调整大小的，即没有约束，没有BorderStyle bsDialog。
164155- 不要使用其他停靠系统。AnchorDocking与EasyDockMgr不兼容。
165156
166157### 使窗体可停靠
167158
168159有两种方法可以使窗体可停靠。您可以使用**DockMaster.MakeDockable**将窗体包装在一个停靠站点中。然后您的窗体可以完全自由地停靠和被停靠。您将对大部分窗体使用此方法，除了主窗体，因为gtk2和qt上仅支持主窗体。第二种方法是使用**DockMaster.MakeDockSite**。窗体可以停靠其他站点，但不能自身被停靠。您可能希望为主窗体使用*MakeDockSite*。 对于大多数其他窗体，您可能想使用这个：
169160
170161``` pascal
171162// 显示YourForm
172163// 如果尚未完成，将窗体包装在一个停靠站点中
173164DockMaster.MakeDockable(YourForm);
174165```
175166
176167以下是一些使用**DockMaster.MakeDockable**使窗体可停靠后的示例：
177168
178169![](/wiki-images/b/bc/Docksite1.png) ![](/wiki-images/c/c6/Docksite2.png)
179170
180171标题位置通常会自动完成，用户可以通过右键单击将其放置在四个边的任何一边。
181172
182173### 示例：miniide1
183174
184175示例可以在*lazarus/components/anchordocking/miniide/miniide1.lpi*中找到。它有一个在*unit1.pas*单元中的*mainform*，具有一个作为停靠站点的主菜单和几个可停靠的窗体。
185176
186-<figure>
187-<img src="Anchordocking_miniide1.png" title="Anchordocking_miniide1.png" />
188-<figcaption>Anchordocking_miniide1.png</figcaption>
189-</figure>
177+![](/wiki-images/a/a5/Anchordocking_miniide1.png)
190178
191179### 将主窗体设置为停靠站点
192180
193181在TMainIDE.FormCreate中，主窗体**MainIDE**被转换为一个停靠站点：
194182
195183``` pascal
196184DockMaster.MakeDockSite(Self,[akBottom],admrpChild);
197185```
198186
199187参数*\[akBottom\]*允许在MainIDE的底部停靠其他站点。参数*admrpChild*告诉DockMaster，当MainIDE被放大时，额外的空间将分配给停靠的站点。
200188
201189当用户将一个站点停靠到MainIDE的底部时，站点将被放置在MainIDE上（Site.Parent:=MainIDE），并设置Site.Align=alBottom。MainIDE上的其他控件必须与此兼容。例如，MainIDE有一个Align=alLeft的BtnPanel和一个Align=alClient的TNoteBook。请参阅[[Autosize / Layout|此处]]了解Align的工作原理。
202190
203191DockMaster会自动添加一个分割条：
204192
205-<figure>
206-<img src="Anchordocking_miniide_dockedse1.png" title="Anchordocking_miniide_dockedse1.png" />
207-<figcaption>Anchordocking_miniide_dockedse1.png</figcaption>
208-</figure>
193+![](/wiki-images/c/ca/Anchordocking_miniide_dockedse1.png)
209194
210195一旦一个可停靠的窗体被停靠，其标题就会显示在停靠标题栏中。
211196
212197#### 自定义停靠站点的要求
213198
214199在没有任何内容停靠到自定义停靠站点之前，您的窗体可以像普通窗体一样做任何事情。但是，当一个站点停靠到它上面时，一些属性和方法需要特别注意：
215200
216201- AutoSize=true可能会导致无限循环。禁用它或重写DoAutoSize/CalculatePreferredSize并特别注意。
217202- Constraints：DockMaster会清除最大Constraints，并在取消停靠时恢复它们。
218203- 锚定到对齐站点的子控件可能会重叠。请参阅[[Autosize / Layout|此处]]了解Align的工作原理。
219204- ChildSizing：间距属性（如LeftRightSpacing，TopBottomSpacing）可能会干扰停靠布局。
220205
221206### 按名称创建所有其他窗体的过程
222207
223208MainIDE设置了**DockMaster.OnCreateControl**事件，以允许DockMaster按名称创建窗体。这是恢复布局所必需的。
224209
225210``` pascal
226211DockMaster.OnCreateControl:=@DockMasterCreateControl;
227212```
228213
229214``` pascal
230215procedure TMainIDE.DockMasterCreateControl(Sender: TObject; aName: string; var
231216 AControl: TControl; DoDisableAutoSizing: boolean);
232217
233218 procedure CreateForm(Caption: string; NewBounds: TRect);
234219 begin
235220 AControl:=CreateSimpleForm(aName,Caption,NewBounds,DoDisableAutoSizing);
236221 end;
237222
238223begin
239224 // 首先检查窗体是否已存在
240225 // LCL Screen有一个所有现有窗体的列表。
241226 // 注意：请记住，LCL只允许窗体名称使用标准的Pascal标识符，并且不区分大小写
242227 AControl:=Screen.FindForm(aName);
243228 if AControl<>nil then begin
244229 // 如果它已经存在，只是根据请求禁用自动调整大小
245230 if DoDisableAutoSizing then
246231 AControl.DisableAutoSizing;
247232 exit;
248233 end;
249234 // 如果窗体尚不存在，则创建它
250235 if aName='CodeExplorer' then
251236 CreateForm('Code Explorer',Bounds(700,230,100,250))
252237 ...
253238 else if aName='DebugOutput' then
254239 CreateForm('Debug Output',Bounds(400,400,350,150));
255240end;
256241```
257242
258243创建一个窗体可以像这样简单：
259244
260245``` pascal
261246MyForm:=TMyForm.Create(Self);
262247if DoDisableAutoSizing then
263248 MyForm.DisableAutoSizing;
264249```
265250
266251但当然，您可以在那里放置所有类型的初始化代码。
267252
268253*DisableAutoSizing*减少了闪烁。确保您的窗体**Visible**属性设置为**false**。
269254
270255如果设置了参数**DoDisableAutoSizing**为*true*，请记得为窗体调用**DisableAutoSizing**，因为*Disable-*和*EnableAutosizing*调用必须平衡。如果您错过了*DisableAutosizing*，LCL稍后会引发异常： TControl.EnableAutoSizing SourceEditor1:TSimpleForm: missing DisableAutoSizing
271256
272-<figure>
273-<img src="MissingDisableAutoSizing.png" title="MissingDisableAutoSizing.png" />
274-<figcaption>MissingDisableAutoSizing.png</figcaption>
275-</figure>
257+![](/wiki-images/8/8e/MissingDisableAutoSizing.png)
276258
277259如果您调用**DisableAutoSizing**过多，您的窗体将不会出现和/或无法正确调整大小，因为LCL正在等待永远不会到来的*EnableAutoSizing*调用。
278260
279261### 显示窗体
280262
281263当要显示一个窗体时，您可能使用过类似**MyForm.Show**的东西。现在您应该使用
282264
283265``` pascal
284266DockMaster.MakeDockable(MyForm);
285267```
286268
287269这将把MyForm包装在一个停靠站点中并显示它。它足够聪明，可以判断窗体是否已经被包装在一个停靠站点中。
288270
289271如果您设置了**DockMaster.OnCreateControl**事件，您可以使用这个：
290272
291273``` pascal
292274DockMaster.ShowControl('MyForm',true);
293275```
294276
295277### 通过代码手动停靠
296278
297279使用过程**DockMaster.ManualDock**将一个站点停靠到另一个站点或停靠到另一个站点内部。
298280
299281``` pascal
300282procedure ManualDock(SrcSite, TargetSite: TAnchorDockHostSite; Align: TAlign; TargetControl: TControl = nil);
301283```
302284
303285- **SrcSite**是要停靠的站点。如果SrcSite已经被停靠，它将首先被取消停靠。
304286- **TargetSite**是SrcSite将被停靠到或停靠为邻居的站点。
305287- **TargetControl**指定停靠为邻居（=nil）、作为内部邻居（=TargetSide）或在页面前面（=一个TAnchorDockPage）。
306288
307289### 通过代码手动取消停靠
308290
309291使用过程**DockMaster.ManualFloat**将一个站点从其邻居中取消停靠并创建一个浮动的顶层窗体。嵌入的控件仍然嵌入在TAnchorDockHostSite中。
310292
311293``` pascal
312294procedure ManualFloat(AControl: TControl);
313295```
314296
315297您可以提供一个TAnchorDockHostSite或嵌入在TAnchorDockHostSite中的控件（例如，使用MakeDockable制作的窗体）作为参数。站点将被放置在相同的屏幕位置。
316298
317299### 保存布局
318300
319301DockMaster允许将当前布局保存到TConfigStorage。miniide示例使用了xml版本：
320302
321303``` pascal
322304procedure TMainIDE.SaveLayout(Filename: string);
323305var
324306 XMLConfig: TXMLConfigStorage;
325307begin
326308 try
327309 // 创建一个新的xml配置文件
328310 XMLConfig:=TXMLConfigStorage.Create(Filename,false);
329311 try
330312 // 保存所有窗体的当前布局
331313 DockMaster.SaveLayoutToConfig(XMLConfig);
332314 XMLConfig.WriteToDisk;
333315 finally
334316 XMLConfig.Free;
335317 end;
336318 except
337319 on E: Exception do begin
338320 MessageDlg('错误',
339321 '将布局保存到文件'+Filename+'时出错:'#13+E.Message,mtError,
340322 [mbCancel],0);
341323 end;
342324 end;
343325end;
344326```
345327
346328### 加载布局
347329
348330``` pascal
349331procedure TMainIDE.LoadLayout(Filename: string);
350332var
351333 XMLConfig: TXMLConfigStorage;
352334begin
353335 try
354336 // 加载xml配置文件
355337 XMLConfig:=TXMLConfigStorage.Create(Filename,True);
356338 try
357339 // 恢复布局
358340 // 这将关闭不需要的窗体，并为所有需要的窗体调用OnCreateControl
359341 DockMaster.LoadLayoutFromConfig(XMLConfig);
360342 finally
361343 XMLConfig.Free;
362344 end;
363345 except
364346 on E: Exception do begin
365347 MessageDlg('错误',
366348 '从文件'+Filename+'加载布局时出错:'#13+E.Message,mtError,
367349 [mbCancel],0);
368350 end;
369351 end;
370352end;
371353```
372354
373355### 放大/缩小
374356
375357锚点停靠管理器可以放大/缩小停靠的邻居窗体。这可以通过停靠标题栏的弹出菜单或使用函数**DockMaster.ManualEnlarge**在代码中完成：
376358
377359``` pascal
378360function ManualEnlarge(Site: TAnchorDockHostSite; Side: TAnchorKind; OnlyCheckIfPossible: boolean): boolean;
379361```
380362
381363Site是一个子站点，Side是要扩展的Site的侧边。如果只想测试是否可以放大，则将OnlyCheckIfPossible设置为true。
382364
383365### 放大一个，缩小另一个
384366
385367缩小邻居“对象检查器”，放大“消息”：右键单击“消息”的标题栏，然后点击“放大右侧”。两个分割条将被调整大小。
386368
387369![](/wiki-images/1/15/Anchordocking_before_enlarge1.png) 放大“消息”到右侧： ![](/wiki-images/f/f8/Anchordocking_after_enlarge1.png)
388370
389371### 放大一个，缩小多个
390372
391373缩小一侧的分割条，放大两个相邻的分割条，旋转后面的分割条，放大控件，缩小旋转分割条上的控件。右键单击“源代码编辑器1”的标题栏，然后点击“放大底部”。
392374
393375![](/wiki-images/c/cb/Anchordocking_before_enlarge2.png) 变为 ![](/wiki-images/4/42/Anchordocking_after_enlarge2.png)
394376
395377### 一般停靠选项
396378
397379AnchorDocking包提供了一个对话框来设置DockMaster的一些属性。该对话框位于AnchorDockOptionsDlg单元中，您可以简单地使用它：
398380
399381``` pascal
400382uses ... AnchorDockOptionsDlg;
401383...
402384procedure TMainIDE.FormCreate(Sender: TObject);
403385...
404386begin
405387 ...
406388 DockMaster.OnShowOptions:=@ShowAnchorDockOptions;
407389 ...
408390end;
409391```
410392
411393这将向停靠标题栏和页面的弹出菜单中添加一个新的菜单项“停靠选项”。
412394
413395## 为什么使用锚点而不是对齐？
414396
415397锚点允许创建任何可能的矩形布局。对齐是有限制的。对齐与面板结合使用理论上可以创建很多布局，但仍然不是全部。而且，一些操作（如放大/缩小）使用对齐/面板比使用锚点更复杂。对齐对于少数窗体来说工作得很好，但停靠的窗体越多，对齐的缺点就越明显。
416398
417399### 使用对齐可以创建的布局
418400
419401对齐只能创建以下布局：
420402
421-<figure>
422-<img src="Anchordocking_align_layout1.png" title="Anchordocking_align_layout1.png" />
423-<figcaption>Anchordocking_align_layout1.png</figcaption>
424-</figure>
403+![](/wiki-images/1/13/Anchordocking_align_layout1.png)
425404
426405alTop控件始终位于顶部，填满整个水平宽度。这是因为LCL首先将所有控件与alTop对齐，然后是alBottom、alLeft、alRight，最后是alClient。
427406
428407### 使用对齐和面板可以创建的布局
429408
430409通过使用隐藏的面板，可以嵌套对齐布局。然后可以创建任何可以递归地分成两半的布局。例如，您可以创建：
431410
432-<figure>
433-<img src="Anchordocking_align_panels_layout1.png" title="Anchordocking_align_panels_layout1.png" />
434-<figcaption>Anchordocking_align_panels_layout1.png</figcaption>
435-</figure>
411+![](/wiki-images/0/0e/Anchordocking_align_panels_layout1.png)
436412
437413这只需要一个隐藏的面板。
438414
439415### 更改布局
440416
441417现在用户想要水平放大“FPDocEditor”（并缩小“CodeExplorer”）。使用“AnchorDocking”，您只需右键单击“FPDocEditor”的标题栏，然后点击“放大右侧”。
442418
443-<figure>
444-<img src="Anchordocking_align_panels_layout2.png" title="Anchordocking_align_panels_layout2.png" />
445-<figcaption>Anchordocking_align_panels_layout2.png</figcaption>
446-</figure>
419+![](/wiki-images/8/88/Anchordocking_align_panels_layout2.png)
447420
448421其他停靠引擎至少需要两个面板。一个用于“SrcEditor”、“Messages”、“FPDocEdit”、“CodeExpl”，另一个用于“SrcEdit”和“Messages”。大多数停靠布局器甚至不提供以这种方式更改布局的简单方法。允许这种布局更改的算法必须分析整个结构，就好像没有面板一样，并且必须重新分配很多东西。基本上，该算法必须执行与锚点停靠算法相同的操作，但还需要将布局转换为对齐加上隐藏面板的额外工作。
449422
450423### 使用对齐和面板无法创建的布局
451424
452425现在用户想要水平放大“源代码编辑器1”（并缩小“对象检查器”）：
453426
454-<figure>
455-<img src="Anchordocking_impossible_with_align_panels1.png" title="Anchordocking_impossible_with_align_panels1.png" />
456-<figcaption>Anchordocking_impossible_with_align_panels1.png</figcaption>
457-</figure>
427+![](/wiki-images/e/e9/Anchordocking_impossible_with_align_panels1.png)
458428
459429这个布局使用对齐和面板是无法实现的，因为您无法将其切成两半。与以下情况相同：
460430
461-<figure>
462-<img src="Anchordocking_impossible_with_align_panels2.png" title="Anchordocking_impossible_with_align_panels2.png" />
463-<figcaption>Anchordocking_impossible_with_align_panels2.png</figcaption>
464-</figure>
431+![](/wiki-images/1/1e/Anchordocking_impossible_with_align_panels2.png)
465432
466433### 结论
467434
468435使用隐藏面板的对齐允许您轻松地创建一个简单的停靠管理器，适用于少数窗体，但它始终会限制用户。对齐对于行和列布局很有用，但对于表格布局则不然。锚点停靠甚至适用于复杂的窗体。
469436
470437## 旧版/已弃用的锚点停靠
471438
472439### 创建一个TLazDockingManager
473440
474441``` pascal
475442 DockingManager:=TLazDockingManager.Create(Self);
476443```
477444
478445作为参数的Self仅用作Owner。这意味着，当主窗体被释放时，DockingManager也会被释放。您可以使用*nil*并自行释放DockingManager。
479446
480447### 可选：加载配置
481448
482449您可以从磁盘加载用户配置。
483450
484451``` pascal
485452 Config:=TXMLConfigStorage.Create('config.xml',true);
486453 DockingManager.LoadFromConfig(Config);
487454 Config.Free;
488455```
489456
490457这将加载文件*config.xml*。该配置可以使用SaveToConfig函数创建。见下文。
491458
492459### 使窗体/控件可停靠
493460
494461为每个应该可停靠的窗体/控件创建一个TLazControlDocker
495462
496463``` pascal
497464 ControlDocker1:=TLazControlDocker.Create(Self);
498465 ControlDocker1.Name:='DockerForm1';
499466 ControlDocker1.Manager:=DockingManager;
500467```
501468
502469### 可选：将用户配置保存到磁盘
503470
504471当程序关闭时，您可以将用户配置保存到磁盘
505472
506473``` pascal
507474 Config:=TXMLConfigStorage.Create('config.xml',true);
508475 DockingManager.SaveToConfig(Config);
509476 Config.WriteToDisk;
510477 Config.Free;
511478```
512479
513480## 另请参阅
514481
515482- [[AnchorDockingDsgn]] 在Lazarus IDE中的AnchorDocking
516483- [[Anchor Docking Step by step example|Anchor Docking: 逐步示例]]
517484- [[Docking]] 停靠一般信息
518485- [[EasyDockingManager]] - 一个具有更简单布局引擎和更少选项的停靠实现替代方案。
519486
520487---
521488*From the Free Pascal wiki, page "Anchor Docking/zh CN", as it stood on 2024-05-07 after a change by Hieroly, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*
522489Category: Docking

Back to history