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

filter controls by window id, clear duplicate profiles

Browse Source
This commit is contained in:
Jonathan Jenne
2019-09-13 15:35:58 +02:00
parent 46d448236b
commit 88bae3ee92
4 changed files with 97 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

119
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@@ -474,81 +474,84 @@ Public Class frmAdministration
Private Sub XtraTabControl3_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl3.SelectedPageChanged
Dim oTabName As String = e.Page.Name
Select Case oTabName
Case TabPageProcessAssignment.Name
CtrlApplicationAssignment1.Process_Load(PROFILE_IDTextBox.Text)
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
Try
Select Case oTabName
Case TabPageProcessAssignment.Name
'CtrlApplicationAssignment1.Process_Load(PROFILE_IDTextBox.Text)
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = True
RibbonGroup_Window.Enabled = True
RibbonGroup_Control.Enabled = True
RibbonGroup_Process.Enabled = True
RibbonGroup_Window.Enabled = True
RibbonGroup_Control.Enabled = True
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
Case TabPageUserAssignment.Name
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = True
RibbonGroup_Group.Enabled = False
Case TabPageUserAssignment.Name
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = True
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
Case TabPageGroupAssignment.Name
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = True
Case TabPageGroupAssignment.Name
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = True
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
Case TabPageData.Name
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
Case TabPageData.Name
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = True
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = True
Case TabPageDocuments.Name
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
Case TabPageDocuments.Name
RibbonGroup_Profile.Enabled = False
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = True
RibbonGroup_DataSearch.Enabled = False
RibbonGroup_DocSearch.Enabled = True
RibbonGroup_DataSearch.Enabled = False
Case Else
RibbonGroup_Profile.Enabled = True
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
Case Else
RibbonGroup_Profile.Enabled = True
RibbonGroup_User.Enabled = False
RibbonGroup_Group.Enabled = False
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
End Select
RibbonGroup_Process.Enabled = False
RibbonGroup_Window.Enabled = False
RibbonGroup_Control.Enabled = False
RibbonGroup_DocSearch.Enabled = False
RibbonGroup_DataSearch.Enabled = False
End Select
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick