You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
{{ message }}
This repository has been archived by the owner on Oct 2, 2023. It is now read-only.
Private Sub richEditControl1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles richEditControl1.Paint
Dim range As DocumentRange = richEditControl1.Document.Selection
Dim rect As Rectangle = richEditControl1.GetBoundsFromPosition(range.Start)
rect = New Rectangle(0, CInt(Fix(Units.DocumentsToPixels(rect.Top, richEditControl1.DpiX))), richEditControl1.ClientSize.Width, CInt(Fix(Units.DocumentsToPixels(rect.Height, richEditControl1.DpiX))))
Dim brush As Brush = New SolidBrush(Color.FromArgb(100, Color.Red))
e.Graphics.FillRectangle(brush, rect)
End Sub
Private Sub richEditControl1_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles richEditControl1.SelectionChanged