From 7cda50f80fa37a824f1641c4a1251541feefbe51 Mon Sep 17 00:00:00 2001
From: Th3maz1ng <re.hertz@laposte.net>
Date: Mon, 25 Mar 2019 16:51:02 +0100
Subject: [PATCH] Update page 'Meta GridView'

---
 Meta-GridView.md | 80 ++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 78 insertions(+), 2 deletions(-)

diff --git a/Meta-GridView.md b/Meta-GridView.md
index 6150c2e..7586e85 100644
--- a/Meta-GridView.md
+++ b/Meta-GridView.md
@@ -69,7 +69,83 @@ Il peut également y avoir des conflits entre la configuration côté code et ce
 
 **Définition du style dans le code .NET**
   
+Voici un exemple de code commenté illustrant la façon de définir le style des colonnes :  
+``` vbnet
+    Public Overridable Function Charger(ByVal MA_ID_p As String, ByVal DT_DEBUT_p As Date, ByVal DT_FIN_p As Date) As Boolean
+        Try
+            
+            'Chargement du GridView
+            With Ctrl_XtraGridView1
+                .Requete = DAL_V_SYNTHESE_EVENEMENTS_c.LastRequete
+                If ListeBEL_V_SYNTHESE_EVENEMENTS_c IsNot Nothing Then
+                    .DataSource = ListeBEL_V_SYNTHESE_EVENEMENTS_c
+                End If
+            End With
 
+            'Initialisation des colonnes
+            Dim ListeColonnes_l As New List(Of Meta_DevExpress.C_XtraGrid_Colonne)
+            
+            InitialiserColonnes(ListeColonnes_l)
+
+#Region "InitGridView"
+            'On applique le style définit à chaque colonne du tableau
+            For Each ColListe_F As Meta_DevExpress.C_XtraGrid_Colonne In ListeColonnes_l
+                For Each Col_F As DevExpress.XtraGrid.Columns.GridColumn In Meta_GridView1.Columns
+                    If Col_F.Tag Is Nothing Then
+                        Col_F.OptionsColumn.AllowEdit = False
+                        'Permet d'aligner le titre de la colonne
+                        Col_F.AppearanceHeader.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center
+                        If Col_F.Name = ColListe_F.Name Then
+                            Col_F.Visible = ColListe_F.Visible
+                            Col_F.VisibleIndex = ColListe_F.Displayindex
+                            Col_F.Caption = ColListe_F.HeaderText
+                            Col_F.ColumnEditName = ColListe_F.Name
+                            Col_F.Width = ColListe_F.Width
+                            Col_F.Tag = "DONE"
+                        Else
+                            'On cache les colonnes que l'on ne souhaite pas afficher
+                            Col_F.Visible = False
+                            Col_F.VisibleIndex = -1
+                        End If
+                    End If
+                Next
+            Next
+#End Region
+            'Fin initialisation
+
+            Ctrl_GridBarreOutils1.Initialiser(Ctrl_XtraGridView1)
+        Catch ex As Exception
+
+        End Try
+        Return True
+    End Function
+    
+    Private Sub InitialiserColonnes(Colonnes_P As List(Of Meta_DevExpress.C_XtraGrid_Colonne))
+        Dim Col_L As Meta_DevExpress.C_XtraGrid_Colonne, colNum_l As Integer = 0
+
+        Col_L = New Meta_DevExpress.C_XtraGrid_Colonne : colNum_l += 1
+        With Col_L
+            .Displayindex = colNum_l
+            .Name = "colTR_LIBELLE" 'col + Nom de la colonne dans la base de données
+            .Visible = True
+            .HeaderText = "Titre à afficher"
+            .Width = 75
+            .Format_Colonne = Meta_DevExpress.C_XtraGrid_Colonne.Enum_Format_Colonne.Aucun
+        End With
+        Colonnes_P.Add(Col_L)
+
+        Col_L = New Meta_DevExpress.C_XtraGrid_Colonne : colNum_l += 1
+        With Col_L
+            .Displayindex = colNum_l
+            .Name = "colRE_LIBELLE" 'col + Nom de la colonne dans la base de données
+            .Visible = True
+            .HeaderText = "Titre à afficher"
+            .Width = 75
+            .Format_Colonne = Meta_DevExpress.C_XtraGrid_Colonne.Enum_Format_Colonne.Aucun
+        End With
+        Colonnes_P.Add(Col_L)
+    End Sub
+```
 
 **Définition du style via la GUI**
   
@@ -85,7 +161,7 @@ Les onglets qui nous intéressent sont :
 Comme la requête SQL qui est éxécutée afin de récupérer les données à afficher.
 
 **L'onglet "Gestion colonnes"**  
-<img src="/git/KmWikiImage/MetaDevExpress/FonctionExperteGestionColonnes.png" alt="FE" width="500" />  
+<img src="/git/KmWikiImage/MetaDevExpress/FonctionExperteGestionColonnes.png" alt="FE" width="700" />  
   
 Cet onglet permet de renommer le titre des colonnes (Colonne "**Titre**"), ainsi que de définir le format d'affichage des données (Colonne "**Type**").
   
@@ -93,7 +169,7 @@ Cet onglet permet de renommer le titre des colonnes (Colonne "**Titre**"), ainsi
 Les configurations des tableaux sont présentes dans la table **MO_DEVX_PERSONNALISATION** qui se situe dans la base **KM**.
   
 **L'onglet "Mise en page"**  
-<img src="/git/KmWikiImage/MetaDevExpress/FonctionExperteMiseEnPage.png" alt="FE" width="500" />  
+<img src="/git/KmWikiImage/MetaDevExpress/FonctionExperteMiseEnPage.png" alt="FE" width="700" />  
   
 Cet onglet permet de sauvegarder l'apparence du tableau en le liant avec un nom de profil.
 Si ce profil éxiste, il est écrasé par le nouveau, sinon il est créé.