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

jj_01_02_16

Browse Source
This commit is contained in:
JenneJ
2016-02-01 15:41:28 +01:00
parent 6f416f75a0
commit 666c9d039f
14 changed files with 3114 additions and 2202 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD-Record-Organiser/frmLevel_Designer.vb
View File

@@ -208,14 +208,30 @@
#Region "+++++ Form Events +++++"
Private Sub frmLevel_Designer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
Dim sw
sw = Stopwatch.StartNew()
ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmLevel_Designer")
sw.Stop()
Console.WriteLine(String.Format("SaveFormLocationSize took {0}ms", sw.ElapsedMilliseconds))
sw = Stopwatch.StartNew()
My.Settings.Save()
sw.Stop()
Console.WriteLine(String.Format("My.Settings.Save took {0}ms", sw.ElapsedMilliseconds))
sw = Stopwatch.StartNew()
RebuildView()
sw.Stop()
Console.WriteLine(String.Format("RebuildView took {0}ms", sw.ElapsedMilliseconds))
Dim wid As Integer = Me.Width
Dim update_sizepnl As String = "UPDATE TBPMO_FORM_VIEW SET HEIGHT = " & pnlDesigner.Height & ",WIDTH = " & wid & " where FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
ClassDatabase.Execute_non_Query(update_sizepnl)
frmTool_ControlProperties.Instance.Close()
frmTool_ControlDesigner.Instance.Close()
Catch ex As Exception
End Try
@@ -274,7 +290,7 @@
Dim parent As GroupBox = Nothing
If (dr.Item("CONTROL_PARENT_ID") <> 0) Then
Dim parentname As String = GetName_for_ControlID(dr.Item("CONTROL_PARENT_ID"), CURRENT_FORM_ID)
Dim parentname As String = Get_Name_for_ControlID(dr.Item("CONTROL_PARENT_ID"), CURRENT_FORM_ID)
parent = CtrlBuilder.GetControlByName(parentname)
End If
@@ -526,7 +542,8 @@
' Control Eigenschaften laden
frmTool_ControlProperties.Instance.pgControlProperties.Enabled = True
frmTool_ControlProperties.Instance.LoadControlProperties(CtrlBuilder.CurrentControl)
'frmTool_ControlProperties.Instance.LoadControlProperties(CtrlBuilder.CurrentControl)
frmTool_ControlProperties.Instance.LoadControlPropertiesNeu(CtrlBuilder.CurrentControl)
End Sub
@@ -651,6 +668,12 @@
Private Function RebuildView()
Try
'Dim sql = "EXECUTE PRPMO_CREATE_SQL " & CURRENT_FORM_ID
'ClassDatabase.Execute_non_Query_Async(sql)
'Dim sql2 = "EXECUTE PRPMO_CREATE_TEMP_VIEWS"
'ClassDatabase.Execute_non_Query_Async(sql2)
'Return True
Dim noerror As Boolean = False
Dim sql = "EXECUTE PRPMO_CREATE_SQL " & CURRENT_FORM_ID
noerror = ClassDatabase.Execute_non_Query(sql)