'LISTING 33.2 33LIST02.TXT - Sprawdzanie, czy zosta wybrany kompletny wiersz.

Private Sub btnDelRow_Click()
  if GrdChkReg.SelStartRow = GrdChkReg.SelEndRow Then
    if GrdChkReg.SelStartCol = GrdChkReg.FixedCols And GrdChkReg.SelEndCol = GrdChkReg.Cols-1 Then
      if GrdChkReg.Rows <= GrdChkReg.FixedRows + 1 Then
        MsgBox "Nie mona usun jedynego wiersza danych", vbCritical, App.Title
      Else
        GrdChkReg.RemoveItem GrdChkReg.SelStartRow
      End If
    Else
      MsgBox "Wiersz musi by wybrany w caoci", vbCritical, App.Title
    End If
  Else
     MsgBox "Musi by wybrany dokadnie jeden wiersz ", vbCritical, App.Title
End Sub
