Category / Section
How to format the contents of the WinForms SyntaxEditor (EditControl) using the Configuration file settings?
1 min read
Content format
Please refer to the below code snippets for how to format the contents of the Edit Control using the Configuration file settings.
C#
private string BasePath = Path.GetDirectoryName(Application.ExecutablePath) + @"\..\..\Test Files\SQL.txt"; private string ConfigPath = Path.GetDirectoryName(Application.ExecutablePath) + @"\..\..\config.xml"; this.editControl1.ConfigurationChanged += new System.EventHandler(this.editControl1_ConfigurationChanged); private void editControl1_ConfigurationChanged(object sender, System.EventArgs e) { foreach( FormatManager lang in editControl1.Languages ) { Format format = lang[FormatType.KeyWord] as Format; if( format != null ) { format.OnCustomDraw += new CustomSnippetDrawEventHandler(format_OnCustomDraw); } } } private void format_OnCustomDraw(object sender, CustomSnippetDrawEventArgs e) { string text = e.Text; text = text.ToLower(); text = text[0].ToString().ToUpper() + text.Substring( 1, text.Length - 1 ); e.Text = text; } private void menuItem8_Click(object sender, System.EventArgs e) { this.editControl1.Configurator.Open(ConfigPath); this.editControl1.New(); this.editControl1.LoadFile(BasePath); }
VB
Private BasePath As String = Path.GetDirectoryName(Application.ExecutablePath) + "\..\Test Files\SQL.txt" Private ConfigPath As String = Path.GetDirectoryName(Application.ExecutablePath) + "\..\config.xml" Private Sub editControl1_ConfigurationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles editControl1.ConfigurationChanged Dim lang As FormatManager For Each lang In editControl1.Languages Dim format As Format = lang(FormatType.KeyWord) If Not (format Is Nothing) Then AddHandler format.OnCustomDraw, AddressOf format_OnCustomDraw End If Next lang End Sub Private Sub format_OnCustomDraw(ByVal sender As Object, ByVal e As CustomSnippetDrawEventArgs) Dim text1 As String = e.Text text1 = text1.ToLower() text1 = text1.Substring(0, 1).ToString().ToUpper() + text1.Substring(1, text1.Length - 1) e.Text = text1 End Sub Private Sub menuItem8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles menuItem8.Click Me.editControl1.Configurator.Open(ConfigPath) Me.editControl1.[New]() Me.editControl1.LoadFile(BasePath) End Sub