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

fix

Browse Source
This commit is contained in:
Jonathan Jenne 2019-07-11 14:36:45 +02:00
parent d513a7cfc2
commit feafd96cb6
2 changed files with 47 additions and 144 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb generated
View File

@ -22,7 +22,7 @@ Partial Class frmProfileMatch
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim TileItemElement3 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement() Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch))
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.TileControl1 = New DevExpress.XtraEditors.TileControl() Me.TileControl1 = New DevExpress.XtraEditors.TileControl()
@ -74,9 +74,9 @@ Partial Class frmProfileMatch
' '
'TileItem1 'TileItem1
' '
TileItemElement3.ImageOptions.Image = CType(resources.GetObject("resource.Image"), System.Drawing.Image) TileItemElement2.ImageOptions.Image = CType(resources.GetObject("resource.Image"), System.Drawing.Image)
TileItemElement3.Text = "Alle" TileItemElement2.Text = "Alle"
Me.TileItem1.Elements.Add(TileItemElement3) Me.TileItem1.Elements.Add(TileItemElement2)
Me.TileItem1.Id = 1 Me.TileItem1.Id = 1
Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
Me.TileItem1.Name = "TileItem1" Me.TileItem1.Name = "TileItem1"

183
app/DD_Clipboard_Searcher/frmProfileMatch.vb
View File

@ -17,164 +17,42 @@ Public Class frmProfileMatch
CurrSearch2Load = Nothing CurrSearch2Load = Nothing
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Sub CreateTiles() Sub CreateTiles()
Try Try
Dim ImageIndex As Integer = -1 Dim oPrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
Dim i As Integer = 0 Dim oSecondaryFont As New Font("Segoe UI", 10)
Dim j As Integer = 0
Dim PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
Dim SecondaryFont As New Font("Segoe UI", 10)
Dim WhiteBackground As Color = System.Drawing.Color.FromArgb(230, Color.White)
' Datatable laden Dim oGroup = TileControl1.Groups.Item("TileGroupProfiles")
GridControl1.DataSource = CurrDT_PROFILE_MATCH
TileView1.TileTemplate.Clear() For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
Dim oItem As New TileItem() With {.Tag = oRow.Item("GUID")}
oItem.Elements.Clear()
Dim ImageColumn As TileViewItemElement Dim oNameElement = New TileItemElement()
Dim HeadlineColumn As TileViewItemElement oNameElement.Text = oRow.Item("NAME")
Dim IDColumn As TileViewItemElement oNameElement.TextAlignment = TileItemContentAlignment.TopLeft
Dim TextColumn As TileViewItemElement oNameElement.Appearance.Normal.Font = oPrimaryFont
Dim TextHeaderColumn As TileViewItemElement oItem.Elements.Add(oNameElement)
HeadlineColumn = New TileViewItemElement() Dim oCommentElement = New TileItemElement()
With HeadlineColumn oCommentElement.Text = oRow.Item("COMMENT")
.Column = TileView1.Columns(1) oCommentElement.TextAlignment = TileItemContentAlignment.BottomLeft
.TextAlignment = TileItemContentAlignment.TopRight oCommentElement.Appearance.Normal.Font = oSecondaryFont
.Appearance.Normal.Font = PrimaryFont oItem.Elements.Add(oCommentElement)
.Appearance.Normal.ForeColor = Color.DodgerBlue
.Column.OptionsFilter.AllowFilter = True
End With
TileView1.TileTemplate.Add(HeadlineColumn)
IDColumn = New TileViewItemElement()
With IDColumn
.Column = TileView1.Columns(0)
.Column.OptionsFilter.AllowFilter = True
.TextAlignment = TileItemContentAlignment.TopLeft
End With
TileView1.TileTemplate.Add(IDColumn)
ImageColumn = New TileViewItemElement()
With ImageColumn
.Image = My.Resources.build_Selection_32xLG
'
' '.ImageSize = New Size(186, 90)
.ImageSize = New Size(186, 118)
.ImageScaleMode = TileItemImageScaleMode.ZoomInside
.ImageAlignment = TileItemContentAlignment.BottomLeft
' .ImageLocation = New Point(-10, -10)
End With
' TileView1.TileTemplate.Add(ImageColumn)
'For Each oProfileColumn As DataColumn In CurrDT_PROFILE_MATCH.Columns
' Dim index As Integer = CurrDT_PROFILE_MATCH.Columns.IndexOf(oProfileColumn)
oGroup.Items.Add(oItem)
' Select Case index Next
' 'Case 0
' ' ' RecordId
' ' RECORDID_Column = New TileViewItemElement()
' ' With RECORDID_Column
' ' .Column = grvwTiles.Columns(0)
' ' .Column.OptionsFilter.AllowFilter = True
' ' .TextAlignment = TileItemContentAlignment.TopLeft
' ' End With
' ' grvwTiles.TileTemplate.Add(RECORDID_Column)
' Case 1
' ' Index 1 ist das Bild
' If oProfileColumn.DataType.ToString.Contains("Byte") Then
' ImageColumn = New TileViewItemElement()
' With ImageColumn
' .Image = My.Resources.asterisk_orange
' .Column = TileView1.Columns(1)
' '.ImageSize = New Size(186, 90)
' .ImageSize = New Size(186, 118)
' .ImageScaleMode = TileItemImageScaleMode.ZoomInside
' .ImageAlignment = TileItemContentAlignment.Manual
' .ImageLocation = New Point(-10, -10)
' End With
' TileView1.TileTemplate.Add(ImageColumn)
' End If
' Case 2
' ' Index 2 ist die Headline
' HeadlineColumn = New TileViewItemElement()
' With HeadlineColumn
' .Column = TileView1.Columns(2)
' .TextAlignment = TileItemContentAlignment.TopRight
' .Appearance.Normal.Font = PrimaryFont
' .Appearance.Normal.ForeColor = Color.DodgerBlue
' .Column.OptionsFilter.AllowFilter = True
' End With
' TileView1.TileTemplate.Add(HeadlineColumn)
' Case 3 To 4
' ' Indexe 3 und 4 sind normale Textzeilen
' TextColumn = New TileViewItemElement()
' TextHeaderColumn = New TileViewItemElement()
' Dim OffsetIndex = index - 3
' With TextHeaderColumn
' .Text = oProfileColumn.ColumnName
' .TextAlignment = TileItemContentAlignment.Manual
' .TextLocation = New Point(120, 20 + (OffsetIndex * 40))
' .Appearance.Normal.Font = SecondaryFont
' .Appearance.Normal.ForeColor = Color.DarkGray
' .Appearance.Normal.BackColor = WhiteBackground
' End With
' With TextColumn
' .Column = TileView1.Columns(index)
' .TextAlignment = TileItemContentAlignment.Manual
' .TextLocation = New Point(120, 20 + 18 + (OffsetIndex * 40))
' .Appearance.Normal.Font = SecondaryFont
' .Appearance.Normal.ForeColor = Color.Black
' .Appearance.Normal.BackColor = WhiteBackground
' End With
' TileView1.TileTemplate.Add(TextHeaderColumn)
' TileView1.TileTemplate.Add(TextColumn)
' End Select
'Next
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
Private Sub TileView1_ItemClick(sender As Object, e As TileViewItemClickEventArgs) Handles TileView1.ItemClick
Dim oPROFILE_ID = TileView1.GetFocusedRowCellValue(TileView1.Columns("GUID"))
CurrSearch2Load = oPROFILE_ID
Dim view As TileView = TryCast(sender, TileView)
Dim pt As Point = view.GridControl.PointToClient(Control.MousePosition)
Dim hitInfo As TileViewHitInfo = view.CalcHitInfo(pt)
If hitInfo.ItemInfo IsNot Nothing Then
Dim elementInfo As TileItemElementViewInfo = hitInfo.ItemInfo.Elements.FirstOrDefault(Function(t) t.EntireElementBounds.Contains(pt))
If elementInfo IsNot Nothing Then
Dim text As String = elementInfo.Element.Text
End If
End If
OpenResults_Doc
End Sub
Sub OpenResults_Doc() Sub OpenResults_Doc()
Me.Hide() Me.Hide()
Dim ofrmresult As Form = New frmResultDoc Dim ofrmresult As Form = New frmResultDoc
ofrmresult.ShowDialog() ofrmresult.ShowDialog()
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim oResult As String = ""
For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
If oResult = "" Then
oResult = oRow.Item("GUID")
Else
oResult &= "," & oRow.Item("GUID")
End If
Next
CurrSearch2Load = oResult
OpenResults_Doc()
End Sub
Private Sub frmProfileMatch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmProfileMatch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try Try
@ -187,4 +65,29 @@ Public Class frmProfileMatch
Logger.Info("Error in Save FormLayout: " & ex.Message) Logger.Info("Error in Save FormLayout: " & ex.Message)
End Try End Try
End Sub End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
Close()
End Sub
Private Sub TileControl1_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControl1.ItemClick
Dim oItem As TileItem = e.Item
Dim oProfileId = oItem.Tag
If oProfileId Is Nothing Then
Dim oResult As String = ""
For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
If oResult = "" Then
oResult = oRow.Item("GUID")
Else
oResult &= "," & oRow.Item("GUID")
End If
Next
CurrSearch2Load = oResult
Else
CurrSearch2Load = oProfileId
End If
OpenResults_Doc()
End Sub
End Class End Class