OSDN Git Service
(root)
/
vobslideshow
/
vob.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
問題箇所の分かる人訂正をおねがいします ファイルリストの削除に対応しました
[vobslideshow/vob.git]
/
Unit1.pas
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;
MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
MenuItem10: TMenuItem;
+ Button3: TButton;
+ MenuItem11: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ListView1Change(Sender: TObject);
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 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
¾ }
private
progress: Boolean;
{ private
\90
é
\8c
¾ }
@@
-85,7
+86,6
@@
var
begin
if OpenDialog1.Execute = true then
begin
begin
if OpenDialog1.Execute = true then
begin
- ListView1.Items.Clear;
for i := 0 to OpenDialog1.Files.Count - 1 do
begin
s := ListView1.Items.Add;
for i := 0 to OpenDialog1.Files.Count - 1 do
begin
s := ListView1.Items.Add;
@@
-129,6
+129,15
@@
begin
end;
end;
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;
procedure TForm1.FloatAnimation1Finish(Sender: TObject);
begin
(FloatAnimation1.Parent as TEffect).Enabled := false;
@@
-155,12
+164,6
@@
begin
ComboBox1.ItemIndex := 0;
end;
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
procedure TForm1.ListView1Change(Sender: TObject);
begin
if FloatAnimation1.Running = true then