Discussion :

[Nono23]

Bonjour à tous,

Afin d'uniformiser facilement mes composants et également pour pouvoir modifier rapidement l'apparence ou les propriétés de certains composants, j'appel à l'ouverture de chacunes de mes fiches une procédure d'initialisation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Procedure ModifStyleFiche(MaForm_ : TForm);
 
Var
   I : Integer;
   TempCmpn : TComponent;
 
Begin
     Try
        If MaForm_ = Nil Then Exit;
 
        MaForm_.Font.Size:=8;
        MaForm_.Color:=clWhite;
 
        For I:=1 To MaForm_.ComponentCount Do
        Begin
 
             If MaForm_.Components[I-1] is TAdvGlowButton Then       
             Begin
                  TempCmpn:=MaForm_.Components[I-1];
                  TAdvGlowButton(TempCmpn).SetComponentStyle(tsOffice2013White);
                  TAdvGlowButton(TempCmpn).Appearance.BorderColor:=clBlack;
                  TAdvGlowButton(TempCmpn).Appearance.BorderColorChecked:=$00FAFAFA;
                  TAdvGlowButton(TempCmpn).Appearance.BorderColorDisabled:=clBlack;
                  TAdvGlowButton(TempCmpn).Appearance.BorderColorDown:=clActiveCaption;
					//...
             End;
 
             If MaForm_.Components[I-1] is TAdvStringGrid Then
             Begin
                  TempCmpn:=MaForm_.Components[I-1];
                  TAdvStringGrid(TempCmpn).Ctl3D:=False;
                  TAdvStringGrid(TempCmpn).FixedColor:=clWhite;
                  TAdvStringGrid(TempCmpn).FixedFont.Color:=clNavy;
                  TAdvStringGrid(TempCmpn).FixedFont.Style:=[];
                  TAdvStringGrid(TempCmpn).ControlLook.FixedGradientFrom:=clWhite;
                  TAdvStringGrid(TempCmpn).ControlLook.FixedGradientTo:=clWhite;
				  //...
             End;
			 //...
        End;
     Except
     End;
End;

Le problème c'est que forcément, sur certaines de mes fiches qui peuvent être assez volumineuse, l'ouverture est ralentie par cette fonction (3-4 secondes dans certains cas). existe-t-il un moyen plus efficace de gérer ce genre de chose?

Pour info, j'appelle cette procédure au moment du formcreate et non du formshow ce qui améliore déjà les performances mais ça n'est pas encore satisfaisant.

Merci d'avance pour vos conseils et vos idées.

LaNono

[pprem]

Si tu bosses sous FMX, tu devrais commencer par appeler BeginUpdate sur ta fiche et finir par EndUpdate. Ca évite que les composants se dessinent à chaque modif appliquée à leur style.

En VCL il y a beaucoup de questions sur le sujet et plusieurs solutions dont celles-ci (pas testées, à toi de voir) :
http://www.delphigroups.info/2/80/202463.html

Tu peux aussi le faire sur chaque composant modifié en début et fin de modification (lorsqu'ils possèdent ces méthodes).

[SergioMaster]

Si tu bosses sous FMX, tu devrais commencer par appeler BeginUpdate sur ta fiche et finir par EndUpdate.

Puisque l'on voit sur le code des TAdvxxxx (composants TMS) il s'agit de VCL

[ShaiLeTroll]

Pourquoi For I:=1 To MaForm_.ComponentCount Do et [I - 1] ?
Autant faire For I:=0 To MaForm_.ComponentCount -1 Do et [I] !
Bon, tu vas gagner quoi 1µs

Comme tu le dit AndNotOr, une structure if else if else sera, un peu plus performante mais encore c'est des µs qui seront gagnés

MaForm_.Components[I-1] pourrait être stocké dans TempCmpn dès la première de la boucle, cela évite des accès répétés à MaForm_.Components[I-1].

OnCreate est un bon choix, comme il n'y a pas d'affichage, cela peut réduire le temps d'exécution par rapport au OnShow
Sauf que si c'est valable pour des contrôles Windows pour des composants lourdissimes comme ceux de TMS, j'ai quelques doutes.

La fonction SetComponentStyle ne provoquera pas un chargement de ressources ?
Tu devrais mesurer les temps d'éxécution avec un TStopWatch pour voir ce qui consomme vraiment
Par exemple une TAdvStringGrid déjà rempli (ou connecté à un DataSource), c'est peut-être plus lent à manipuler qu'une TAdvStringGrid encore vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Procedure ModifStyleFiche(MaForm_ : TForm);
Var
  I : Integer;
  TempCmpn : TComponent;
 
Begin
  if not Assigned(MaForm_) then
     Exit;
 
  MaForm_.Font.Size:=8;
  MaForm_.Color:=clWhite;
 
  for I:=0 To MaForm_.ComponentCount-1 do
  begin
    TempCmpn:=MaForm_.Components[I];
    if TempCmpn is TAdvGlowButton then       
    begin
 
      TAdvGlowButton(TempCmpn).SetComponentStyle(tsOffice2013White);
      TAdvGlowButton(TempCmpn).Appearance.BorderColor:=clBlack;
      TAdvGlowButton(TempCmpn).Appearance.BorderColorChecked:=$00FAFAFA;
      TAdvGlowButton(TempCmpn).Appearance.BorderColorDisabled:=clBlack;
      TAdvGlowButton(TempCmpn).Appearance.BorderColorDown:=clActiveCaption;
      //...
    end
    else if TempCmpn is TAdvStringGrid then
    begin
      TAdvStringGrid(TempCmpn).Ctl3D:=False;
      TAdvStringGrid(TempCmpn).FixedColor:=clWhite;
      TAdvStringGrid(TempCmpn).FixedFont.Color:=clNavy;
      TAdvStringGrid(TempCmpn).FixedFont.Style:=[];
      TAdvStringGrid(TempCmpn).ControlLook.FixedGradientFrom:=clWhite;
      TAdvStringGrid(TempCmpn).ControlLook.FixedGradientTo:=clWhite;
    end
    else if TempCmpn is TTruc then
    // 
  End;
 
End;

On va éviter le with pour le moment mais l'accès à TAdvGlowButton(TempCmpn).Appearance ou TAdvStringGrid(TempCmpn).ControlLook est-il complexe avec les accesseurs ?
Encore des µs à gagner à chaque appel

[Andnotor]

Et une boucle sur ControlCount évidemment. Les composants non visuels n'ont pas besoin d'être énumérés

[Papy214]

Je vais peut-être dire une sottise mais le cast est-il utile sur chaque ligne ?
Pointer une seule fois sur l'objet "casté" n'est-il pas un poil plus rapide ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
with (MaForm_.Components[I-1]) do
begin
  SetComponentStyle(tsOffice2013White);
  Appearance.BorderColor:=clBlack;
  Appearance.BorderColorChecked:=$00FAFAFA;
  Appearance.BorderColorDisabled:=clBlack;
  Appearance.BorderColorDown:=clActiveCaption;
end;

et http://docwiki.embarcadero.com/Libra...hreading.TTask ça n'aiderait pas ?

[Andnotor]

Le bloc try..except n'a pas de raison d'être. Le gestionnaire d'exception consomme du temps.

Ajoute des else. Un composant ne peu pas être TAdvGlowButton ET TAdvStringGrid.
Et par la même occasion, place ces blocs dans un ordre logique par rapport à la structure de ta fiche. S'il y a plus de labels que de boutons, test d'abord les labels.