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

IDE: fixed save file as dlg rename pascal file lowercase

Browse Source 
git-svn-id: trunk@59500 -
This commit is contained in:
mattias 2018-11-10 11:59:59 +00:00
parent ada6c42f3b
commit 568b20bdd2
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourcefilemanager.pas
View File

@ -4658,10 +4658,12 @@ begin
Format(lisThisLooksLikeAPascalFileItIsRecommendedToUseLowerC, Format(lisThisLooksLikeAPascalFileItIsRecommendedToUseLowerC,
[LineEnding, LineEnding]), [LineEnding, LineEnding]),
mtWarning, [mrYes, lisRenameToLowercase, mtWarning, [mrYes, lisRenameToLowercase,
mrNoToAll, lisKeepName, mrNo, lisKeepName,
mrAbort, lisAbort], not CanAbort); mrAbort, lisAbort], not CanAbort);
if Result=mrYes then case Result of
NewFileName:=ExtractFilePath(NewFilename)+lowercase(AText); mrYes: NewFileName:=ExtractFilePath(NewFilename)+lowercase(AText);
mrAbort, mrCancel: exit;
end;
Result:=mrOk; Result:=mrOk;
end; end;
end else begin end else begin