powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Группы в плиточном интерфейсе DevExpress
3 сообщений из 3, страница 1 из 1
Группы в плиточном интерфейсе DevExpress
    #40076260
Фотография Victor Cookin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если из группы плоьзователь удаляет все плитки, то группа исчезает.
Как можно этого избежать? Как можно оставить пустую группу?
...
Рейтинг: 0 / 0
Группы в плиточном интерфейсе DevExpress
    #40076261
Фотография Victor Cookin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для разработчика сайта: когда размер загружаемого файла превышен, то появляется красная надпись об этом. Но она не пропадает при последующей загрузке файла разрешённого размера, что конфузит.
...
Рейтинг: 0 / 0
Группы в плиточном интерфейсе DevExpress
    #40076277
Фотография Victor Cookin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Получилось

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
//не разрешаем удалять группы с таг>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;
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Группы в плиточном интерфейсе DevExpress
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]