'Listing 33.3   33LIST03.TXT  -- Edycja wybranej komrki

Sub btnUpdate_Click()
  GrdChkReg.Text = txtInput.Text
  txtInput.Text = ""
  btnUpdate.Enabled = False
End Sub


Private Sub GrdChkReg_DblClick()
  Sel1 = False
  If GrdChkReg.SelStartRow = GrdChkReg.SelEndRow Then
    If GrdChkReg.SelStartCol = GrdChkReg.SelEndCol Then
      txtInput.Text = GrdChkReg.Text
      btnUpdate.Enabled = True
      txtInput.SetFocus
      Sel1 = True
    End If
  End If
  If Not Sel1 Then
    MsgBox "Wiersz stay ani kolumna staa nie podlegaj edycji", vbCritical, App.Title
  End If
End Sub
