paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 10:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: checked compiler warnings, clean up

Browse Source 
git-svn-id: trunk@48231 -
This commit is contained in:
mattias 2015-03-10 15:43:08 +00:00
parent a0ac496603
commit be9e713768
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packager/adddirtopkgdlg.pas
View File

@ -61,9 +61,7 @@ type
fIncludeFilterRE, fExcludeFilterRE: TRegExpr;
procedure SetLazPackage(const AValue: TLazPackage);
function GatherFiles(Directory: string; WithSubDirs: boolean;
OnlyTextFiles: boolean;
IncludeFilter: string; IncludeFilterRegEx: boolean;
ExcludeFilter: string; ExcludeFilterRegEx: boolean): boolean;
OnlyTextFiles: boolean): boolean;
function UpdateFilter: boolean;
public
property LazPackage: TLazPackage read FLazPackage write SetLazPackage;
@ -143,9 +141,7 @@ end;
procedure TAddDirToPkgDialog.ButtonPanel1OkClick(Sender: TObject);
begin
if not GatherFiles(DirEdit.Text,SubDirCheckBox.Checked,
OnlyTextCheckBox.Checked,
IncludeFilterCombobox.Text,IncludeRegExCheckBox.Checked,
ExcludeFilterCombobox.Text,ExcludeRegExCheckBox.Checked) then exit;
OnlyTextCheckBox.Checked) then exit;
ModalResult:=mrOk;
end;
@ -180,9 +176,7 @@ begin
end;
function TAddDirToPkgDialog.GatherFiles(Directory: string;
WithSubDirs: boolean; OnlyTextFiles: boolean; IncludeFilter: string;
IncludeFilterRegEx: boolean; ExcludeFilter: string;
ExcludeFilterRegEx: boolean): boolean;
WithSubDirs: boolean; OnlyTextFiles: boolean): boolean;
function FileCanBeAdded(AFilename: string): boolean;
begin