Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Май

Перетаскивание пунктов в ListBox

Posted by Chas under Delphi

Чтобы можно было мышкой зацепить запись и переместить ее выше/ниже, при этом чтобы текущая позиция вставки как-то идентифицировалась, например как в AIMP, когда меняется позиция выранного трека — подсвечивается жирной линией. Может кто встречал, я что-то на вскидку не могу ничего подобрать. Можно конечно запрограммировать штатную гриду или ListView через BeginDrag, но там не будет подстветки позиции вставки.

Sibedir
Жирную линию рисовать самому на Canvas в обработчике OnDragOver.

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);

var

  r: TRect;

  i: Integer;

begin

  Accept := (Source = ListBox1) and (ListBox1.ItemIndex >= 0);

  if Accept then with ListBox1 do begin

    i := ItemAtPos (Point(X,Y+(ItemHeight div 2)), False);

    if i = -1 then

      r := ItemRect (Count)

    else

      r := ItemRect (i);

    ListBox1.Refresh;

    Canvas.Pen.Width := 3;

    Canvas.Pen.Color := clBlack;

    Canvas.MoveTo (r.Left, r.Top);

    Canvas.LineTo (r.Right, r.Top);

  end;

end;
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);

var

  i: Integer;

  s: String;

  o: TObject;

begin

  if Source = ListBox1 then with ListBox1 do begin

    s := Items.Strings [ItemIndex];

    o := Items.Objects [ItemIndex];

    i := ItemAtPos (Point(X,Y+(ItemHeight div 2)), False);

    if i > ItemIndex then i := i - 1;

    Items.Delete(ItemIndex);

    if i = -1 then

      Items.AddObject (s, o)

    else

      Items.InsertObject (i, s, o);

  end;

end;