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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-05-19 17:05:33 +02:00
parent 2e5e1310fa
commit 9887b00859
2 changed files with 17 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

@@ -1484,7 +1484,7 @@
<value>False</value> <value>False</value>
</data> </data>
<data name="tslblFileslocked.Size" type="System.Drawing.Size, System.Drawing"> <data name="tslblFileslocked.Size" type="System.Drawing.Size, System.Drawing">
<value>110, 16</value> <value>110, 22</value>
</data> </data>
<data name="tslblFileslocked.Text" xml:space="preserve"> <data name="tslblFileslocked.Text" xml:space="preserve">
<value>Kein Dateizugriff</value> <value>Kein Dateizugriff</value>

28
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -170,7 +170,6 @@ Public Class frmConstructor_Main
End Try End Try
End If End If
_FormClosing = True _FormClosing = True
' Check_Record_Changed() ' Check_Record_Changed()
CloseWDDocview() CloseWDDocview()
@@ -538,19 +537,24 @@ Public Class frmConstructor_Main
End Sub End Sub
Public Sub Hide_Grid_Columns() Public Sub Hide_Grid_Columns()
Dim DefaultHiddenColumns As New List(Of String) From {"Record-ID", "Form-ID"} Try
Dim QuickHiddenColumns As New List(Of String) From {"AddedWho", "AddedWhen", "ChangedWho", "ChangedWhen"} Dim DefaultHiddenColumns As New List(Of String) From {"Record-ID", "Form-ID", "ROW_COLOR"}
Dim QuickHiddenColumns As New List(Of String) From {"AddedWho", "AddedWhen", "ChangedWho", "ChangedWhen"}
If GRID_TYPE = GridType.Carousel Or GRID_TYPE = GridType.Tiles Then If GRID_TYPE = GridType.Carousel Or GRID_TYPE = GridType.Tiles Then
DefaultHiddenColumns.AddRange(QuickHiddenColumns) DefaultHiddenColumns.AddRange(QuickHiddenColumns)
End If
For Each colname As String In DefaultHiddenColumns
Dim col = grvwTiles.Columns.Item(colname)
If col IsNot Nothing Then
col.Visible = False
End If End If
Next
For Each colname As String In DefaultHiddenColumns
Dim col = grvwTiles.Columns.Item(colname)
If col IsNot Nothing Then
col.Visible = False
End If
Next
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Hide_Grid_Columns")
End Try
End Sub End Sub
'Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer) 'Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer)