Création et remplissage d'un TGridPanelLayout au runtime

**SergioMaster** · 10/07/2022, 08h46

Cette discussion est un aparté de celle-ci https://www.developpez.net/forums/d2...titre-colonnes

Cela fait déjà quelques jours que je me bats avec un TGridPanelLayout créé au runtime
Souhaité : peu ou prou, ce qui est au-dessus du bouton
Nom : Capture_1.PNG
Affichages : 344
Taille : 3,0 Ko

Nom : Capture_1.PNG
Affichages : 344
Taille : 3,0 Ko

après beaucoup de misères, j'ai pensé réduire le nombre de lignes de mon TGridPanelLayout à 3 pour éviter les rowspans (même si j'obtenais au runtime un bon remplissage du GridPanelLayout juste sous le bouton mais, j'obtiens toujours le même défaut
Nom : Capture.PNG
Affichages : 334
Taille : 2,9 Ko

Nom : Capture.PNG
Affichages : 334
Taille : 2,9 Ko

mon code

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
procedure TForm131.btnExpectedClick(Sender: TObject);
 
var agpl2 : TGridPanelLayout;
    aControlItem : TGridPanelLayout.TControlItem;
    aLabel : Tlabel;
    aPath : Tpath;
 
procedure remplir(gpl : TGridPanelLayout);
var aControlItem : TGridPanelLayout.TControlItem;
    aLabel : Tlabel;
    aPath : Tpath;
begin
     aLabel:=TLabel.Create(gpl);
     aLabel.autosize:=False;
     aLabel.Text:='1';
     aLabel.TextSettings.VertAlign := TTextAlign.Trailing;
     aLabel.TextSettings.HorzAlign := TTextAlign.Center;
     aLabel.Width:=gpl.Height/2;
     aLabel.Height:=gpl.Height;
     aLabel.HitTest:=False;
     aLabel.Parent:=gpl;
     aLabel.Align:=TalignLayout.Client;
     aControlItem:=gpl.ControlCollection.Add;
     aControlItem.Control:=aLabel;
     gpl.ControlCollection[0].Row:=2;
     gpl.ControlCollection[0].Column:=0;
 
 
     aPath:=TPath.Create(gpl);
     aPath.Data.Data:='M8 15H16L12 8';
     aPath.Fill.Color:=TAlphaColors.Black;
     aPath.Width:=gpl.Height/2;
     aPath.Height:=gpl.Height*2/5;
     aPath.Parent:=gpl;
     aPath.Align:=TalignLayout.Client;
     aPath.WrapMode:=TpathWrapMode.Stretch;
     aPath.Margins.Bottom:=2;
     aControlItem:=gpl.ControlCollection.Add;
     aControlItem.Column:=1;
     aControlItem.Row:= 0;
     aControlItem.Control:=aPath;
 
     aPath:=TPath.Create(gpl);
     aPath.Data.Data:='M12,10A2,2 0 0,0 10,12C10,13.11 10.9,14 12,14C13.11,14 14,13.11 14,12A2,2 0 0,0 12,10Z';
     aPath.Fill.Color:=TAlphaColors.Black;
     aPath.Width:=gpl.Height/4;
     aPath.Height:=gpl.Height/5;
     aPath.Parent:=gpl;
     aPath.Align:=TAlignLayout.Center;
     aControlItem:=gpl.ControlCollection.Add;
     aControlItem.Column:=1;
     aControlItem.Row:= 1;
     aControlItem.Control:=aPath;
 
 
     aPath:=TPath.Create(gpl);
     aPath.Data.Data:='M8 9H16L12 16';
     aPath.Fill.Color:=TAlphaColors.Black;
     aPath.Width:=gpl.Height/2;
     aPath.Height:=gpl.Height*2/5;
     aPath.Margins.Top:=2;
     aPath.Align:=TalignLayout.Client;
     aPath.Parent:=gpl;
     aControlItem:=gpl.ControlCollection.Add;
     aControlItem.Column:=1;
     aControlItem.Row:= 2;
     aControlItem.Control:=aPath;
 
end;
 
 
begin
 
    GridPanelLayout2.ControlCollection.Clear;
    remplir(GridPanelLayout2);
 
     agpl2:=TGridPanelLayout.Create(Self);
     agpl2.Parent:=Self;
     agpl2.Position.X:=GridPanelLayout2.Position.X+80;
     agpl2.Position.Y:=GridPanelLayout2.Position.Y;
     agpl2.ExpandStyle:=TGridPanelLayout.TExpandStyle.FixedSize;
     aGpL2.ColumnCollection.Clear;
     with aGpL2.ColumnCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=50.000000000000000000;
        end;
     with aGpL2.ColumnCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=50.000000000000000000;
        end;
     aGpL2.RowCollection.Clear;
     with agpl2.RowCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=40.000000000000000000;
       end;
     with agpl2.RowCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=20.000000000000000000;
       end;
     with agpl2.RowCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=40.000000000000000000;
       end;
// instruction manquante
   remplir(aGpL2);
 
end;

il doit me manquer une instruction à la création du TGridPanelLayout afin que les lignes soient bien de la bonne taille ?

**pprem** · 10/07/2022, 09h04

Envoyé par SergioMaster

il doit me manquer une instruction à la création du TGridPanelLayout afin que les lignes soient bien de la bonne taille ?

Il y a des chances que tu doives donner les tailles une fois que les lignes ont été créées, ça doit la recalculer lors de la création comme dans le concepteur de fiches (une belle connerie ce truc de calcul automatique).

**SergioMaster** · 10/07/2022, 09h27

un mieux, mais toujours pas conforme à mon attente !
Nom : Capture.PNG
Affichages : 315
Taille : 2,9 Ko

pour cela, j'ai émaillé mon code de BeginUpdate/EndUpdate

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
 
procedure TForm131.btnExpectedClick(Sender: TObject);
 
var agpl2 : TGridPanelLayout;
    aControlItem : TGridPanelLayout.TControlItem;
    aLabel : Tlabel;
    aPath : Tpath;
 
procedure remplir(gpl : TGridPanelLayout);
var aControlItem : TGridPanelLayout.TControlItem;
    aLabel : Tlabel;
    aPath : Tpath;
begin
     gpl.BeginUpdate;
     gpl.ControlCollection.ClearAndResetID;
 
     aLabel:=TLabel.Create(gpl);
     aLabel.autosize:=False;
     aLabel.Name:=gpl.name+'ordre';
     aLabel.Text:='1';
     aLabel.TextSettings.VertAlign := TTextAlign.Trailing;
     aLabel.TextSettings.HorzAlign := TTextAlign.Center;
     aLabel.Width:=gpl.Height/2;
     aLabel.Height:=gpl.Height;
     aLabel.HitTest:=False;
     aLabel.Parent:=gpl;
     aLabel.Align:=TalignLayout.Client;
     aControlItem:=gpl.ControlCollection.Add;
     aControlItem.Control:=aLabel;
     aControlItem.Column:=0;
     aControlItem.Row:=2;
     gpl.EndUpdate;
 
     gpl.BeginUpdate;
     aPath:=TPath.Create(gpl);
     aPath.Name:=gpl.Name+'Asc';
     aPath.Data.Data:='M8 15H16L12 8';
     aPath.Fill.Color:=TAlphaColors.Black;
     aPath.Width:=gpl.Height/2;
     aPath.Height:=gpl.Height*2/5;
     aPath.Parent:=gpl;
     aPath.Align:=TalignLayout.Client;
     aPath.WrapMode:=TpathWrapMode.Stretch;
     aPath.Margins.Bottom:=2;
     aControlItem:=gpl.ControlCollection.Add;
     aControlItem.Column:=1;
     aControlItem.Row:= 0;
     aControlItem.Control:=aPath;
     gpl.EndUpdate;
 
     gpl.BeginUpdate;
     aPath:=TPath.Create(gpl);
     aPath.Name:=gpl.Name+'NoSort';
     aPath.Data.Data:='M12,10A2,2 0 0,0 10,12C10,13.11 10.9,14 12,14C13.11,14 14,13.11 14,12A2,2 0 0,0 12,10Z';
     aPath.Fill.Color:=TAlphaColors.Black;
     aPath.Width:=gpl.Height/4;
     aPath.Height:=gpl.Height/5;
     aPath.Parent:=gpl;
     aPath.Align:=TAlignLayout.Center;
     aControlItem:=gpl.ControlCollection.Add;
     aControlItem.Column:=1;
     aControlItem.Row:= 1;
     aControlItem.Control:=aPath;
     gpl.EndUpdate;
 
     gpl.BeginUpdate;
     aPath:=TPath.Create(gpl);
     aPath.Name:=gpl.Name+'Desc';
     aPath.Data.Data:='M8 9H16L12 16';
     aPath.Fill.Color:=TAlphaColors.Black;
     aPath.Width:=gpl.Height/2;
     aPath.Height:=gpl.Height*2/5;
     aPath.Margins.Top:=2;
     aPath.Align:=TalignLayout.Client;
     aPath.Parent:=gpl;
     aControlItem:=gpl.ControlCollection.Add;
     aControlItem.Column:=1;
     aControlItem.Row:= 2;
     aControlItem.Control:=aPath;
     gpl.EndUpdate;
end;
 
 
begin
 
    GridPanelLayout2.ControlCollection.ClearAndResetID;
    remplir(GridPanelLayout2);
 
     agpl2:=TGridPanelLayout.Create(Self);
     agpl2.Parent:=Self;
     agpl2.BeginUpdate;
     agpl2.Position.X:=GridPanelLayout2.Position.X+80;
     agpl2.Position.Y:=GridPanelLayout2.Position.Y;
     agpl2.ExpandStyle:=TGridPanelLayout.TExpandStyle.AddColumns;
     aGpL2.ColumnCollection.Clear;
     with aGpL2.ColumnCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=50.000000000000000000;
        end;
     with aGpL2.ColumnCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=50.000000000000000000;
        end;
     aGpL2.RowCollection.Clear;
     with agpl2.RowCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=45.000000000000000000;
       end;
     with agpl2.RowCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=10.000000000000000000;
       end;
     with agpl2.RowCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=45.000000000000000000;
       end;
   agpl2.EndUpdate;
   remplir(aGpL2);

Mais je trouve quand même fort de café d'être obligé de la faire à chaque opération

et malgré cela, on remarque quelques différences entre les deux "remplissages"

**SergioMaster** · 10/07/2022, 10h05

Envoyé par pprem

(une belle connerie ce truc de calcul automatique).

Oui, c'est totalement chiant
et je viens de découvrir autre chose, comme c'est dans le but de le faire en fonction de mon entête de grille, j'ai voulu tester agrandissement et réduction.

un petit livebinding plus tard

Nom : Capture.PNG
Affichages : 309
Taille : 3,3 Ko

j'ai un path qui ne bouge pas et les autres qui se réduisent mais ne s'agrandissent plus !

Il y a une chose que je ne pige pas dans le TGridPanelLayout, l'alignement au sein d'une "cellule"

**Paul TOTH** · 10/07/2022, 10h34

il est pénible ce composant...j'ai proposé de remplacer le % par un poids
https://quality.embarcadero.com/browse/RSP-26319

c'est à dire qu'au lieu d'avoir un total qui fait 100, on donne un poids à chaque ligne/colonne et le composant calcul le % sur le total des points.

car le problème avec ce composant c'est quand quand tu fixes une valeur, il recalcule les autres pour avoir un total à 100 !

**SergioMaster** · 13/07/2022, 10h16

Après sueurs (vu la chaleur actuelle) et larmes de frustrations, j'ai enfin mon résultat
Nom : Capture.PNG
Affichages : 284
Taille : 5,4 Ko

Ce n'est pas encore abouti, car il faut maintenant que je m'attache à la partie prise en compte des clics et Cie.
Néanmoins, voici comment j'ai obtenu ce dessin

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
 
// todo : ajout de l'alignement pour le texte 
procedure TColumnHelpers.SetAColumnAsSortable(const Column: TColumn; const HeaderHeight : Single =0 );
var Header : THeader;
    HeaderItem : THeaderItem;
    agpl : TGridPanelLayout;
    aControlItem : TGridPanelLayout.TControlItem;
    aLabel : Tlabel;
    aPath : Tpath;
begin
   Header:= THeader(Self.FindStyleResource('header'));
   if Assigned(Header) then begin
     HeaderItem:=Header.Items[Column.Index];
     HeaderItem.TagString:='Sortable';
     if HeaderHeight>HeaderItem.Height then HeaderItem.Height:=HeaderHeight;
     HeaderItem.TextSettings.HorzAlign:=TTextAlign.Leading;
 
     agpl:=TGridPanelLayout.Create(Self);
     agpl.Parent:=HeaderItem;
     agpl.BeginUpdate;
     agpl.Align:=TAlignLayout.Right;
 
     agpl.Width:=HeaderItem.Height;
     agpl.Height:=HeaderItem.Height;
 
     agpl.ExpandStyle:=TGridPanelLayout.TExpandStyle.AddColumns;
     agpl.ColumnCollection.Clear;
     with agpl.ColumnCollection.Add do
      begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=50.000000000000000000;
      end;
     with agpl.ColumnCollection.Add do
      begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=50.000000000000000000;
      end;
     agpl.RowCollection.Clear;
     with agpl.RowCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=40.000000000000000000;
       end;
     with agpl.RowCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=20.000000000000000000;
       end;
     with agpl.RowCollection.Add do
       begin
        SizeStyle:=TGridPanelLayout.TSizeStyle.Percent;
        Value:=40.000000000000000000;
       end;
 
     agpl.ControlCollection.ClearAndResetID;
 
     aLabel:=TLabel.Create(agpl);
     aLabel.Name:=Column.name+'ordre';
     aLabel.Text:='1';
     aLabel.TextSettings.VertAlign := TTextAlign.Center;
     aLabel.TextSettings.HorzAlign := TTextAlign.Center;
     aLabel.HitTest:=False;
     aLabel.Parent:=agpl;
     aLabel.Align:=TAlignLayout.Client;
     aControlItem:=agpl.ControlCollection.Add;
     aControlItem.Control:=aLabel;
     aControlItem.Setlocation(0,2);
 
     aPath:=TPath.Create(agpl);
     aPath.Name:=Column.Name+'Asc';
     aPath.Data.Data:='M8 15H16L12 8';
     aPath.Fill.Color:=TAlphaColors.Black;
     aPath.Parent:=agpl;
     aPath.Align:=TAlignLayout.Client;
     aPath.WrapMode:=TpathWrapMode.Stretch;
     aControlItem:=agpl.ControlCollection.Add;
     aControlItem.SetLocation(1,0);
     aControlItem.Control:=aPath;
 
     aPath:=TPath.Create(agpl);
     aPath.Name:=column.Name+'NoSort';
     aPath.Data.Data:='M12,10A2,2 0 0,0 10,12C10,13.11 10.9,14 12,14C13.11,14 14,13.11 14,12A2,2 0 0,0 12,10Z';
     aPath.Fill.Color:=TAlphaColors.Black;
     aPath.Parent:=agpl;
     aPath.Align:=TAlignLayout.Client;
     aPath.WrapMode:=TPathWrapMode.Fit;
     aControlItem:=agpl.ControlCollection.Add;
     aControlItem.SetLocation(1,1);
     aControlItem.Control:=aPath;
 
     aPath:=TPath.Create(agpl);
     aPath.Name:=column.Name+'Desc';
     aPath.Data.Data:='M8 9H16L12 16';
     aPath.Fill.Color:=TAlphaColors.Black;
     aPath.WrapMode:=TpathWrapMode.Stretch;
     aPath.Parent:=agpl;
     aPath.Align:=TAlignLayout.Client;
     aControlItem:=agpl.ControlCollection.Add;
     aControlItem.SetLocation(1,2);
     aControlItem.Control:=aPath;
 
    agpl.EndUpdate;
 
  end;
 
end;

Je considère la question dessin comme résolue. Je vais désormais m'attacher à la partie prise en compte.

Création et remplissage d'un TGridPanelLayout au runtime

Composants FMX Delphi

Discussions similaires

Partager

Partager