Set XmlEditor Font to Consolas

This commit is contained in:
Jonathan Jenne 2022-04-08 13:14:00 +02:00
parent aff92e2b34
commit aedfa5f0d8
2 changed files with 5 additions and 1 deletions

View File

@ -35,9 +35,10 @@ Partial Class frmXmlEditor
Me.RichEditControl1.Options.HorizontalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden Me.RichEditControl1.Options.HorizontalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden
Me.RichEditControl1.Options.VerticalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden Me.RichEditControl1.Options.VerticalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden
Me.RichEditControl1.ReadOnly = True Me.RichEditControl1.ReadOnly = True
Me.RichEditControl1.ShowCaretInReadOnly = False
Me.RichEditControl1.Size = New System.Drawing.Size(831, 687) Me.RichEditControl1.Size = New System.Drawing.Size(831, 687)
Me.RichEditControl1.TabIndex = 0 Me.RichEditControl1.TabIndex = 0
Me.RichEditControl1.Text = "RichEditControl1" Me.RichEditControl1.Views.SimpleView.BackColor = System.Drawing.Color.White
' '
'frmXmlEditor 'frmXmlEditor
' '

View File

@ -18,5 +18,8 @@
Catch ex As Exception Catch ex As Exception
MsgBox($"Fehler beim Laden der Datei: {ex.Message}", MsgBoxStyle.Critical, Text) MsgBox($"Fehler beim Laden der Datei: {ex.Message}", MsgBoxStyle.Critical, Text)
End Try End Try
RichEditControl1.Document.DefaultCharacterProperties.FontName = "Consolas"
RichEditControl1.Document.DefaultCharacterProperties.FontSize = 9
End Sub End Sub
End Class End Class