Th3maz1ng/MyRealKmProdWiki
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update page 'Meta GridView'

Th3maz1ng 2019-03-25 16:51:02 +01:00
parent 6a7fde7867
commit 7cda50f80f
1 changed files with 78 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
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éé.