paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 06:18:21 +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
Classes, SysUtils,
Controls, Forms, SynRegExpr, FileProcs, Laz2_XMLCfg, LCLProc,
CompOptsIntf, ProjectIntf, PublishModule, LazIDEIntf,
CompOptsIntf, ProjectIntf, LazIDEIntf,
ProjectResourcesIntf,
frmCustomApplicationOptions, IDEProcs, LazarusIDEStrConsts;
frmCustomApplicationOptions, PublishModule, IDEProcs, LazarusIDEStrConsts;
type
TOnLoadSaveFilename = procedure(var Filename:string; Load:boolean) of object;
@ -387,13 +387,6 @@ type
end;
//---------------------------------------------------------------------------
const
DefPublProjIncFilter = '*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)';
DefPublProjExcFilter = '*.(bak|ppu|o|so);*~;backup';
implementation
@ -859,10 +852,10 @@ begin
CommandAfter:='';
UseIncludeFileFilter:=true;
IncludeFilterSimpleSyntax:=true;
IncludeFileFilter:=DefPublProjIncFilter;
IncludeFileFilter:=DefPublModIncFilter;
UseExcludeFileFilter:=false;
ExcludeFilterSimpleSyntax:=true;
ExcludeFileFilter:=DefPublProjExcFilter;
ExcludeFileFilter:=DefPublModExcFilter;
SaveClosedEditorFilesInfo:=false;
SaveEditorInfoOfNonProjectFiles:=false;
end;

4
ide/publishprojectdlg.pas
View File

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