MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
MenuItem10: TMenuItem;
+ Button3: TButton;
+ MenuItem11: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ListView1Change(Sender: TObject);
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¾ }
begin
if OpenDialog1.Execute = true then
begin
- ListView1.Items.Clear;
for i := 0 to OpenDialog1.Files.Count - 1 do
begin
s := ListView1.Items.Add;
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;
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