Add GridFontSizeDelta setting

This commit is contained in:
Jonathan Jenne 2022-04-05 13:12:38 +02:00
parent d8e667cafb
commit f256092830
2 changed files with 8 additions and 0 deletions

View File

@ -35,5 +35,6 @@ Public Class ClassConfig
Public Property LastExportPath As String = ""
Public Property ADDITIONAL_SEARCHES_LOAD_ONCLICK As Boolean = True
Public Property GridFontSizeDelta As Integer = 0
End Class

View File

@ -11,6 +11,7 @@ Imports System.IO
Imports DevExpress.XtraPrinting
Imports DigitalData.Modules.EDMI.API.DatabaseWithFallback
Imports DigitalData.Modules.EDMI.API.Constants
Imports DigitalData.GUIs.Common
Imports DevExpress.XtraGrid.Views.BandedGrid
Imports DevExpress.XtraBars.Ribbon
@ -36,6 +37,7 @@ Public Class frmMain
Private FormShown As Boolean = False
Private GridIsLoaded As Boolean = False
Private OverviewOrDEtail As String = "OVERVIEW"
Private GridBuilder As GridBuilder
Private allgFunk As New ClassAllgemeineFunktionen
Private _Init As New ClassInit
@ -138,6 +140,10 @@ Public Class frmMain
FormOpenClose = True
LOGGER.Debug("Initializing MainForm....")
GridBuilder = New GridBuilder(GridViewWFItems)
GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta)
' Create helper to save/load expanded GroupColumns at runtime
RefreshHelper = New RefreshHelper(LOGCONFIG, GridViewWFItems, "GUID")
Dim oVErsion = String.Format("{0}.{1}.{2}", My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build)
@ -923,6 +929,7 @@ Public Class frmMain
RestoreLayout()
GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False
GridViewWFItems.Columns.Item("GUID").Visible = False
Try