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

MS_29.11.2015

Browse Source
This commit is contained in:
SchreiberM
2015-11-30 09:32:30 +01:00
parent 7ee607f4e5
commit 2cd1dc3a94
11 changed files with 312 additions and 6077 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
app/DD-Record-Organiser/frmConstructorDesigner.vb
View File

@@ -487,25 +487,6 @@ Public Class frmConstructorDesigner
If ClassDatabase.Execute_non_Query(DEL, True) Then
Load_QuickDisplay()
End If
End Sub
Sub CreateTile()
GridControl1.DataSource = CreateTable(1)
TileView1.OptionsTiles.Orientation = Orientation.Horizontal
TileView1.AppearanceItem.Normal.ForeColor = Color.Maroon
TileView1.AppearanceItem.Hovered.ForeColor = Color.Red
TileView1.ColumnSet.BackgroundImageColumn = TileView1.Columns("Image")
TileView1.OptionsTiles.ItemBackgroundImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleRight
TileView1.OptionsTiles.ItemBackgroundImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomInside
TileView1.TileTemplate.Add(New TileViewItemElement With {.Column = TileView1.Columns("Date"), .TextAlignment = TileItemContentAlignment.Manual, .TextLocation = New Point(150, 100)})
Try
TryCast(TileView1.TileTemplate(0), TileViewItemElement).Column = TileView1.Columns("Name")
Catch ex As Exception
End Try
End Sub
Private Function CreateTable(ByVal rowCount As Integer) As DataTable
Dim tbl As New DataTable()
@@ -519,10 +500,6 @@ Public Class frmConstructorDesigner
Return tbl
End Function
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
CreateTile()
End Sub
Private Sub LOAD_DIRECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOAD_DIRECTCheckBox.CheckedChanged
End Sub