Private Sub tdbgrid2_OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.OwnerDrawCellEventArgs) Handles tdbgrid2.OwnerDrawCell
        
        Dim drawBrush_text As New SolidBrush(Color.FromKnownColor(KnownColor.WindowText))
        Dim drawBrush_backcolor As New SolidBrush(Color.FromKnownColor(KnownColor.Window))
        Dim drawBrush_backcolor_godgraphic As New SolidBrush(Color.Silver)
        Dim rectF1 As New RectangleF(e.CellRect.X, e.CellRect.Y, e.CellRect.Width, e.CellRect.Height)
        Dim gridLinePen As Pen = New Pen(drawBrush_backcolor)
 If (e.Col = 1 Or e.Col = 2 Or e.Col = 3) Then
            If IsDBNull(e.Text) = False Then
                If e.Text = "бессрочно" Then
                    e.Graphics.FillRectangle(drawBrush_backcolor, rectF1)

                    If e.Col = 2 Or e.Col = 3 Then

                        e.Graphics.DrawLine(gridLinePen, e.CellRect.Left - 1, e.CellRect.Top, e.CellRect.Left - 1, e.CellRect.Bottom - 2)

                    End If

                    '--Inserting text
                    If IsDBNull(e.Text) = False Then
                        If e.Col = 2 Then
                            Dim asd As String = (e.CellRect.Height / 1.7) - e.Style.Font.Height
                            e.Graphics.DrawString(CType(e.Text, String), e.Style.Font, Brushes.Black, e.CellRect.X - 30, e.CellRect.Y + asd)

                        End If
                    End If

                    e.Handled = True
                End If
            End If
        End If
End Sub