Anchor Sides/ru: what changed

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