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

IDE: save file as: fixed showing defaults for include files

Browse Source 
git-svn-id: trunk@20450 -
This commit is contained in:
mattias 2009-06-05 16:48:31 +00:00
parent 2fa93a508b
commit fde74a01fe
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -4460,6 +4460,7 @@ var
FileWithoutPath: String;
PkgDefaultDirectory: String;
OldUnitName: String;
IsPascal: Boolean;
begin
SrcEdit:=GetSourceEditorForUnitInfo(AnUnitInfo);
//debugln('TMainIDE.DoShowSaveFileAsDialog ',AnUnitInfo.Filename);
@ -4474,7 +4475,11 @@ begin
SaveAsFileExt:=EditorOpts.HighlighterList.GetDefaultFilextension(
SrcEdit.SyntaxHighlighterType);
end;
OldUnitName:=AnUnitInfo.ParseUnitNameFromSource(false);
IsPascal:=FilenameIsPascalSource(AnUnitInfo.Filename);
if IsPascal then
OldUnitName:=AnUnitInfo.ParseUnitNameFromSource(false)
else
OldUnitName:='';
//debugln('TMainIDE.DoShowSaveFileAsDialog sourceunitname=',OldUnitName);
SaveAsFilename:=OldUnitName;
if SaveAsFilename='' then