diff --git a/GUIs.Common/My Project/licenses.licx b/GUIs.Common/My Project/licenses.licx index 9ed1fd07..6e4ebb0a 100644 --- a/GUIs.Common/My Project/licenses.licx +++ b/GUIs.Common/My Project/licenses.licx @@ -1,13 +1,14 @@ DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/GUIs.Common/SQLEditor/SQLSyntaxHighlightService.vb b/GUIs.Common/SQLEditor/SQLSyntaxHighlightService.vb index 8f743ef6..0ec49f88 100644 --- a/GUIs.Common/SQLEditor/SQLSyntaxHighlightService.vb +++ b/GUIs.Common/SQLEditor/SQLSyntaxHighlightService.vb @@ -15,7 +15,7 @@ Namespace SQLEditor Private _keywords As Regex Private _quotedString As New Regex("'([^']|'')*'") - Private _commentedString As New Regex("(/\*([^*]|[\r\n]|(\*+([^*/]|[\r\n])))*\*+/)") + Private _commentedString As New Regex("(\/\*([^*]|[\r\n]|(\*+([^*/]|[\r\n])))*\*+\/)") Private _placeholderString As New Regex("{#(\w+)#([\:\.\w\s_/-]+)}") Private ReadOnly keywords As New List(Of String) From { @@ -35,12 +35,14 @@ Namespace SQLEditor "GO", "DECLARE", "EXECUTE", - "NVARCHAR", "FROM", "INTO", "VALUES", "WHERE", - "AND" + "AND", + "INNER", + "AS", + "IN" } Public Sub New(ByVal document As Document) @@ -60,6 +62,15 @@ Namespace SQLEditor Dim oTokens As New List(Of SyntaxHighlightToken)() Dim oRanges As IEnumerable(Of DocumentRange) = Nothing + ' This is deactivated for now because it times out finding big comment in a sql + 'Find all comments + 'oRanges = TryCast(document.FindAll(_commentedString).GetAsFrozen(), DocumentRange()) + 'For Each oRange In oRanges + ' If Not IsRangeInTokens(oRange, oTokens) Then + ' oTokens.Add(CreateToken(oRange.Start.ToInt(), oRange.End.ToInt(), Color.Green)) + ' End If + 'Next + ' search for quoted strings oRanges = document.FindAll(_quotedString).GetAsFrozen() For Each oRange In oRanges @@ -82,14 +93,6 @@ Namespace SQLEditor End If Next - 'Find all comments - oRanges = TryCast(document.FindAll(_commentedString).GetAsFrozen(), DocumentRange()) - For Each oRange In oRanges - If Not IsRangeInTokens(oRange, oTokens) Then - oTokens.Add(CreateToken(oRange.Start.ToInt(), oRange.End.ToInt(), Color.Green)) - End If - Next - ' order tokens by their start position oTokens.Sort(New SyntaxHighlightTokenComparer()) diff --git a/GUIs.Common/frmSQLEditor.vb b/GUIs.Common/frmSQLEditor.vb index 33625eed..c469b1f4 100644 --- a/GUIs.Common/frmSQLEditor.vb +++ b/GUIs.Common/frmSQLEditor.vb @@ -43,6 +43,8 @@ Public Class frmSQLEditor Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load FormLoading = True + txtSQLCommand.BeginUpdate() + Try If PlaceholdersAutomatic Is Nothing Then PlaceholdersAutomatic = New Dictionary(Of String, String) @@ -86,6 +88,7 @@ Public Class frmSQLEditor chkClearPlaceholders.Checked = ClearPlaceholdersAfterSuccessfulExecute Catch ex As Exception Finally + txtSQLCommand.EndUpdate() FormLoading = False End Try