procedure TfmeEvtReg.tvEvtTypeToggleCheckbox(TreeView: TfcCustomTreeView;
Node: TfcTreeNode);
var
i : integer;
begin
tvEvtType.OnToggleCheckbox := nil;
for i := 0 to tvEvtType.Items.Count -1 do
begin
if Node <> tvEvtType.Items[i] then
begin
tvEvtType.Items[i].Checked := False;
end;
end;
tvEvtType.OnToggleCheckbox := tvEvtTypeToggleCheckbox;
end;
Node: TfcTreeNode);
var
i : integer;
begin
tvEvtType.OnToggleCheckbox := nil;
for i := 0 to tvEvtType.Items.Count -1 do
begin
if Node <> tvEvtType.Items[i] then
begin
tvEvtType.Items[i].Checked := False;
end;
end;
tvEvtType.OnToggleCheckbox := tvEvtTypeToggleCheckbox;
end;