1 unit ShowDeletingFilesDlg;
2 
3 {$mode objfpc}{$H+}
4 
5 interface
6 
7 uses
8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
9   StdCtrls, ButtonPanel, LazarusIDEStrConsts, CheckLst;
10 
11 type
12 
13   { TShowDeletingFilesDialog }
14 
15   TShowDeletingFilesDialog = class(TForm)
16     ButtonPanel: TButtonPanel;
17     UnCheckAll: TCheckBox;
18     FileList: TCheckListBox;
19     procedure FormCreate(Sender: TObject);
20     procedure UnCheckAllChange(Sender: TObject);
21   private
22     { private declarations }
23   public
24     { public declarations }
25   end;
26 
27 implementation
28 
29 {$R *.lfm}
30 
31 { TShowDeletingFilesDialog }
32 
33 procedure TShowDeletingFilesDialog.FormCreate(Sender: TObject);
34 begin
35   Caption:=lisDeleteAllTheseFiles;
36   FileList.Clear;
37   UnCheckAll.Caption := lisCheckUncheckAll;
38 end;
39 
40 procedure TShowDeletingFilesDialog.UnCheckAllChange(Sender: TObject);
41 var
42   i: integer;
43 begin
44   //check / uncheck all
45   for i := 0 to FileList.Count - 1 do
46     FileList.Checked[i] := UnCheckAll.Checked;
47 end;
48 
49 end.
50 
51