LCL Tips/fr

│ Deutsch (de) │ English (en) │ français (fr) │ русский (ru) │ 中文（中国大陆）‎ (zh_CN) │

Créer des contrôles manuellement sans surcoût de traîtement

Choisir le Parent à la fin

Pour les utilisateurs de Delphi: A la différence de Delphi la bibliothèque LCL permet de paramétrer presque toutes les propriétés dans n'importe quel ordre. Par exemple sous Delphi vous ne pouvez pas placer un contrôle sans un parent . La bibliothèque LCL permet ceci et cette fonctionnalité peut être employée pour réduire le surcoût de traîtement supplémentaire(overhead).

<delphi>

 with TButton.Create(Form1) do begin
   // 1. créer un bouton fixe la taille par défaut 
   // 2. change la position. Cela n'a aucun effet secondaire, car Parent=nil
   SetBounds(10,10,Width,Height);
   // 3. change la taille selon le thème. Pas d'effet encore , car Parent=nil
   AutoSize:=true;
   // 4. taille changeante en raison de AutoSize=true. Pas d'effet encore, car Parent=nil
   Caption:='Ok';
   // 5. Choix du parent. Maintenant tout ce qui est ci-dessus se met en place, mais dans une seule action.
   Parent:=Form1;
 end;

</delphi> Quand un contrôle a un parent, alors toutes les propriétés prennent effet immédiatement. Sans un parent beaucoup de propriétés ne font rien de plus que de stocker la valeur. Et dès que le parent est choisi chaque propriété est appliquée. C'est particulièrement vrai pour les grands enfants :

<delphi>

 GroupBox1:=TGroupBox.Create(Self);
 with GroupBox1 do begin
   with TButton1.Create(Self) do begin
     AutoSize:=true;
     Caption:='Click me';
     Parent:=GroupBox1;
   end;
   Parent:=Form1;
 end;
 Form1.Show;

</delphi>

Le dimensionnement automatique ne démarre pas avant que chaque parent soit choisi et que la fiche soit visible.

Éviter de créer de bonne heure des Handles

Dès que le Handle d'un TWinControl est créé, chaque modification d'une propriété change les choses visuelles (appelé les composants graphiques). Même si un contrôle n'est pas visible, quand il a un Handle, les changements sont encore coûteux.

Utilisez SetBounds au lieu de Left, Top, Width, Height

Au lieu de <delphi>

 with Button1 do begin
   Left:=10;
   Top:=10;
   Width:=100;
   Height:=25;
 end;

</delphi> Utilisez <delphi>

 with Button1 do begin
   SetBounds(10,10,100,25);
 end;

</delphi> Left, Top, Width, Height are calling SetBounds. And every change of position or size invokes recalculation of all sibling controls and maybe recursively the parent and/or the grandchild controls.

DisableAlign / EnableAlign

When positioning many controls, it is a good idea to disable the recalculation of all auto sizing, aligning, anchoring.

 DisableAlign;
 try
   ListBox1.Width:=ClientWidth div 3;
   ListBox2.Width:=ClientWidth div 3;
   ListBox3.Width:=ClientWidth div 3;
 finally
   EnableAlign;
 end;

Note: Every DisableAlign call needs a EnableAlign call. For example if you call two times DisableAlign, you must call two times EnableAlign.

For Delphians: This works recursively. That means DisableAlign stops aligning in all childs and grand childs.