Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Группы в плиточном интерфейсе DevExpress  [new]
Victor Cookin
Member

Откуда: Самара
Сообщений: 799
Если из группы плоьзователь удаляет все плитки, то группа исчезает.
Как можно этого избежать? Как можно оставить пустую группу?

К сообщению приложен файл (TilesInGroups.rar - 3Kb) cкачать
7 июн 21, 23:56    [22332609]     Ответить | Цитировать Сообщить модератору
 Re: Группы в плиточном интерфейсе DevExpress  [new]
Victor Cookin
Member

Откуда: Самара
Сообщений: 799
Для разработчика сайта: когда размер загружаемого файла превышен, то появляется красная надпись об этом. Но она не пропадает при последующей загрузке файла разрешённого размера, что конфузит.
7 июн 21, 23:57    [22332610]     Ответить | Цитировать Сообщить модератору
 Re: Группы в плиточном интерфейсе DevExpress  [new]
Victor Cookin
Member

Откуда: Самара
Сообщений: 799
Получилось

//не разрешаем удалять группы с таг>0
procedure TForm1.dxTileControl1GroupRemoveWithLastItem(
  Sender: TdxCustomTileControl; AGroup: TdxTileControlGroup;
  var AAllow: Boolean);
begin
  if AGroup.tag > 0 then
    AAllow := False;
end;

//оставляем только группы с таг>0
procedure ClearGroups (TileControl: TdxCustomTileControl);
var i : integer;
begin
  if not (TileControl is TdxCustomTileControl) then
    exit;
  for i := TileControl.Groups.Count-1 downto 0 do
    if TileControl.Groups[i].tag = 0 then
       TileControl.Groups.Delete(i);
end;

//если плитка упала за плинтус, ставим её во вторую группу
procedure TForm1.dxTileControl1ItemDragEnd(Sender: TdxCustomTileControl;
  AInfo: TdxTileControlDragItemInfo);
var i : integer;
begin
  ClearGroups (Sender);
  if not Assigned (AInfo.Group) then
    AInfo.Item.Group:= Sender.Groups[1];
end;


К сообщению приложен файл (9.rar - 3Kb) cкачать
8 июн 21, 07:53    [22332640]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить