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;
Ответов: 2415
Рейтинг: 691
|
|||
Все таки проблема была в MST_SelectRow в процедуре doSelectInvert. Думаю нужно сделать так:
|
|||
карма: 11 |
|