Anchor Sides/fr: what changed

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

Old	New		Line
1	1		Il y a quelques nouvelles propriétés et méthodes pour la disposition automatique des contrôles. Vous pouvez maintenant paramétrer des contrôles pour conserver une certaine distance à d'autres contrôles, ou se centrer relativement à d'autres contrôles. Voir ci-dessous pour des exemples.
2	2
3	3		Chacun des quatre côtés d'un contrôles (Gauche, Haut, Droit, Bas) peut maintenant être ancré/contraint à un côté d'un autre contrôle. Par exemple vous pouvez maintenant ancrer le côté gauche d'un TEdit au coté droit d'un TLabel. Chaque fois que le Label est déplacé ou redimensionné, le côté gauche du contrôle Edit suivra, ce qui se traduit normalement par un déplacement parallèlement au Label.
4	4
5	5		# Exemple 1
6	6
7		-	~~`+--------+ +-------+`\~~
8		-	~~`\| Label1 \| \| Edit1 \|`\~~
9		-	~~`+--------+ \| \|`\~~
10		-	~~` +-------+`~~
	7	+	```
	8	+	+--------+ +-------+
	9	+	\| Label1 \| \| Edit1 \|
	10	+	+--------+ \| \|
	11	+	+-------+
	12	+	```
11	13
12	14		## En 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		Vous pouvez définir la distance par l'intermédiaire des propriétés d'espacement de bordure:
21	23
22	24		``` pascal
23	25		Edit1.BorderSpacing.Left:=10;
24	26		```
25	27
26	28		La chose même peut être fait avec la méthode :
27	29
28	30		``` pascal
29	31		Edit1.AnchorToNeighbour(akLeft,10,Label1);
30	32		```
31	33
32	34		## Notes
33	35
34	36		Edit1.Left suivra Label1.Left+Label1.Width, pas les autres contours. Cela signifie, que le déplacement du Label1 déplacera Edit1. Mais le déplacement de Edit1 sera défait par la bibliothèque LCL. Si vous ancrez également le côté droit du Label1 au côté gauche de Edit1, vous avez créé un cercle vicieux, et ceci peut résulter comme avec d'autres propriétés de redimensionnement automatique en une boucle infinie. La détection de ces cercles vicieux n'est pas encore implémentée.
35	37
36	38		# Exemple 2
37	39
38	40		Vous pouvez ancrer le côté supérieur du contrôle Edit pour suivre le côté supérieur du Label:
39	41
40	42		+--------+ +-------+
41	43		\| Label1 \| \| Edit1 \|
42	44		+--------+ \| \|
43	45		+-------+
44	46
45	47		``` pascal
46	48		Edit1.AnchorSide[akTop].Side:=asrTop;
47	49		Edit1.AnchorSide[akTop].Control:=Label1;
48	50		Edit1.Anchors:=Edit1.Anchors+[akTop];
49	51		```
50	52
51	53		La même chose peut être fait avec la méthode:
52	54
53	55		``` pascal
54	56		Edit1.AnchorParallel(akTop,0,Label1);
55	57		```
56	58
57	59		# Exemple 3
58	60
59	61		Centrage du Label verticalement au Edit:
60	62
61	63		+-------+
62	64		+--------+ \| \|
63	65		\| Label1 \| \| Edit1 \|
64	66		+--------+ \| \|
65	67		+-------+
66	68
67	69		``` pascal
68	70		Edit1.AnchorSide[akTop].Side:=asrCenter;
69	71		Edit1.AnchorSide[akTop].Control:=Label1;
70	72		Edit1.Anchors:=Edit1.Anchors+[akTop]-[akBottom];
71	73		```
72	74
73	75		La même chose peut être fait avec la méthode:
74	76
75	77		``` pascal
76	78		Edit1.AnchorVerticalCenterTo(Label1);
77	79		```
78	80
79	81		Evidemment, Ancrer le côté inférieur du Edit1 n'a pas de sens avec le centrage.
80	82
81	83		# Nouvelle propriété
82	84
83	85		``` pascal
84	86		property AnchorSide[Kind: TAnchorKind]: TAnchorSide read GetAnchorSide;
85	87		```
86	88
87	89		Cette propriété n'est pas édité dans l'[inspecteur d' objets](http://wiki.lazarus.freepascal.org/IDE_Window:_Object_Inspector/fr). Vous pouvez l'éditer dans le concepteur par l'intermédiaire de l'éditeur d'ancres (Menu: Voir -\> Afficher l'[éditeur d'ancres](http://wiki.lazarus.freepascal.org/IDE_Window:_Anchor_Editor/fr), ou cliquez sur le bouton de propriété 'Anchors').
88	90
89	91		# Nouvelles méthodes pour configurer facilement des dispositions (de contrôles) communes
90	92
91	93		``` pascal
92	94		procedure AnchorToNeighbour(Side: TAnchorKind; Space: integer;
93	95		Sibling: TControl);
94	96		procedure AnchorParallel(Side: TAnchorKind; Space: integer;
95	97		Sibling: TControl);
96	98		procedure AnchorHorizontalCenterTo(Sibling: TControl);
97	99		procedure AnchorVerticalCenterTo(Sibling: TControl);
98	100		```
99	101
100	102		# See also
101	103
102	104		- [[Autosize / Layout]]
103	105		- [[Example: Anchors. How to reliably align dynamically created controls under changing visibility]]
104	106
105	107		---
106	108		From the Free Pascal wiki, page "Anchor Sides/fr", 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