procedure ThiMTStrTbl._OnBeforeLineChange;
var
  dt: TData;
begin 
  if _prop_CheckBoxes then
   begin
    CBvalue := Control.LVItemStateImgIdx[idx]; //сохраним
    if CBvalue = 0 then exit;//Fix: Error draw checkbox after dbclik on empty area if Redaction = True  (sla8a 2021.10.12)
   end;
  dt := Get(Idx); 
  _hi_OnEvent_(_event_onBeforeLineChange, dt);
end;

procedure ThiMTStrTbl._OnLineChange;
var
  dt: TData;
begin     
  if _prop_CheckBoxes then
   begin
    if CBvalue = 0 then exit;//Fix: Error draw checkbox after dbclik on empty area if Redaction = True  (sla8a 2021.10.12)
    Control.LVItemStateImgIdx[idx] := CBvalue; //восстановим
   end;
  dt := Get(Idx);
  _hi_OnEvent_(_event_onLineChange, dt);
end;