paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 09:16:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

set default pascal extension for project descriptors

Browse Source 
git-svn-id: trunk@8325 -
This commit is contained in:
mattias 2005-12-14 23:39:46 +00:00
parent 6eb78f3ee0
commit 7fdaec3be5
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/main.pp
View File

@ -1784,6 +1784,8 @@ begin
// file descriptors
LazProjectFileDescriptors:=TLazProjectFileDescriptors.Create;
LazProjectFileDescriptors.DefaultPascalFileExt:=
PascalExtension[EnvironmentOptions.PascalFileExtension];
RegisterProjectFileDescriptor(TFileDescPascalUnit.Create);
RegisterProjectFileDescriptor(TFileDescPascalUnitWithForm.Create);
RegisterProjectFileDescriptor(TFileDescPascalUnitWithDataModule.Create);
@ -6307,13 +6309,12 @@ begin
SkipSavingMainSource:=false;
{ $IFDEF IDE_DEBUG}
{$IFDEF IDE_DEBUG}
DebugLn('TMainIDE.DoSaveProject A SaveAs=',dbgs(sfSaveAs in Flags),' SaveToTestDir=',dbgs(sfSaveToTestDir in Flags),' ProjectInfoFile=',Project1.ProjectInfoFile);
{ $ENDIF}
{$ENDIF}
if DoCheckFilesOnDisk(true) in [mrCancel,mrAbort] then exit;
DebugLn('TMainIDE.DoSaveProject AA1');
// check that all new units are saved first to get valid filenames
// (this can alter the mainunit: e.g. used unit names)
for i:=0 to Project1.UnitCount-1 do begin
@ -6330,7 +6331,6 @@ begin
if (Result=mrAbort) or (Result=mrCancel) then exit;
end;
end;
DebugLn('TMainIDE.DoSaveProject AA2');
if SourceNotebook.Notebook=nil then
Project1.ActiveEditorIndexAtStart:=-1
@ -6348,12 +6348,10 @@ begin
if Project1.IsVirtual then Include(Flags,sfSaveAs);
if ([sfSaveAs,sfSaveToTestDir]*Flags=[sfSaveAs]) then begin
DebugLn('TMainIDE.DoSaveProject AA3');
// let user choose a filename
Result:=DoShowSaveProjectAsDialog;
if Result<>mrOk then exit;
end;
DebugLn('TMainIDE.DoSaveProject AA4');
// update HasResources information
DoUpdateProjectResourceInfo;

1
ide/projectdefs.pas
View File

@ -1043,6 +1043,7 @@ begin
raise Exception.Create('TLazProjectFileDescriptors.RegisterFileDescriptor FileDescriptor already registered');
// make name unique
FileDescriptor.Name:=GetUniqueName(FileDescriptor.Name);
// override pascal extension with users choice
DefPasExt:=DefaultPascalFileExt;
if DefPasExt<>'' then
FileDescriptor.UpdateDefaultPascalFileExtension(DefPasExt);