paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 11:18:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Fix saving a program with a dotted name. Issue #40760.

Browse Source
This commit is contained in:
Juha 2024-02-22 23:04:05 +02:00
parent b060a7330f
commit 9ad00fb5a7
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourcefilemanager.pas
View File

@ -8119,10 +8119,8 @@ begin
if AFilename = '' then
AFilename := 'Project1';
// Filename extension
Assert((ExtractFileExt(AFilename)='') or FilenameIsPascalSource(AFilename),
'ShowSaveProjectAsDialog: '+AFilename+' is not Pascal source.');
Ext := '.lpi';
AFilename := ChangeFileExt(AFilename, Ext);
AFilename := AFilename + Ext;
SaveDialog := IDESaveDialogClass.Create(nil);
try