Anchor Sides/ru: what changed

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

Old	New		Line
1	1		Есть несколько новых свойств и методов для автоматического расположения элементов управления. Теперь вы можете настроить элементы управления для поддержания определённого расстояния до других элементов управления или центрирования относительно других элементов управления. Смотрите пример ниже.
2	2
3	3		Каждая из четырёх сторон элемента управления (Left, Top, Right, Bottom) теперь может быть прикреплена/привязана к стороне другого элемента управления. Например, теперь вы можете привязать левую сторону TEdit к правой стороне TLabel. Каждый раз, когда Label перемещается или меняет размер, левая сторона Edit будет следовать за ней, что обычно приводит к перемещению Edit параллельно Label.
4	4
5	5		# Пример 1
6	6
7		-	~~`+--------+ +-------+`\~~
8		-	~~`\| Label1 \| \| Edit1 \|`\~~
9		-	~~`+--------+ \| \|`\~~
10		-	~~` +-------+`~~
	7	+	```
	8	+	+--------+ +-------+
	9	+	\| Label1 \| \| Edit1 \|
	10	+	+--------+ \| \|
	11	+	+-------+
	12	+	```
11	13
12	14		## В коде
13	15
14	16		``` pascal
15	17		Edit1.AnchorSide[akLeft].Side := asrRight;
16	18		Edit1.AnchorSide[akLeft].Control := Label1;
17	19		Edit1.Anchors := Edit1.Anchors + [akLeft];
18	20		```
19	21
20	22		Вы можете задать расстояние с помощью свойств BorderSpacing:
21	23
22	24		``` pascal
23	25		Edit1.BorderSpacing.Left := 10;
24	26		```
25	27
26	28		То-же самое может быть сделано с помощью метода:
27	29
28	30		``` pascal
29	31		Edit1.AnchorToNeighbour(akLeft, 10, Label1);
30	32		```
31	33
32	34		## Примечания
33	35
34	36		Edit1.Left будет следовать за Label1.Left+Label1.Width, но не наоборот. Это означает, что перемещение Label1 будет вызывать перемещение Edit1. Но перемещение Edit1 будет отменяться LCL. Если вы также привяжете правую сторону Label1 к левой стороне Edit1, вы создадите кольцо и в сочетании с некоторыми другими свойствами авторазмера это приведёт к циклу. Это игнорируется LCL или автоматически исправляется, когда Parent.AutoSize установлено в True.
35	37
36	38		## С помощью редактора якорей
37	39
38	40		Редактор якорей - плавающее окно, доступное через меню View / Anchor Editor или через кнопку в свойстве Anchors в инспекторе объектов.
39	41
40	42		![](/wiki-images/6/6d/Anchoreditor.png)
41	43
42	44		# Пример 2
43	45
44	46		Вы можете привязать верхний край Edit для следования за верхним краем Label:
45	47
46	48		+--------+ +-------+
47	49		\| Label1 \| \| Edit1 \|
48	50		+--------+ \| \|
49	51		+-------+
50	52
51	53		``` pascal
52	54		Edit1.AnchorSide[akTop].Side := asrTop;
53	55		Edit1.AnchorSide[akTop].Control := Label1;
54	56		Edit1.Anchors := Edit1.Anchors + [akTop];
55	57		```
56	58
57	59		То-же самое может быть сделано с помощью метода:
58	60
59	61		``` pascal
60	62		Edit1.AnchorParallel(akTop,0,Label1);
61	63		```
62	64
63	65		# Пример 3
64	66
65	67		Вертикальное центрирование Edit относительно Label:
66	68
67	69		+-------+
68	70		+--------+ \| \|
69	71		\| Label1 \| \| Edit1 \|
70	72		+--------+ \| \|
71	73		+-------+
72	74
73	75		``` pascal
74	76		Edit1.AnchorSide[akTop].Side := asrCenter;
75	77		Edit1.AnchorSide[akTop].Control := Label1;
76	78		Edit1.Anchors := Edit1.Anchors + [akTop] - [akBottom];
77	79		```
78	80
79	81		То-же самое может быть сделано с помощью метода:
80	82
81	83		``` pascal
82	84		Edit1.AnchorVerticalCenterTo(Label1);
83	85		```
84	86
85	87		Очевидно, что привязка нижнего края Edit1 не имеет смысла при центрировании.
86	88
87	89		# Новое свойство
88	90
89	91		``` pascal
90	92		property AnchorSide[Kind: TAnchorKind]: TAnchorSide read GetAnchorSide;
91	93		```
92	94
93	95		Это свойство не опубликовано в [[IDE Window: Object Inspector\|инспекторе объектов]]. Вы можете редактировать его в дизайнере с помощью [[IDE Window: Anchor Editor\|редактора якорей]]\
94	96		(меню View -\> View anchor editor или щелчок на кнопке свойства Anchors).
95	97
96	98		# Новые методы для лёгкого конфигурирования общего расположения
97	99
98	100		``` pascal
99	101		procedure AnchorToNeighbour(Side: TAnchorKind; Space: integer;
100	102		Sibling: TControl);
101	103		procedure AnchorParallel(Side: TAnchorKind; Space: integer;
102	104		Sibling: TControl);
103	105		procedure AnchorHorizontalCenterTo(Sibling: TControl);
104	106		procedure AnchorVerticalCenterTo(Sibling: TControl);
105	107		procedure AnchorAsAlign(TheAlign: TAlign; Space: Integer);
106	108		```
107	109
108	110		AnchorVerticalCenterTo работает также с Parent. Тогда центрирование будет происходить по клиентской области, это означает, что центр элемента управления будет в ClientHeight div 2.
109	111
110	112		Привязка по центру пока не полностью поддерживается при вычислении размера родителя. Например, когда вы помещаете привязанную по центру метку в Groupbox1 и устанавливаете Groupbox1.AutoSize в True, то высота Groupbox1 будет уменьшаться, не оставляя места для метки. Решение состоит в центрировании по элементу, который не центрирован. Например, центрируйте Label1 по ComboBox и используйте для ComboBox якоря по умолчанию (Anchors=\[akLeft,akTop\]).
111	113
112	114		# Привязка к невидимым элементам управления
113	115
114	116		Начиная с 0.9.25 rev 12800 привязка к невидимым элементам управления была изменена, чтобы работать более интуитивно. Например, ниже элементы управления A, B, C привязаны (C.Left к B.Right и B.Left к A.Right):
115	117
116		-	~~` +---+ +---+ +---+`\~~
117		-	~~` \| A \| \| B \| \| C \|`\~~
118		-	~~` +---+ +---+ +---+`~~
	118	+	```
	119	+	+---+ +---+ +---+
	120	+	\| A \| \| B \| \| C \|
	121	+	+---+ +---+ +---+
	122	+	```
119	123
120	124		Если B скрыт (Visible:=false), то C.Left будет пропускать B и использовать правый край A, в результате получим следующее:
121	125
122		-	~~` +---+ +---+`\~~
123		-	~~` \| A \| \| C \|`\~~
124		-	~~` +---+ +---+`~~
	126	+	```
	127	+	+---+ +---+
	128	+	\| A \| \| C \|
	129	+	+---+ +---+
	130	+	```
125	131
126	132		# Циклические ссылки
127	133
128	134		Вы можете создать циклические ссылки, привязав два края друг к другу, что создаёт невозможную привязку. LCL замечает это, но не генерирует исключения, поскольку этот цикл может быть времнным. Например, ряд кнопок: Button1 слева от Button2, Button2 слева от Button3. Теперь меняем порядок на следующий: Button3, Button1, Button2. Если перепривязка начата с Button3, временно создаётся цикл, который исправляется по завершению переупорядочивания. LCL обнаруживает цикл и не перемещает Button. Циклы - не единственная аномалия.
129	135
130	136		Есть одно исключение из этого правила. Если Parent.AutoSize установлено в True, то LCL будет автоматически разрывать циклы на autosize и писать предупреждение через debugln (windows: --debug-log.txt, linux, et al: stdout). Которая из привязок будет нарушена, зависит от порядка элементов управления и сторон. Таким образом, временные циклы остаются разрешёнными при AutoSize=true, если вы заключите изменение в:
131	137
132	138		``` pascal
133	139		Parent.DisableAutosizing;
134	140		try
135	141		// change anchors, aligns, bounds...
136	142		finally
137	143		Parent.EnableAutosizing;
138	144		end;
139	145		```
140	146
141	147		Алгоритм AutoSize не только разрушает циклы, но также исправляет несоответствия Align/AnchorSide.
142	148
143	149		# См. также
144	150
145	151		- [[Autosize / Layout]]
146	152		- [[Example: Anchors. How to reliably align dynamically created controls under changing visibility]]
147	153
148	154		---
149	155		From the Free Pascal wiki, page "Anchor Sides/ru", as it stood on 2020-02-09 after a change by GAN, 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).

Back to history