AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update deps, deprecate Language

Browse Source
This commit is contained in:
Jonathan Jenne
2023-10-13 09:44:59 +02:00
parent 5df933c5f5
commit 76ab452b3f
12 changed files with 38 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
GUIs.Common/DataResultList/frmDataResultList.vb
View File

@@ -13,6 +13,7 @@ Imports DigitalData.GUIs.Common
Imports System.ComponentModel
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DigitalData.Modules.ZooFlow.Constants
Imports DigitalData.Modules.Base
Public Class frmDataResultList
Implements IResultForm
@@ -61,11 +62,11 @@ Public Class frmDataResultList
SplitContainerControl2.SplitterPosition = _Config.Config.SplitContainer2Distance
SwitchDetailContainerHorizontal.Checked = _Config.Config.SplitContainer2Horizontal
If Utils.IsVisibleOnAnyScreen(_Config.Config.WindowLocation) Then
If Utils.LocationIsVisible(_Config.Config.WindowLocation) Then
If ScreenEx.IsVisibleOnAnyScreen(_Config.Config.WindowLocation) Then
If ScreenEx.LocationIsVisible(_Config.Config.WindowLocation) Then
Location = _Config.Config.WindowLocation
End If
If Utils.SizeIsVisible(_Config.Config.WindowSize) Then
If ScreenEx.SizeIsVisible(_Config.Config.WindowSize) Then
Size = _Config.Config.WindowSize
End If
End If
@@ -236,7 +237,7 @@ Public Class frmDataResultList
If oActiveGrid IsNot Nothing Then
Dim oGridBand = _ActiveGridBand
XtraSaveFileDialog.FileName = Utils.ConvertTextToSlug(oGridBand.Caption) & ".xlsx"
XtraSaveFileDialog.FileName = StringEx.ConvertTextToSlug(oGridBand.Caption) & ".xlsx"
XtraSaveFileDialog.DefaultExt = ".xlsx"
If XtraSaveFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then