Anchor Sides/de: what changed

Revision 4 to 5. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Es gibt einige neue Eigenschaften und Methoden für das automatische Layout von Steuerelementen. Sie können jetzt Bedienelemente so einstellen, dass sie einen bestimmten Abstand zu anderen Bedienelementen einhalten, oder relativ zu anderen Bedienelementen zentrieren. Siehe unten für Beispiele.
2	2
3	3		Jede der vier Seiten eines Bedienelements (Left, Top, Right, Bottom) kann jetzt verankert/angebunden werden an der Seite eines anderen Bedienelements. Zum Beispiel können Sie jetzt die linke Seite eines TEdit an der rechten Seite eines TLabel verankern. Jedes Mal, wenn das Label bewegt wird oder in der Größe angepasst wird, dann wird die linke Seite des Edit folgen, was normalerweise zu einer Bewegung des Edit parallel zum Label führt.
4	4
5	5		# Beispiel 1
6	6
7		-	~~`+--------+ +-------+`\~~
8		-	~~`\| Label1 \| \| Edit1 \|`\~~
9		-	~~`+--------+ \| \|`\~~
10		-	~~` +-------+`~~
	7	+	```
	8	+	+--------+ +-------+
	9	+	\| Label1 \| \| Edit1 \|
	10	+	+--------+ \| \|
	11	+	+-------+
	12	+	```
11	13
12	14		## Im Code
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		Sie können den Abstand mit den Eigenschaften von BorderSpacing definieren:
21	23
22	24		``` pascal
23	25		Edit1.BorderSpacing.Left:=10;
24	26		```
25	27
26	28		Das selbe kann mit der Methode gemacht werden:
27	29
28	30		``` pascal
29	31		Edit1.AnchorToNeighbour(akLeft,10,Label1);
30	32		```
31	33
32	34		## Anmerkungen
33	35
34	36		Edit1.Left wird Label1.Left+Label1.Width folgen, nicht umgekehrt. Das bedeutet, dass eine Bewegung von Label1 auch Edit1 bewegen wird. Aber eine Bewegung von Edit1 wird von der LCL annulliert. Wenn Sie auch die rechte Seite von Label1 an der linken Seite von Edit1 verankern, dann erzeugen sie einen Kreis. Dies kann zusammen mit einigen anderen Autosize-Eigenschaften eine Endlosschleife verursachen. Ist Parent.AutoSize auf true gesetzt, wird dies von der LCL ignoriert oder automatisch repariert.
35	37
36	38		## Mittels des Ankereditors
37	39
38	40		Der Ankereditor ist ein schwebendes Fenster, den Sie erreichen über das Menü Ansicht / Ankereditor anzeigen oder über die Schaltfläche in der Eigenschaft Anchors des Objektinspektors.
39	41
40	42		![](/wiki-images/d/dd/Anchor_Editor_de.png)
41	43
42	44		# Beispiel 2
43	45
44	46		Sie können die obere Seite von Edit1 so verankern, dass sie der oberen Seite von Label1 folgt:
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		Das selbe kann mit der Methode gemacht werden:
58	60
59	61		``` pascal
60	62		Edit1.AnchorParallel(akTop,0,Label1);
61	63		```
62	64
63	65		# Beispiel 3
64	66
65	67		Vertikale Zentrierung von Label1 an Edit1:
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		Das selbe kann mit der Methode gemacht werden:
80	82
81	83		``` pascal
82	84		Edit1.AnchorVerticalCenterTo(Label1);
83	85		```
84	86
85	87		Offensichtlich ist die Verankerung der unteren Seite von Edit1 bei einer Zentrierung nicht sinnvoll.
86	88
87	89		# Neue Eigenschaft
88	90
89	91		``` pascal
90	92		property AnchorSide[Kind: TAnchorKind]: TAnchorSide read GetAnchorSide;
91	93		```
92	94
93	95		Dies wird nicht im Objektinspektor veröffentlicht. Sie können sie zur Entwicklungszeit mit dem Ankereditor bearbeiten (Menü: Ansicht -\> Ankereditor anzeigen, oder auf den Button der 'Anchors' Eigenschaft klicken).
94	96
95	97		# Neue Methoden zur einfachen Konfiguration eines gebräuchlichen Layouts
96	98
97	99		``` pascal
98	100		procedure AnchorToNeighbour(Side: TAnchorKind; Space: integer;
99	101		Sibling: TControl);
100	102		procedure AnchorParallel(Side: TAnchorKind; Space: integer;
101	103		Sibling: TControl);
102	104		procedure AnchorHorizontalCenterTo(Sibling: TControl);
103	105		procedure AnchorVerticalCenterTo(Sibling: TControl);
104	106		procedure AnchorAsAlign(TheAlign: TAlign; Space: Integer);
105	107		```
106	108
107	109		AnchorVerticalCenterTo arbetet auch mit Eltern. Dann wird auf den Client-Bereich zentriert, das bedeutet die Mitte des Steuerelements ist bei ClientHeight div 2.
108	110
109	111		Das zentrierte Verankern ist noch nicht vollständig unterstützt für die Berechnung der Größe der Eltern. Wenn Sie beispielsweise ein Label in einer Groupbox1 zentriert verankern und Groupbox1.AutoSize auf true setzen, dann schrumpft die Höhe der Groupbox1 und läßt keinen Platz für das Label. Die Lösung besteht darin, auf ein Steuerelement zu zentrieren, das selbst nicht zentriert ist. Zum Beispiel zentriere ein Label1 auf eine ComboBox und nimm für die ComboBox die vorgegebenen Anker (Anchors=\[akLeft,akTop\]).
110	112
111	113		# Verankern an unsichtbaren Kontrollelementen
112	114
113	115		Ab Version 0.9.25 rev 12800 wurde das Verankern an unsichtbaren Kontrollelemente geändert, damit es intuitiver arbeitet. Beispiel: Die Kontrollelemente A, B und C sind wie folgt verankert (C.Left an B.Right und B.Left an A.Right):
114	116
115		-	~~` +---+ +---+ +---+`\~~
116		-	~~` \| A \| \| B \| \| C \|`\~~
117		-	~~` +---+ +---+ +---+`~~
	117	+	```
	118	+	+---+ +---+ +---+
	119	+	\| A \| \| B \| \| C \|
	120	+	+---+ +---+ +---+
	121	+	```
118	122
119	123		Ist B unsichtbar (Visible:=false), wird C.Left B überspringen und sich an der rechten Seite von A verankern, womit das Ganze dann so aussieht:
120	124
121		-	~~` +---+ +---+`\~~
122		-	~~` \| A \| \| C \|`\~~
123		-	~~` +---+ +---+`~~
	125	+	```
	126	+	+---+ +---+
	127	+	\| A \| \| C \|
	128	+	+---+ +---+
	129	+	```
124	130
125	131		# Zirkuläre Bezüge
126	132
127	133		Sie erhalten einen Zirkularbezug, wenn Sie zwei Seiten an der jeweils anderen verankern. Dies liefert eine unmögliche Verankerung. Die LCL bemerkt das, löst aber keine Exception aus, weil es sich um einen temporären Kreis handeln könnte. Zum Beispiel: Eine Reihe von Schaltflächen. Button1 ist links von Button2, Button2 ist links von Button3. Jetzt verändern wir die Reihenfolge zu: Button3, Button1, Button2. Wenn die Verankerung mit Button3 startet, entsteht ein temporärer Kreis der aufgelöst wird, wenn das Umordnen abgeschlossen ist. Die LCL entdeckt Kreise und wird den Button nicht verschieben. Kreise sind nicht die einzige Anomalie.
128	134
129	135		Es gibt eine Ausnahme zu dieser Regel. Wenn Parent.AutoSize wahr ist, dann bricht die LCL beim Autosize Kreise automatisch auf und schreibt eine Warnung über debugln (Windows: --debug-log.txt, Linux, et al: stdout). Welcher Anker aufgebrochen wird hängt von der Reihenfolge der Steuerelemente und der Seiten ab. Deshalb sind temporäre Kreise erlaubt mit AutoSize:=true wenn Sie die Änderungen einschließen in
130	136
131	137		``` pascal
132	138		Parent.DisableAutosizing;
133	139		try
134	140		// change anchors, aligns, bounds...
135	141		finally
136	142		Parent.EnableAutosizing;
137	143		end;
138	144		```
139	145
140	146		Der AutoSize-Algorithmus bricht nicht nur Kreisbezüge auf, sondern beseitigt auch Inkonsistenzen mit Align/AnchorSide.
141	147
142	148		Eventuell wäre es günstig, im Designer Hinweise darauf einzufügen oder ein Werkzeug zum Auflisten der Kreisbezüge und Inkonsistenzen.
143	149
144	150		# Siehe auch
145	151
146	152		- [[Autosize / Layout]]
147	153		- [[LCL AutoSizing]]
148	154		- [[Example: Anchors. How to reliably align dynamically created controls under changing visibility]]
149	155
150	156		---
151	157		From the Free Pascal wiki, page "Anchor Sides/de", as it stood on 2020-02-06 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).
152	158		Category: Lazarus/de

Back to history