ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

INIT OK 20.1.4

Browse Source
This commit is contained in:
ivanszabo
2020-06-09 10:30:25 +02:00
parent 96e5588d9d
commit 291939e03f
25 changed files with 54 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/Business/Agricultural/APCSheetReviewHeader_VC.vb
+1 -1
View File
@@ -64,7 +64,7 @@ Public Class APCSheetReviewHeader_VC
_OpenFileDialog.Filter = "JPG file (.jpg)|*.jpg|BMP file (.bmp)|*.bmp|GIF file (.gif)|*.gif|All Files (*.*)|*.*"
_OpenFileDialog.Multiselect = True
If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
If _OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RaiseEvent InitWork(1, 1, _OpenFileDialog.FileNames.Length)
For Each _FileName As String In _OpenFileDialog.FileNames
RaiseEvent DoWork()
Nuvolar.Module/BusinessObjects/GeneralObjects/Contacts/ContactsVC.vb
+5 -4
View File
@@ -3,6 +3,7 @@ Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports System.Windows
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
@@ -265,8 +266,8 @@ Public Class ContactsVC
Private Sub aContactEmailToClipboard_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aContactEmailToClipboard.Execute
Dim _ClipboardText As String = ""
If Windows.Forms.Clipboard.ContainsText(System.Windows.Forms.TextDataFormat.Text) Then
_ClipboardText = Windows.Forms.Clipboard.GetText(Windows.Forms.TextDataFormat.Text)
If System.Windows.Forms.Clipboard.ContainsText(System.Windows.Forms.TextDataFormat.Text) Then
_ClipboardText = Forms.Clipboard.GetText(Forms.TextDataFormat.Text)
End If
For Each _Contacts As Contacts In View.SelectedObjects
If _ClipboardText = "" Then
@@ -275,10 +276,10 @@ Public Class ContactsVC
_ClipboardText += ";" + _Contacts.Email
End If
Next
Windows.Forms.Clipboard.SetText(_ClipboardText, Windows.Forms.TextDataFormat.UnicodeText)
Forms.Clipboard.SetText(_ClipboardText, Forms.TextDataFormat.UnicodeText)
End Sub
Private Sub aClearClipboard_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aClearClipboard.Execute
Windows.Forms.Clipboard.Clear()
Forms.Clipboard.Clear()
End Sub
End Class
Nuvolar.Module/Nuvolar.Module.vbproj
-6
View File
@@ -1967,12 +1967,6 @@
<Compile Include="Controllers\LockObjectBeforeEditVC.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\LongOperationController.Designer.vb">
<DependentUpon>LongOperationController.vb</DependentUpon>
</Compile>
<Compile Include="Controllers\LongOperationController.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Controllers\MasterDetailView\IMasterDetailViewInfo.vb" />
<Compile Include="Controllers\MasterDetailView\MasterDetailViewControllerBase.Designer.vb">
<DependentUpon>MasterDetailViewControllerBase.vb</DependentUpon>