procedure Tbkrehab_fanlagedaten.grd_defsClickCell(Sender: TObject;
  DataColDown, DataRowDown, DataColUp, DataRowUp: Integer; DownPos,
  UpPos: TtsClickPosition);
var j:integer;
begin
if (datarowup=datarowdown) and (datacolup=datacoldown) then
begin
case datarowup of
    7 .. 11:
    begin
        if grd_defs.Cellcheckboxstate[datacolup,datarowup]=cbChecked then
        begin

          grd_defs.Cell[datacolup,datarowup]:=cbUnchecked;
        end;
        for j:=1 to grd_defs.cols do
          grd_defs.Cell[j,datarowup]:=cbUnchecked;
        for j:=7 to 11 do
          grd_defs.Cell[Datacolup,j]:=cbUnchecked;
        grd_defs.Cell[datacolup,datarowup]:=cbChecked;

    end;
  end;
end;

end;