Форум по Delphi программированию



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 17.11.2021, 15:57
Аватар для Cave
Cave Cave вне форума
Прохожий
 
Регистрация: 03.11.2021
Сообщения: 4
Версия Delphi: Delphi 10
Репутация: 10
По умолчанию FileListBox

Здравствуйте. Требуется ваша помощь. Уже второй день не могу сообразить.
Имеется код для перемещения строк по FileListBox вверх/вниз.
Как сделать чтобы при перемещении строки , перемещаемая строка оставалась выделенной?
Код работает как положено, но как-то нелогично получается когда выделил строку нажал кнопку "вверх"
и выделение пропало. Хочется добиться аккуратного эффекта.

Код:
{выделяем и перемещаем вверх}
procedure TForm9.act_UpExecute(Sender: TObject);
begin
   if FileListBox1.ItemIndex < 0 then exit;
   if FileListBox1.ItemIndex = 0 then
    begin
     FileListBox1.Items.Move(0, Pred(FileListBox1.Items.Count));
     FileListBox1.ItemIndex := Pred(FileListBox1.Items.Count)
    end
  else
    FileListBox1.Items.Exchange(FileListBox1.ItemIndex, Pred(FileListBox1.ItemIndex));
end;

{выделяем и перемещаем вниз}
procedure TForm9.act_DownExecute(Sender: TObject);
begin
   if FileListBox1.ItemIndex < 0 then exit;
   if FileListBox1.ItemIndex = Pred(FileListBox1.Items.Count) then
    begin
     FileListBox1.Items.Move(Pred(FileListBox1.Items.Count), 0);
     FileListBox1.ItemIndex := 0
    end
  else
    FileListBox1.Items.Exchange(FileListBox1.ItemIndex, Succ(FileListBox1.ItemIndex));
end;

Последний раз редактировалось Cave, 17.11.2021 в 16:02.
Ответить с цитированием
  #2  
Старый 18.11.2021, 10:40
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Адрес: Город на Бире
Сообщения: 329
Версия Delphi: 10.4
Репутация: 429
Сообщение

Пропадание выделения строки наблюдается если у FileListBox включено свойство MultiSelect. В противном случае всё работает как надо. Если MultiSelect не требуется, то отключите его.
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием
Этот пользователь сказал Спасибо Kailon за это полезное сообщение:
Cave (18.11.2021)
  #3  
Старый 18.11.2021, 11:31
Аватар для Cave
Cave Cave вне форума
Прохожий
 
Регистрация: 03.11.2021
Сообщения: 4
Версия Delphi: Delphi 10
Репутация: 10
По умолчанию

Цитата:
Сообщение от Kailon
Пропадание выделения строки наблюдается если у FileListBox включено свойство MultiSelect. В противном случае всё работает как надо. Если MultiSelect не требуется, то отключите его.
Спасибо. Так и есть, стоял MultiSelect, но теперь не работают проверки на выделение пунктов
Код:
procedure TForm9.act_DownUpdate(Sender: TObject);
begin
   TAction(Sender).Enabled:= FileListBox1.SelCount > 0;
end;
Ответить с цитированием
  #4  
Старый 18.11.2021, 11:53
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Адрес: Город на Бире
Сообщения: 329
Версия Delphi: 10.4
Репутация: 429
Сообщение

А зачем тогда Вам нужен был MultiSelect если в итоге перемещается только одна строка, вне зависимости от того сколько их выбрано. И что за проверки на выделение пунктов?
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием
  #5  
Старый 18.11.2021, 12:01
Аватар для Cave
Cave Cave вне форума
Прохожий
 
Регистрация: 03.11.2021
Сообщения: 4
Версия Delphi: Delphi 10
Репутация: 10
По умолчанию

Цитата:
Сообщение от Kailon
А зачем тогда Вам нужен был MultiSelect если в итоге перемещается только одна строка, вне зависимости от того сколько их выбрано. И что за проверки на выделение пунктов?
Хотел чтобы можно было выбирать по несколько пунктов. Как то включал эту опцию и не снял её. Только что нашел решение проверки. Оставлю, вдруг кому понадобится
Код:
begin
   if FileListBox1.itemindex > -1 then TAction(Sender).Enabled:= true else
    TAction(Sender).Enabled:= false;
end;
Ответить с цитированием
  #6  
Старый 18.11.2021, 12:06
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Адрес: Город на Бире
Сообщения: 329
Версия Delphi: 10.4
Репутация: 429
Сообщение

Цитата:
Сообщение от Cave
...Оставлю, вдруг кому понадобится...
Оставлять решение проблемы это хорошие манеры
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:00.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2021

ВКонтакте   Facebook   Twitter   Ссылка на Telegram