Vermischtes

procedure TPluginManagerForm.btn_deleteClick(Sender: TObject);
var
  ri : integer;
  cp : integer;
begin
  if list_plugins.ItemIndex = -1 then exit;

  ri := ModuleManager.GetFirstRModuleIndex; // index of the first right aligned module
  cp := list_plugins.ItemIndex;
  if (cp > ri) and (ri <> -1) then cp := cp -1;

  if (cp > ModuleManager.Modules.Count - 1) then exit;
  ModuleManager.Delete(TModule(ModuleManager.Modules.Items[cp]).ID);
  UpdatePluginList;
  SharpBarMainForm.SaveBarSettings;
end;