procedure ThiMTStrTbl._OnBeforeLineChange;
var
  dt: TData;
begin 
  if _prop_CheckBoxes then 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)
  dt := Get(Idx); 
  _hi_OnEvent_(_event_onBeforeLineChange, dt);//это событие не произойдет если отключены CheckBox-ы
end;