Sign in Join
Wiki copytemporary

Anchor Sides/ru: what changed

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

Title: Anchor Sides/ru

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