paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 20:44:03 +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

6
ide/main.pp
View File

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

1
ide/projectdefs.pas
View File

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