diff --git a/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb b/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb index 692ecf9..0acdd00 100644 --- a/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb @@ -22,7 +22,7 @@ Partial Class frmProfileMatch 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ 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)) Me.Label1 = New System.Windows.Forms.Label() Me.TileControl1 = New DevExpress.XtraEditors.TileControl() @@ -74,9 +74,9 @@ Partial Class frmProfileMatch ' 'TileItem1 ' - TileItemElement3.ImageOptions.Image = CType(resources.GetObject("resource.Image"), System.Drawing.Image) - TileItemElement3.Text = "Alle" - Me.TileItem1.Elements.Add(TileItemElement3) + TileItemElement2.ImageOptions.Image = CType(resources.GetObject("resource.Image"), System.Drawing.Image) + TileItemElement2.Text = "Alle" + Me.TileItem1.Elements.Add(TileItemElement2) Me.TileItem1.Id = 1 Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium Me.TileItem1.Name = "TileItem1" diff --git a/app/DD_Clipboard_Searcher/frmProfileMatch.vb b/app/DD_Clipboard_Searcher/frmProfileMatch.vb index ba869f0..407341b 100644 --- a/app/DD_Clipboard_Searcher/frmProfileMatch.vb +++ b/app/DD_Clipboard_Searcher/frmProfileMatch.vb @@ -17,164 +17,42 @@ Public Class frmProfileMatch CurrSearch2Load = Nothing End Sub - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - Me.Close() - End Sub Sub CreateTiles() Try - Dim ImageIndex As Integer = -1 - Dim i As Integer = 0 - 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) + Dim oPrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold) + Dim oSecondaryFont As New Font("Segoe UI", 10) - ' Datatable laden - GridControl1.DataSource = CurrDT_PROFILE_MATCH + Dim oGroup = TileControl1.Groups.Item("TileGroupProfiles") - 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 HeadlineColumn As TileViewItemElement - Dim IDColumn As TileViewItemElement - Dim TextColumn As TileViewItemElement - Dim TextHeaderColumn As TileViewItemElement + Dim oNameElement = New TileItemElement() + oNameElement.Text = oRow.Item("NAME") + oNameElement.TextAlignment = TileItemContentAlignment.TopLeft + oNameElement.Appearance.Normal.Font = oPrimaryFont + oItem.Elements.Add(oNameElement) - HeadlineColumn = New TileViewItemElement() - With HeadlineColumn - .Column = TileView1.Columns(1) - .TextAlignment = TileItemContentAlignment.TopRight - .Appearance.Normal.Font = PrimaryFont - .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) + Dim oCommentElement = New TileItemElement() + oCommentElement.Text = oRow.Item("COMMENT") + oCommentElement.TextAlignment = TileItemContentAlignment.BottomLeft + oCommentElement.Appearance.Normal.Font = oSecondaryFont + oItem.Elements.Add(oCommentElement) - - ' Select Case index - ' '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 + oGroup.Items.Add(oItem) + Next Catch ex As Exception End Try - - 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() Me.Hide() Dim ofrmresult As Form = New frmResultDoc ofrmresult.ShowDialog() 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 Try @@ -187,4 +65,29 @@ Public Class frmProfileMatch Logger.Info("Error in Save FormLayout: " & ex.Message) End Try 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 \ No newline at end of file