procedure TRadar.DeleteCheckImage(WidgetName: string; Name: string);
var
i: integer;
WI, CI: integer;
begin
WI:= -1;
for i:= 0 to MainSet.WidgetCount - 1 do
if (MainSet.WidgetArray[i].Name = WidgetName) then
begin
WI:= i;
break;
end;
if (WI = -1) then exit;
CI:= -1;
for i:= 0 to MainSet.WidgetArray[WI].CheckImageCount - 1 do
if (MainSet.WidgetArray[WI].CheckImageArray[i].Name = Name) then
begin
CI:= i;
break;
end;
if (CI = -1) then exit;
MainSet.WidgetArray[WI].CheckImageArray[CI].Name:= 'Nil';
MainSet.WidgetArray[WI].CheckImageArray[CI].NeedDelete:= true;
end;