unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
Buttons, uListViewUtils;
type
{ TForm1 }
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
ListView1: TListView;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
procedure number_all;
end;
var
Form1: TForm1;
enumerando: integer;
implementation
{$R *.lfm}
{ TForm1 }
procedure tform1.number_all;
begin
// volviendo a enumerar después de borrar
for enumerando := 0 to ListView1.Items.Count-1 do
ListView1.Items[enumerando].Caption := IntToStr(enumerando+1);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
enumerando: integer;
begin
with Form1.ListView1.Items.Add do
begin
Caption:= '';
SubItems.Add('erick');
SubItems.Add('caceres');
SubItems.Add('peña');
end;
with Form1.ListView1.Items.Add do
begin
Caption:= '';
SubItems.Add('juan');
SubItems.Add('galvez');
SubItems.Add('soto');
end;
with Form1.ListView1.Items.Add do
begin
Caption:= '';
SubItems.Add('luis');
SubItems.Add('flores');
SubItems.Add('layme');
end;
with Form1.ListView1.Items.Add do
begin
Caption:= '';
SubItems.Add('leo');
SubItems.Add('allca');
SubItems.Add('gonzales');
end;
with Form1.ListView1.Items.Add do
begin
Caption:= '';
SubItems.Add('gustavo');
SubItems.Add('mares');
SubItems.Add('tacna');
end;
with Form1.ListView1.Items.Add do
begin
Caption:= '';
SubItems.Add('fred');
SubItems.Add('tonasca');
SubItems.Add('sierra');
end;
with Form1.ListView1.Items.Add do
begin
Caption:= '';
SubItems.Add('bernardo');
SubItems.Add('luna');
SubItems.Add('roca');
end;
begin // volviendo a enumerar después de borrar
for enumerando := 0 to ListView1.Items.Count-1 do
ListView1.Items[enumerando].Caption := IntToStr(enumerando+1);
end;
ListView1.OnDragDrop := @ListViewUtils.DragDrop;
ListView1.OnDragOver := @ListViewUtils.DragOver;
ListView1.OnMouseDown := @ListViewUtils.MouseDown;
ListView1.OnMouseMove := @ListViewUtils.MouseMove;
{$ifdef LINUX}
ListView1.DragMode := dmManual;
{$endif};
end;
procedure TForm1.BitBtn1Click(Sender: TObject); // MOVE ITEM UP
begin
ListViewUtils.MoveItemsUp(ListView1);
number_all;
end;
procedure TForm1.BitBtn2Click(Sender: TObject); // MOVE ITEM DOWN
begin
ListViewUtils.MoveItemsDown(ListView1);
number_all;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
ListViewUtils.MoveItemsTop(ListView1);
number_all;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
ListViewUtils.MoveItemsBottom(ListView1);
number_all;
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
ListViewUtils.DeleteItems(ListView1);
number_all;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
ListViewUtils.ToggleSelectAll(ListView1);
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
ListViewUtils.ToggleCheckItems(ListView1);
end;
end.