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

7
GUIs.Common/DocumentResultList/Layout.vb
View File

@@ -6,7 +6,6 @@ Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.ZooFlow
Namespace DocumentResultList
@@ -124,11 +123,11 @@ Namespace DocumentResultList
End Function
Public Sub LoadWindowLocationAndSize(ByRef pForm As Form)
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
pForm.Location = Config.Config.WindowLocation
End If
If Utils.SizeIsVisible(Config.Config.WindowSize) Then
If ScreenEx.SizeIsVisible(Config.Config.WindowSize) Then
pForm.Size = Config.Config.WindowSize
End If
End If

2
GUIs.Common/DocumentResultList/Watcher.vb
View File

@@ -112,7 +112,7 @@ Namespace DocumentResultList
Try
Dim oTempPath = Path.Combine(Path.GetTempPath(), Constants.TEMP_PATH_SUBFOLDER)
Dim oDirectory = Directory.CreateDirectory(oTempPath)
Dim oFileName = $"{pDocument.Id}-{Now.UnixTimestamp}.{pDocument.Extension}"
Dim oFileName = $"{pDocument.Id}-{Now.GetUnixTimestamp}.{pDocument.Extension}"
Dim oFilePath = Path.Combine(oTempPath, oFileName)
Using oMemoryStream As New MemoryStream(pDocument.Contents)

2
GUIs.Common/DocumentResultList/Workspace.vb
View File

@@ -63,7 +63,7 @@ Namespace DocumentResultList
Private Function GetWorkspacePath(pWorkspaceName As String) As String
Dim oDirectory = GetWorkspaceDirectoryPath()
Dim oFilename As String = Utils.ConvertTextToSlug(pWorkspaceName) & "_" & _UserLanguage & ".xml"
Dim oFilename As String = StringEx.ConvertTextToSlug(pWorkspaceName) & "_" & _UserLanguage & ".xml"
Return IO.Path.Combine(oDirectory, oFilename)
End Function