Optimize controls

Author: Timocop

BasicPawn/Classes/ClassControlStyle.vb

@@ -448,11 +448,15 @@ Public Class ClassControlStyle
 
 
     Public Shared Sub UpdateControls(c As Control)
+        c.SuspendLayout()
+
         SetColor(c)
 
         For Each i As Control In c.Controls
             UpdateControls(i)
         Next
+
+        c.ResumeLayout()
     End Sub
 
     ''' <summary>

BasicPawn/Classes/FormMain/ClassTabControl.vb

@@ -625,15 +625,16 @@ Public Class ClassTabControl
         End Sub
 
         Private Sub CreateTextEditor()
-            g_mSourceTextEditor = New TextEditorControlEx With {
-                .ContextMenuStrip = g_mFormMain.ContextMenuStrip_RightClick,
-                .IsIconBarVisible = True,
-                .ShowTabs = True,
-                .ShowVRuler = False,
-                .HideMouseCursor = True,
-                .Margin = New Padding(0),
-                .Padding = New Padding(0)
-            }
+            g_mSourceTextEditor = New TextEditorControlEx
+            g_mSourceTextEditor.SuspendLayout()
+
+            g_mSourceTextEditor.ContextMenuStrip = g_mFormMain.ContextMenuStrip_RightClick
+            g_mSourceTextEditor.IsIconBarVisible = True
+            g_mSourceTextEditor.ShowTabs = True
+            g_mSourceTextEditor.ShowVRuler = False
+            g_mSourceTextEditor.HideMouseCursor = True
+            g_mSourceTextEditor.Margin = New Padding(0)
+            g_mSourceTextEditor.Padding = New Padding(0)
 
             g_mSourceTextEditor.Document.TextEditorProperties.Font = ClassSettings.g_iSettingsTextEditorFont
             g_mSourceTextEditor.Document.TextEditorProperties.IndentationSize = If(ClassSettings.g_iSettingsTabsToSpaces > 0, ClassSettings.g_iSettingsTabsToSpaces, 4)
@@ -646,6 +647,7 @@ Public Class ClassTabControl
             g_mSourceTextEditor.Document.FoldingManager.UpdateFoldings(Nothing, Nothing)
 
             g_mSourceTextEditor.Visible = True
+            g_mSourceTextEditor.ResumeLayout()
         End Sub
 
         Public Sub NewIndetifier()

BasicPawn/Controls and Forms/DatabaseViewer/ClassDatabaseViewer.vb

@@ -31,12 +31,16 @@ Public Class ClassDatabaseViewer
 
         RemoveItemByName(sName)
 
-        Dim mDatabaseViewerItem As New ClassDatabaseViewerItem(sName, sUsername) With {
-            .Parent = Me,
+        With New ClassDatabaseViewerItem(sName, sUsername)
+            .SuspendLayout()
+
+            .Parent = Me
             .Dock = DockStyle.Top
-        }
-        mDatabaseViewerItem.BringToFront()
-        mDatabaseViewerItem.Show()
+            .BringToFront()
+            .Show()
+
+            .ResumeLayout()
+        End With
 
         Me.ResumeLayout()
     End Sub

BasicPawn/Controls and Forms/FormMultiCompiler.vb

@@ -109,7 +109,7 @@ Public Class FormMultiCompiler
 
                 Me.Invoke(Sub()
                               ProgressBar_Compiled.Increment(1)
-                              Me.Update()
+                              Me.Refresh()
                           End Sub)
             Next
 

BasicPawn/Controls and Forms/StartPage/UCStartPage.vb

@@ -76,6 +76,8 @@ Public Class UCStartPage
 
             If (Not bProjectsFound) Then
                 With New Label
+                    .SuspendLayout()
+
                     .Text = "No recent projects found!"
                     .Font = New Font(Me.Font.FontFamily, 12, FontStyle.Regular)
                     .AutoSize = False
@@ -84,11 +86,15 @@ Public Class UCStartPage
                     .Parent = TabPage_RecentProjects
                     .Dock = DockStyle.Fill
                     .Show()
+
+                    .ResumeLayout()
                 End With
             End If
 
             If (Not bFilesFound) Then
                 With New Label
+                    .SuspendLayout()
+
                     .Text = "No recent files found!"
                     .Font = New Font(Me.Font.FontFamily, 12, FontStyle.Regular)
                     .AutoSize = False
@@ -97,6 +103,8 @@ Public Class UCStartPage
                     .Parent = TabPage_RecentFiles
                     .Dock = DockStyle.Fill
                     .Show()
+
+                    .ResumeLayout()
                 End With
             End If
 
@@ -332,18 +340,21 @@ Public Class UCStartPage
         End Function
 
         Public Sub ClearRecentItems()
-            g_mUCStartPage.TabControl_RecentProjects.SuspendLayout()
+            g_mUCStartPage.TabPage_RecentFiles.SuspendLayout()
+            g_mUCStartPage.TabPage_RecentProjects.SuspendLayout()
 
             Dim mRecentItems = GetAllItems()
             For i = mRecentItems.Length - 1 To 0 Step -1
                 mRecentItems(i).Dispose()
             Next
 
-            g_mUCStartPage.TabControl_RecentProjects.ResumeLayout()
+            g_mUCStartPage.TabPage_RecentFiles.ResumeLayout()
+            g_mUCStartPage.TabPage_RecentProjects.ResumeLayout()
         End Sub
 
         Public Sub RefreshRecentItems()
-            g_mUCStartPage.TabControl_RecentProjects.SuspendLayout()
+            g_mUCStartPage.TabPage_RecentFiles.SuspendLayout()
+            g_mUCStartPage.TabPage_RecentProjects.SuspendLayout()
 
             ClearRecentItems()
 
@@ -435,6 +446,8 @@ Public Class UCStartPage
                 End Select
 
                 With New UCStartPageRecentItem(g_mUCStartPage, sFile)
+                    .SuspendLayout()
+
                     If (bProjectFile) Then
                         .Parent = g_mUCStartPage.TabPage_RecentProjects
                     Else
@@ -444,14 +457,19 @@ Public Class UCStartPage
                     .Dock = DockStyle.Top
                     .BringToFront()
                     .Show()
+
+                    .ResumeLayout()
                 End With
             Next
 
-            g_mUCStartPage.TabControl_RecentProjects.ResumeLayout()
+            g_mUCStartPage.TabPage_RecentFiles.ResumeLayout()
+            g_mUCStartPage.TabPage_RecentProjects.ResumeLayout()
         End Sub
 
         Private Sub CreateLastModifiedLabel(sText As String, mParent As Control)
             With New Label
+                .SuspendLayout()
+
                 .Text = sText
                 .Font = New Font(.Font.FontFamily, 12, FontStyle.Bold)
                 .Name &= "@SetForeColorRoyalBlue"
@@ -461,6 +479,8 @@ Public Class UCStartPage
                 .Dock = DockStyle.Top
                 .BringToFront()
                 .Show()
+
+                .ResumeLayout()
             End With
         End Sub
     End Class