LCL Internals - Resizing, Moving/fr: what changed

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

Old	New		Line
1	1		## Présentation
2	2
3	3		La bibliothèque LCL possède de nombreuses propriétés de redimensionnement (Left, Width, Anchors, Align, AnchorSide, AutoSize, Constraints, ChildSizing, ...) et des points d'ancrage (hooks)avec lesquels les applications peuvent modifier le comportement de l'application (OnResize, OnChangeBounds, ...). Comme tous ces éléments ne peuvent pas être calculés en une seule étape, les contrôles peuvent beaucoup se déplacer avant que les coordonnées finales ne soient disponibles. Pour réduire les risques de scintillement, la bibliothèque LCL n'envoie pas tous les déplacements ou redimensionnements à l'interface de la bibliothèque LCL. Par exemple, au cours des Begin/EndAlign et csLoading, aucun move/resize n'est envoyé à l'interface. Le widgetset va essayer de suivre les conseils de la bibliothèque LCL, mais il y a quelques cas où il ne le fera pas. Par exemple, les fiches(fenêtres de haut niveau) sont limitées par les politiques de gestion de fenêtres, et TPage dépend entièrement de la taille et du thème de TNotebook.
4	4
5	5		## Comment la bibliothèque LCL indique à l'interface de redimensionner / déplacer une poignée(handle)
6	6
7	7		Dans TWinControl.DoSendBoundsToInterface la fonction widget SetBounds est appelée
8	8
9		-	~~` TWSWinControlClass(WidgetSetClass).SetBounds(Self, Left, Top, Width, Height);`~~
	9	+	```text
	10	+	TWSWinControlClass(WidgetSetClass).SetBounds(Self, Left, Top, Width, Height);
	11	+	```
10	12
11	13		## Comment l'interface dit à la bibliothèque LCL de redimensionner / déplacer une poignée
12	14
13	15		### Quand la zone client d'une poignée a été redimensionnée
14	16
15	17		Note: Si le thème change, le cadre d'un TGroupBox peut changer. Cela laisse la taille et la position du TGroupBox inchangées, mais ce n'est pas le cas pour l'espace client. L'interface appelle
16	18
17		-	~~` LCLControl.InvalidateClientRectCache(false);`~~
	19	+	```text
	20	+	LCLControl.InvalidateClientRectCache(false);
	21	+	```
18	22
19	23		et envoie un message LM_SIZE comme ci-dessous.
20	24
21	25		### Quand une poignée d'un TWinControl a été redimensionnée / déplacée
22	26
23	27		#### Tout d'abord, l'interface de la bibliothèque LCL envoie un message LM_WINDOWPOSCHANGED
24	28
25	29		- x := Left (par rapport à 0,0 de la zone cliente du parent)
26	30		- y := Top
27	31		- cx := Width
28	32		- cy := Height
29	33
30	34		#### Ensuite, un message LM SIZE est envoyé
31	35
32	36		- Width
33	37		- Height
34	38		- SizeType est un drapeau d'un bit contenant Size_SourceIsInterface plus une des valeurs SIZENORMAL, SIZEICONIC, SIZEFULLSCREEN.
35	39
36	40		#### Ensuite, un message LM_MOVE est envoyé
37	41
38	42		- MoveType := Move_SourceIsInterface;
39	43		- XPos := Left (par rapport à 0,0 de la zone cliente du parent)
40	44		- YPos := Top
41	45
42	46		### Quand une fiche est à son maximum, minimisée ou restaurée, l'interface envoie un message LM_SIZE
43	47
44	48		- Width
45	49		- Height
46	50		- SizeType est un drapeau d'un bit contenant Size_SourceIsInterface plus une des valeurs SIZENORMAL, SIZEICONIC, SIZEFULLSCREEN.
47	51
48	52		## Comment la bibliothèque LCL obtient la taille/la position de la poignée de l'interface de la bibliothèque LCL
49	53
50	54		### LCLIntf.GetWindowSize(Handle, InterfaceWidth, InterfaceHeight)
51	55
52	56		Renvoie la largeur et la hauteur courante d'une poignée.
53	57
54	58		### LCLIntf.GetClientRect(Handle, Result)
55	59
56	60		Retourne la largeur et la hauteur actuelles(gauche et haut sont toujours à 0) de la zone cliente d'une poignée (= zone intérieure à l'intérieur des frontières / cadre d'un contrôle).
57	61
58	62		### TWSWinControlClass(WidgetSetClass).GetDefaultClientRect(Self, Left, Top, Width, Height, Result)
59	63
60	64		Cette fonction est appelée en premier lieu par la bibliothèque LCL pour obtenir le ClientRect. Si elle retourne false, la bibliothèque LCL va utiliser la fonction GetClientRect si une poignée a déjà été créée, sinon les valeurs chargées à partir du fichier .lfm. Si tout cela échoue, la valeur par défaut est Rect(0,0,Width,Height). GetDefaultClientRect peut être utilisée par l'interface de la bibliothèque LCL pour réduire le scintillement en offrant de bonnes valeurs avant que la poignée ne soit créée.
61	65
62	66		### GetWindowRelativePosition(Handle,NewLeft,NewTop)
63	67
64	68		Renvoie les valeurs Left et Top actuelles d'une poignée relative à l'espace client (0,0) de son parent.
65	69
66	70		## Contraintes
67	71
68	72		La bibliothèque LCL demande à l'interface les contraintes(min, max pour la largeur et la hauteur) avec la fonction
69	73
70		-	~~` GetControlConstraints`~~
	74	+	```text
	75	+	GetControlConstraints
	76	+	```
71	77
72	78		Par exemple: sous gtk, une barre de défilement horizontale a une hauteur fixe.
73	79
74	80		## Taille préférée
75	81
76	82		Pour un redimensionnement automatique d'un contrôle (par exemple, un TButton ou un TLabel), la bibliothèque LCL demande à l'interface la taille minimale pour rendre le contrôle agréable :
77	83
78		-	~~` TWSWinControlClass(WidgetSetClass).GetPreferredSize(Self, PreferredWidth, PreferredHeight, WithThemeSpace);`~~
	84	+	```text
	85	+	TWSWinControlClass(WidgetSetClass).GetPreferredSize(Self, PreferredWidth, PreferredHeight, WithThemeSpace);
	86	+	```
79	87
80	88		## Défilement
81	89
82	90		La bibliothèque LCL fait défiler les contrôles fils seulement virtuellement. Cela signifie que leurs propriétés Left et Top ne changent pas. Pour les faire défiler, utilisez la fonction d'interface
83	91
84		-	~~` TWSScrollingWinControlClass(WidgetSetClass).ScrollBy(Self, DeltaX, DeltaY);`~~
	92	+	```text
	93	+	TWSScrollingWinControlClass(WidgetSetClass).ScrollBy(Self, DeltaX, DeltaY);
	94	+	```
85	95
86	96		## Divers
87	97
88	98		### LCLIntf.GetClientBounds(Handle,Result);
89	99
90	100		Retourne le rectangle du client qui n'a pas défilé par rapport aux propriétés Top et Left de la poignée. En d'autres termes, c'est équivalent à :
91	101
92		-	~~` CurClientBounds := GetClientRect(Handle)`\~~
93		-	~~` OffsetRect(CurClientBounds,FrameBorderLeft,FrameBorderTop);`~~
	102	+	``` pascal
	103	+	CurClientBounds := GetClientRect(Handle)
	104	+	OffsetRect(CurClientBounds,FrameBorderLeft,FrameBorderTop);
	105	+	```
94	106
95	107		---
96	108		From the Free Pascal wiki, page "LCL Internals - Resizing, Moving/fr", as it stood on 2019-10-07 after a change by Gillou58, 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