paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 23:56:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: combined defaults for publish module+project

Browse Source 
git-svn-id: trunk@41688 -
This commit is contained in:
mattias 2013-06-12 11:02:22 +00:00
parent f5026c3fe2
commit 6b891914bc
2 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/projectdefs.pas
View File

@ -39,9 +39,9 @@ interface
uses uses
Classes, SysUtils, Classes, SysUtils,
Controls, Forms, SynRegExpr, FileProcs, Laz2_XMLCfg, LCLProc, Controls, Forms, SynRegExpr, FileProcs, Laz2_XMLCfg, LCLProc,
CompOptsIntf, ProjectIntf, PublishModule, LazIDEIntf, CompOptsIntf, ProjectIntf, LazIDEIntf,
ProjectResourcesIntf, ProjectResourcesIntf,
frmCustomApplicationOptions, IDEProcs, LazarusIDEStrConsts; frmCustomApplicationOptions, PublishModule, IDEProcs, LazarusIDEStrConsts;
type type
TOnLoadSaveFilename = procedure(var Filename:string; Load:boolean) of object; TOnLoadSaveFilename = procedure(var Filename:string; Load:boolean) of object;
@ -387,13 +387,6 @@ type
end; end;
//---------------------------------------------------------------------------
const
DefPublProjIncFilter = '*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)';
DefPublProjExcFilter = '*.(bak|ppu|o|so);*~;backup';
implementation implementation
@ -859,10 +852,10 @@ begin
CommandAfter:=''; CommandAfter:='';
UseIncludeFileFilter:=true; UseIncludeFileFilter:=true;
IncludeFilterSimpleSyntax:=true; IncludeFilterSimpleSyntax:=true;
IncludeFileFilter:=DefPublProjIncFilter; IncludeFileFilter:=DefPublModIncFilter;
UseExcludeFileFilter:=false; UseExcludeFileFilter:=false;
ExcludeFilterSimpleSyntax:=true; ExcludeFilterSimpleSyntax:=true;
ExcludeFileFilter:=DefPublProjExcFilter; ExcludeFileFilter:=DefPublModExcFilter;
SaveClosedEditorFilesInfo:=false; SaveClosedEditorFilesInfo:=false;
SaveEditorInfoOfNonProjectFiles:=false; SaveEditorInfoOfNonProjectFiles:=false;
end; end;

4
ide/publishprojectdlg.pas
View File

@ -235,14 +235,14 @@ begin
List:=InputHistories.HistoryLists.GetList(hlPublishProjectIncludeFileFilter, List:=InputHistories.HistoryLists.GetList(hlPublishProjectIncludeFileFilter,
true,rltFile); true,rltFile);
if List.Count=0 then begin if List.Count=0 then begin
List.Add(DefPublProjIncFilter); List.Add(DefPublModIncFilter);
end; end;
IncludeFilterCombobox.Items.Assign(List); IncludeFilterCombobox.Items.Assign(List);
List:=InputHistories.HistoryLists.GetList(hlPublishProjectExcludeFileFilter, List:=InputHistories.HistoryLists.GetList(hlPublishProjectExcludeFileFilter,
true,rltFile); true,rltFile);
if List.Count=0 then begin if List.Count=0 then begin
List.Add(DefPublProjExcFilter); List.Add(DefPublModExcFilter);
end; end;
ExcludeFilterCombobox.Items.Assign(List); ExcludeFilterCombobox.Items.Assign(List);
end; end;