paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:39:44 +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,
[LineEnding, LineEnding]),
mtWarning, [mrYes, lisRenameToLowercase,
mrNoToAll, lisKeepName,
mrNo, lisKeepName,
mrAbort, lisAbort], not CanAbort);
if Result=mrYes then
NewFileName:=ExtractFilePath(NewFilename)+lowercase(AText);
case Result of
mrYes: NewFileName:=ExtractFilePath(NewFilename)+lowercase(AText);
mrAbort, mrCancel: exit;
end;
Result:=mrOk;
end;
end else begin