問題箇所の分かる人訂正をおねがいします ファイルリストの削除に対応しました

diff --git a/Unit1.fmx b/Unit1.fmx
index 2bc4f37..3f4abc4 100644 (file)
--- a/Unit1.fmx
+++ b/Unit1.fmx
@@ -120,10 +120,11 @@ object Form1: TForm1
     end
   end
   object ListView1: TListView
-    ItemAppearanceClassName = 'TImageListItemRightButtonAppearance'
-    ItemEditAppearanceClassName = 'TImageListItemRightButtonDeleteAppearance'
+    ItemAppearanceClassName = 'TImageListItemAppearance'
+    ItemEditAppearanceClassName = 'TImageListItemShowCheck'
     HeaderAppearanceClassName = 'TListHeaderObjects'
     FooterAppearanceClassName = 'TListHeaderObjects'
+    EditMode = True
     Align = Scale
     Position.X = 28.000000000000000000
     Position.Y = 40.000000000000000000
@@ -131,10 +132,9 @@ object Form1: TForm1
     Size.Height = 345.000000000000000000
     Size.PlatformDefault = False
     TabOrder = 5
-    ItemAppearanceObjects.ItemObjects.TextButton.ButtonType = Delete
-    ItemAppearanceObjects.ItemObjects.TextButton.Text = 'Delete'
+    ItemAppearanceObjects.ItemEditObjects.GlyphButton.ClickOnSelect = False
     OnChange = ListView1Change
-    OnButtonClick = ListView1ButtonClick
+    SearchVisible = True
   end
   object Button1: TButton
     Position.X = 88.000000000000000000
@@ -168,6 +168,11 @@ object Form1: TForm1
         Text = 'Open'
         OnClick = Button1Click
       end
+      object MenuItem11: TMenuItem
+        Locked = True
+        Text = 'Delete'
+        OnClick = Button3Click
+      end
       object MenuItem4: TMenuItem
         Locked = True
         Text = '-'
@@ -225,4 +230,11 @@ object Form1: TForm1
     Size.PlatformDefault = False
     TabOrder = 22
   end
+  object Button3: TButton
+    Position.X = 88.000000000000000000
+    Position.Y = 480.000000000000000000
+    TabOrder = 29
+    Text = #21066#38500
+    OnClick = Button3Click
+  end
 end

diff --git a/Unit1.pas b/Unit1.pas
index 09a3519..7592efb 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -53,6 +53,8 @@ type
     MenuItem8: TMenuItem;
     MenuItem9: TMenuItem;
     MenuItem10: TMenuItem;
+    Button3: TButton;
+    MenuItem11: TMenuItem;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure ListView1Change(Sender: TObject);
@@ -60,8 +62,7 @@ type
     procedure FloatAnimation1Finish(Sender: TObject);
     procedure MenuItem5Click(Sender: TObject);
     procedure MenuItem8Click(Sender: TObject);
-    procedure ListView1ButtonClick(const Sender: TObject;
-      const AItem: TListViewItem; const AObject: TListItemSimpleControl);
+    procedure Button3Click(Sender: TObject);
   private
     progress: Boolean;
     { private \90é\8c¾ }
@@ -85,7 +86,6 @@ var
 begin
   if OpenDialog1.Execute = true then
   begin
-    ListView1.Items.Clear;
     for i := 0 to OpenDialog1.Files.Count - 1 do
     begin
       s := ListView1.Items.Add;
@@ -129,6 +129,15 @@ begin
   end;
 end;
 
+procedure TForm1.Button3Click(Sender: TObject);
+var
+  i: integer;
+begin
+  for i := ListView1.Items.Count-1 downto 0 do
+    if ListView1.Items[i].Checked = true then
+      ListView1.Items.Delete(i);
+end;
+
 procedure TForm1.FloatAnimation1Finish(Sender: TObject);
 begin
   (FloatAnimation1.Parent as TEffect).Enabled := false;
@@ -155,12 +164,6 @@ begin
   ComboBox1.ItemIndex := 0;
 end;
 
-procedure TForm1.ListView1ButtonClick(const Sender: TObject;
-  const AItem: TListViewItem; const AObject: TListItemSimpleControl);
-begin
-  ListView1.Items.Delete(AItem.Index);
-end;
-
 procedure TForm1.ListView1Change(Sender: TObject);
 begin
   if FloatAnimation1.Running = true then