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