Scrollbar Annotations

// Enable annotations for the focused row. 
gridView.OptionsScrollAnnotations.ShowFocusedRow = DefaultBoolean.True;

' Enable annotations for the focused row. 
gridView.OptionsScrollAnnotations.ShowFocusedRow = DefaultBoolean.True 

void OnCustomScrollAnnotation(object sender, GridCustomScrollAnnotationsEventArgs e) {
    GridScrollAnnotationInfo info = new GridScrollAnnotationInfo() { RowHandle = 74, Color = Color.Red };
    e.Annotations.Add(info);
}

Private Sub OnCustomScrollAnnotation(ByVal sender As Object, ByVal e As GridCustomScrollAnnotationsEventArgs) Handles gridView.CustomScrollAnnotation
    Dim info As GridScrollAnnotationInfo = New GridScrollAnnotationInfo()
    info.RowHandle = 74
    info.Color = Color.Red
    e.Annotations.Add(info)    
End Sub 

void OnCustomScrollAnnotation(object sender, GridCustomScrollAnnotationsEventArgs e) {
    int[] rowHandles = new int[] { 5, 17, 74 };
    e.SetAnnotations(Color.Red, rowHandles);
}

Private Sub OnCustomScrollAnnotation(ByVal sender As Object, ByVal e As GridCustomScrollAnnotationsEventArgs) Handles gridView.CustomScrollAnnotation
    Dim rowHandles() As Integer = {5, 17, 74}
    e.SetAnnotations(Color.Red, rowHandles)
End Sub 

using DevExpress.XtraEditors.Annotations;
using DevExpress.XtraGrid.Views.Grid;
using DevExpress.XtraGrid.Views.Grid.Drawing;

gridView.CustomScrollAnnotation += OnCustomScrollAnnotation;
gridView.CustomDrawRowIndicator += OnCustomDrawRowIndicator;
gridView.ScrollAnnotationsStyle += OnScrollAnnotationsStyle;
gridView.KeyDown += OnKeyDown;

readonly HashSet<int> bookmarks = new HashSet<int>() { 5, 17, 74 };
// Set custom annotations. 
void OnCustomScrollAnnotation(object sender, GridCustomScrollAnnotationsEventArgs e) {
    int[] rowHandles = bookmarks.Select(x => gridView.GetRowHandle(x)).ToArray();
    e.SetAnnotations(DevExpress.LookAndFeel.DXSkinColors.IconColors.Blue, rowHandles);
}
readonly AnnotationsStyle style = new AnnotationsStyle();
void OnScrollAnnotationsStyle(object sender, GridScrollAnnotationsStyleEventArgs e) {
    var styleColor = style.GetColor(e.Kind);
    if(!styleColor.IsEmpty)
        e.Color = styleColor;
}
// Draw a bookmark glyph. 
void OnCustomDrawRowIndicator(object sender, RowIndicatorCustomDrawEventArgs e) {
    if(e.RowHandle >= 0) {
        if(e.Info.ImageIndex == GridPainter.IndicatorError ||
            e.Info.ImageIndex == GridPainter.IndicatorFocusedError) {
            e.Info.ImageIndex = (e.RowHandle == gridView.FocusedRowHandle) ? GridPainter.IndicatorFocused : -1;
        }
        if(!bookmarks.Contains(gridView.GetDataSourceRowIndex(e.RowHandle)))
            return;
        e.DefaultDraw();
        var bookmarkImage = svgImageCollection.GetImage("bookmark", GetPalette(), ScaleDPI.ScaleSize(new Size(8, 8)));
        var imageBounds = PlacementHelper.Arrange(bookmarkImage.Size, e.Bounds, ContentAlignment.MiddleLeft);
        e.Cache.DrawImageUnscaled(bookmarkImage, imageBounds);
        e.Handled = true;
    }
}
Utils.Design.ISvgPaletteProvider GetPalette() {
    return Utils.Svg.SvgPaletteHelper.GetSvgPalette(gridControl.LookAndFeel, Utils.Drawing.ObjectState.Normal);
}
// Implement forward and back navigation. 
void OnKeyDown(object sender, KeyEventArgs e) {
    if(e.KeyData == (Keys.F2 | Keys.Control) || e.KeyData == (Keys.B | Keys.Control))
        e.Handled = ToggleBookmark(gridView.FocusedRowHandle);
    if(e.KeyData == Keys.F2)
        e.Handled = gridView.MoveToNextScrollAnnotation(ScrollAnnotationKind.Custom);
    if(e.KeyData == (Keys.F2 | Keys.Shift))
        e.Handled = gridView.MoveToPrevScrollAnnotation(ScrollAnnotationKind.Custom);
}
bool ToggleBookmark(int handle) {
    int dataIndex = gridView.GetDataSourceRowIndex(handle);
    if(dataIndex < 0)
        return false;
    if(bookmarks.Contains(dataIndex))
        bookmarks.Remove(dataIndex);
    else 
        bookmarks.Add(dataIndex);
    gridView.RefreshScrollAnnotations(ScrollAnnotationKind.Custom);
    gridView.InvalidateRow(handle);
    return true;
}

Imports DevExpress.XtraEditors.Annotations
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Grid.Drawing

Private ReadOnly bookmarks As New HashSet(Of Integer)() From {5, 17, 74}
' Set custom annotations. 
Private Sub OnCustomScrollAnnotation(ByVal sender As Object, ByVal e As GridCustomScrollAnnotationsEventArgs) Handles gridView.CustomScrollAnnotation
    Dim rowHandles() As Integer = bookmarks.Select(Function(x) gridView.GetRowHandle(x)).ToArray()
    e.SetAnnotations(DevExpress.LookAndFeel.DXSkinColors.IconColors.Blue, rowHandles)
End Sub 
Private ReadOnly style As New AnnotationsStyle()
Private Sub OnScrollAnnotationsStyle(ByVal sender As Object, ByVal e As GridScrollAnnotationsStyleEventArgs) Handles gridView.ScrollAnnotationsStyle
    Dim styleColor = style.GetColor(e.Kind)
    If Not styleColor.IsEmpty Then 
        e.Color = styleColor
    End If 
End Sub 
' Draw a bookmark glyph. 
Private Sub OnCustomDrawRowIndicator(ByVal sender As Object, ByVal e As RowIndicatorCustomDrawEventArgs) Handles gridView.CustomDrawRowIndicator
    If e.RowHandle >= 0 Then 
        If e.Info.ImageIndex = GridPainter.IndicatorError OrElse e.Info.ImageIndex = GridPainter.IndicatorFocusedError Then 
            e.Info.ImageIndex = If((e.RowHandle = gridView.FocusedRowHandle), GridPainter.IndicatorFocused, -1)
        End If 
        If (Not bookmarks.Contains(gridView.GetDataSourceRowIndex(e.RowHandle))) Then 
            Return 
        End If 
        e.DefaultDraw()
        Dim bookmarkImage = svgImageCollection.GetImage("bookmark", GetPalette(), ScaleDPI.ScaleSize(New Size(8, 8)))
        Dim imageBounds = PlacementHelper.Arrange(bookmarkImage.Size, e.Bounds, ContentAlignment.MiddleLeft)
        e.Cache.DrawImageUnscaled(bookmarkImage, imageBounds)
        e.Handled = True 
    End If 
End Sub 
Private Function GetPalette() As Utils.Design.ISvgPaletteProvider
    Return Utils.Svg.SvgPaletteHelper.GetSvgPalette(gridControl.LookAndFeel, Utils.Drawing.ObjectState.Normal)
End Function 
' Implement forward and back navigation. 
Private Sub OnGridKeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles gridView.KeyDown
    If e.KeyData = Keys.F2 Then 
        e.Handled = gridView.MoveToNextScrollAnnotation(ScrollAnnotationKind.Custom)
    End If 
    If e.KeyData = (Keys.F2 Or Keys.Shift) Then 
        e.Handled = gridView.MoveToPrevScrollAnnotation(ScrollAnnotationKind.Custom)
    End If 
    If e.KeyData = (Keys.F2 Or Keys.Control) OrElse e.KeyData = (Keys.B Or Keys.Control) Then 
        e.Handled = ToggleBookmark(gridView.FocusedRowHandle)
    End If 
End Sub 
Private Function ToggleBookmark(ByVal handle As Integer) As Boolean 
    Dim dataIndex As Integer = gridView.GetDataSourceRowIndex(handle)
    If dataIndex < 0 Then 
        Return False 
    End If 
    If bookmarks.Contains(dataIndex) Then 
        bookmarks.Remove(dataIndex)
    Else 
        bookmarks.Add(dataIndex)
    End If 
    gridView.RefreshScrollAnnotations(ScrollAnnotationKind.Custom)
    gridView.InvalidateRow(handle)
    Return True 
End Function