fix
This commit is contained in:
Jonathan Jenne
parent
d513a7cfc2
commit
feafd96cb6
@ -22,7 +22,7 @@ Partial Class frmProfileMatch
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
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"
|
||||
|
||||
@ -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
|
||||
Loading…
x
Reference in New Issue
Block a user