Moving listview with columns items up/down with buttons

Dev Shed Forums Sponsor:

November 14th, 2012, 08:51 AM

ud2006

Contributing User

Join Date: Mar 2007

Posts: 230

Time spent in forums: 4 Days 20 h 39 m
Reputation Power: 7

Moving listview with columns items up/down with buttons

I have a listview with columns, and I try to move a single selected item (row selected) up or down, but nothing happends, not even an error message.

The multiselect from the listview is set to False.

Here is the code I have, it does work when I don't have multiple columns:

Code:

procedure TForm1.upbtnClick(Sender: TObject);
var
  Index: integer;
  temp : TListItem;
begin
  if ListView1.Focused then
    if ListView1.SelCount>0 then
    begin
      //ListView1.ReadOnly := False;
      Index := ListView1.Selected.Index;
      if Index>0 then
      begin
        temp := ListView1.Items.Insert(Index-1);
        temp.Assign(ListView1.Items.Item[Index+1]);
        ListView1.Items.Delete(Index+1);
        // fix display so moved item is selected/focused
        ListView1.Selected := temp;
        ListView1.ItemFocused := temp;
      end;
      //ListView1.ReadOnly := True;
    end; 
end;

procedure TForm1.downbtnClick(Sender: TObject);
var
  Index: integer;
  temp : TListItem;
begin
  if ListView1.Focused then
    if ListView1.SelCount>0 then
    begin
      //ListView1.ReadOnly := False;
      Index := ListView1.Selected.Index;
      if Index<ListView1.Items.Count then
      begin
        temp := ListView1.Items.Insert(Index+2);
        temp.Assign(ListView1.Items.Item[Index]);
        ListView1.Items.Delete(Index);
        // fix display so moved item is selected/focused
        ListView1.Selected := temp;
        ListView1.ItemFocused := temp;
      end;
        //ListView1.ReadOnly := True;
    end;
end;

Thanks

November 14th, 2012, 11:20 AM

majlumbo

Contributing User

Join Date: Jun 2008

Posts: 253

Time spent in forums: 2 Days 23 h 37 m 14 sec
Reputation Power: 5

This should work.

Code:

procedure TForm1.upbtnClick(Sender: TObject);
var
  Index: integer;
  SelectedItem : TListItem;
begin
   if ListView1.SelCount > 0 then
   begin
      Index := ListView1.Selected.Index;
      SelectedItem := ListView1.Selected;
      if Index > 0 then
      begin
         ListView1.Items.BeginUpdate;
         try
            ListView1.Items.Insert(Index-1).Assign(SelectedItem);
            ListView1.Items.Delete(Index+1);
            ListView1.Selected := ListView1.Items[Index-1];
         finally
            ListView1.Items.EndUpdate;
         end;
      end;
   end;
end;

procedure TForm1.downbtnClick(Sender: TObject);
var
  Index: integer;
  SelectedItem : TListItem;
begin
   if ListView1.SelCount > 0 then
   begin
      Index := ListView1.Selected.Index;
      SelectedItem := ListView1.Selected;
      if Index < (ListView1.Items.Count - 1) then
      begin
         ListView1.Items.BeginUpdate;
         try
            ListView1.Items.Insert(Index+2).Assign(SelectedItem);
            ListView1.Items.Delete(Index);
            ListView1.Selected := ListView1.Items[Index+1];
         finally
            ListView1.Items.EndUpdate;
         end;
      end;
   end;
end;

Also, I removed the "If ListView1.Focused then" - that line always evaluated false, even with the listview focused...

Last edited by majlumbo : November 14th, 2012 at 11:45 AM.

Viewing: Dev Shed Forums > Programming Languages - More > Delphi Programming > Moving listview with columns items up/down with buttons

« Previous Thread | Next Thread »

Developer Shed Advertisers and Affiliates

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump