Anchor Sides/ru: what changed

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