ClipboardWatcher/app/DD_Clipboard_Searcher/frmProfileMatch.vb

Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid.Views.Tile
Imports DevExpress.XtraGrid.Views.Tile.ViewInfo

Public Class frmProfileMatch
    Private Sub frmProfileMatch_Load(sender As Object, e As EventArgs) Handles Me.Load
        CreateTiles()
        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)

            ' Datatable laden
            GridControl1.DataSource = CurrDT_PROFILE_MATCH

            TileView1.TileTemplate.Clear()

            Dim ImageColumn As TileViewItemElement
            Dim HeadlineColumn As TileViewItemElement
            Dim IDColumn As TileViewItemElement
            Dim TextColumn As TileViewItemElement
            Dim TextHeaderColumn As TileViewItemElement

            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)


            '    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
        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
End Class