Вверх ↑
Ответов: 2415
Рейтинг: 691
#1: 2025-04-15 14:54:07 ЛС | профиль | цитата
Все таки проблема была в MST_SelectRow в процедуре doSelectInvert. Думаю нужно сделать так:

procedure THIMST_SelectRow._work_doSelectInvert;
var
sControl: PControl;
i: integer;
begin
if not Assigned(_prop_MSTControl) then exit;
sControl := _prop_MSTControl.ctrlpoint;
if (sControl.Count = 0) or not(lvoMultiSelect in sControl.LVOptions) then exit;
for i := 0 to sControl.Count - 1 do
if (lvisSelect in sControl.LVItemState[i]) then
sControl.LVItemState[i] := []
else
sControl.LVItemState[i] := [lvisSelect, lvisFocus];
_hi_onEvent(_event_onSelectRow);
end;
карма: 11

0