isFocused   :=  AviewInfo.RecordViewInfo.Selected;
    if isFocused then
    begin

        oldColor := Acanvas.Brush.Color;

        if AViewInfo.Item.IsFirst then
        borders := [bLeft, bTop, bBottom]
        else
        if AViewInfo.Item.IsLast then
        borders := [bTop, bRight, bBottom]
        else
        borders := [bTop, bBottom];


        AViewInfo.EditViewInfo.BackgroundColor := oldColor;
        AViewInfo.EditViewInfo.Font := ACanvas.Canvas.Font;
        AViewInfo.EditViewInfo.TextColor := ACanvas.Canvas.Font.Color;
        AViewInfo.EditViewInfo.Paint(ACanvas);

        ACanvas.DrawComplexFrame(AViewInfo.ClientBounds, borderColor, borderColor, borders, 2);
        ADone := True;



    end;