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

Compare commits

base: AppStd:4f6e7ef049fa502e1d0195dd42b2c0d8bd9298b5
Branches Tags
AppStd:master AppStd:Design AppStd:Limilabs AppStd:Redesign
...
compare: AppStd:a3b2c075a9560d2280ba89b1eccba4e8de26dfe3
Branches Tags
AppStd:master AppStd:Design AppStd:Limilabs AppStd:Redesign

3 Commits
4f6e7ef049 ... a3b2c075a9

Author SHA1 Message Date
Jonathan Jenne
a3b2c075a9 Version 2.4.0.5 2021-07-02 11:43:47 +02:00
Jonathan Jenne
fcfed7e234 Email Indexing: Fix hover colors 2021-07-02 11:43:33 +02:00
Jonathan Jenne
c145111e5c Improve Logging, Fix Email Indexing 2021-07-02 11:22:50 +02:00
5 changed files with 71 additions and 39 deletions
Expand all files Collapse all files

18
Global_Indexer/ClassFileDrop.vb
View File

@@ -11,13 +11,13 @@ Public Class ClassFileDrop
Public Shared Function Drop_File(e As DragEventArgs)
Try
LOGGER.Info("Available Drop Formats:")
LOGGER.Debug("Available Drop Formats:")
For Each oFormat As String In e.Data.GetFormats()
LOGGER.Info(oFormat)
LOGGER.Debug(oFormat)
Next
LOGGER.Info(">> Drop_File")
LOGGER.Info("Drop_File")
files_dropped = Nothing
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim MyFiles() As String
@@ -26,7 +26,7 @@ Public Class ClassFileDrop
MyFiles = e.Data.GetData(DataFormats.FileDrop)
' Loop through the array and add the files to the list.
For i = 0 To MyFiles.Length - 1
LOGGER.Info(">> Simple FileDrop - File: " & MyFiles(i))
LOGGER.Info("Simple FileDrop - File: " & MyFiles(i))
ReDim Preserve files_dropped(i)
files_dropped(i) = "|DROPFROMFSYSTEM|" & MyFiles(i)
' ListBox1.Items.Add(MyFiles(i))
@@ -85,10 +85,10 @@ Public Class ClassFileDrop
If (finTemp.Exists = True) Then
ReDim Preserve files_dropped(0)
files_dropped(0) = "|OUTLOOK_ATTACHMENT|" & strOutFile
LOGGER.Info(">> Drop an Attachment - File: " & strOutFile)
LOGGER.Info("Drop an Attachment - File: " & strOutFile)
Return True
Else
LOGGER.Info(">> Attachment File from Outlook could not be created")
LOGGER.Info("Attachment File from Outlook could not be created")
End If
End If
End If
@@ -102,7 +102,7 @@ Public Class ClassFileDrop
Return False
End Try
LOGGER.Info(">> Drop of msg")
LOGGER.Info(" Drop of msg")
'supports a drop of a Outlook message
Dim myobj As Outlook.MailItem
For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
@@ -125,7 +125,7 @@ Public Class ClassFileDrop
oFilename = oFilename.Replace("!", "")
oFilename = oFilename.Replace("%", "")
oFilename = oFilename.Replace("$", "")
LOGGER.Info(">> Drop of msg - File:" & oFilename)
LOGGER.Info("Drop of msg - File:" & oFilename)
Try
myobj.SaveAs(oFilename)
Catch ex As Exception
@@ -146,8 +146,6 @@ Public Class ClassFileDrop
MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
End Function
'Private Sub DragDrop_HandleTobit(e As DragEventArgs)

4
Global_Indexer/My Project/AssemblyInfo.vb
View File

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Global Indexer")>
<Assembly: AssemblyCopyright("Copyright © 2021")>
<Assembly: AssemblyTrademark("2404")>
<Assembly: AssemblyTrademark("2405")>
<Assembly: ComVisible(False)>
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.0.4")>
<Assembly: AssemblyVersion("2.4.0.5")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

3
Global_Indexer/frmIndexFileList.Designer.vb generated
View File

@@ -61,8 +61,11 @@ Partial Class frmIndexFileList
'CheckedListBoxControl1
'
resources.ApplyResources(Me.CheckedListBoxControl1, "CheckedListBoxControl1")
Me.CheckedListBoxControl1.AppearanceHighlight.BackColor = System.Drawing.Color.Transparent
Me.CheckedListBoxControl1.AppearanceHighlight.Options.UseBackColor = True
Me.CheckedListBoxControl1.HighlightedItemStyle = DevExpress.XtraEditors.HighlightStyle.Standard
Me.CheckedListBoxControl1.HotTrackItems = True
Me.CheckedListBoxControl1.HotTrackSelectMode = DevExpress.XtraEditors.HotTrackSelectMode.SelectItemOnHotTrackEx
Me.CheckedListBoxControl1.ItemHeight = 30
Me.CheckedListBoxControl1.ItemPadding = New System.Windows.Forms.Padding(10)
Me.CheckedListBoxControl1.Name = "CheckedListBoxControl1"

76
Global_Indexer/frmIndexFileList.resx
View File

@@ -117,15 +117,63 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</value>
</data>
<data name="&gt;&gt;Label2.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label2.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value>
</data>
<data name="&gt;&gt;Label1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>647, 57</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Label2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Label2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
@@ -184,30 +232,6 @@ Sie haben nun Möglichkeit die Indexierung für ausgewählte Dateien zu verhinde
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>647, 57</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="CheckedListBoxControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>

9
Global_Indexer/frmIndexFileList.vb
View File

@@ -24,6 +24,8 @@ Public Class frmIndexFileList
Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
Try
LOGGER.Debug("Starting indexing of {0} files", CheckedListBoxControl1.Items.Count - CheckedListBoxControl1.CheckedItems.Count)
For index = 0 To CheckedListBoxControl1.ItemCount - 1
Dim oRow = MyDataset1.TBGI_FILES_USER.Item(index)
Dim oChecked = CheckedListBoxControl1.GetItemChecked(index)
@@ -41,9 +43,12 @@ Public Class frmIndexFileList
End Try
End If
LOGGER.Debug("Removing file from user files: [{0}]", oFilePath)
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & oGuid, True)
End If
Next
DialogResult = DialogResult.OK
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected Error in Clear Multiple Documents: " & ex.Message, MsgBoxStyle.Critical)
@@ -66,8 +71,10 @@ Public Class frmIndexFileList
End Sub
Private Sub CheckedListBoxControl1_DrawItem(sender As Object, e As DevExpress.XtraEditors.ListBoxDrawItemEventArgs) Handles CheckedListBoxControl1.DrawItem
If e.State = DrawItemState.Checked Then
If e.State = (DrawItemState.Selected Or DrawItemState.Checked) Or e.State = DrawItemState.Checked Then
e.Appearance.BackColor = Color.LightGreen
Else
e.Appearance.BackColor = Color.Transparent
End If
End Sub