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

IDE: Use "case" in code for EnvironmentOptions.CharcaseFileAction enumerator.

Browse Source 
git-svn-id: trunk@60749 -
This commit is contained in:
juha 2019-03-23 17:54:47 +00:00
parent c04a7aae6b
commit 1cfba6a6de
2 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/sourcefilemanager.pas
View File

@ -4359,8 +4359,7 @@ begin
if NewUnitName='' then
NewUnitName:=ExtractFileNameOnly(NewFilename);
if EnvironmentOptions.CharcaseFileAction in [ccfaAsk, ccfaAutoRename] then
NewFilename:=ExtractFilePath(NewFilename)
+lowercase(ExtractFileName(NewFilename));
NewFilename:=ExtractFilePath(NewFilename)+lowercase(ExtractFileName(NewFilename));
end;
NewCodeBuffer:=CodeToolBoss.CreateFile(NewFilename);
@ -4682,7 +4681,8 @@ begin
if FilenameIsPascalUnit(NewFilename) then begin
AText:=ExtractFileName(NewFilename);
// check if file should be auto renamed
if EnvironmentOptions.CharcaseFileAction = ccfaAsk then begin
case EnvironmentOptions.CharcaseFileAction of
ccfaAsk:
if LowerCase(AText)<>AText then begin
Result:=IDEQuestionDialogAb(lisRenameFile,
Format(lisThisLooksLikeAPascalFileItIsRecommendedToUseLowerC,
@ -4696,9 +4696,9 @@ begin
end;
Result:=mrOk;
end;
end else begin
if EnvironmentOptions.CharcaseFileAction = ccfaAutoRename then
NewFileName:=ExtractFilePath(NewFilename)+LowerCase(AText);
ccfaAutoRename:
NewFileName:=ExtractFilePath(NewFilename)+LowerCase(AText);
ccfaIgnore: ;
end;
end;

10
packager/pkgmanager.pas
View File

@ -1209,17 +1209,15 @@ begin
if lowercase(NewPkgName) <> NewPkgName then
begin
LowerFilename:=ExtractFilePath(NewFilename)+lowercase(ExtractFileName(NewFilename));
if EnvironmentOptions.CharcaseFileAction = ccfaAsk then
begin
case EnvironmentOptions.CharcaseFileAction of
ccfaAsk:
if IDEMessageDialog(lisPkgMangRenameFileLowercase,
Format(lisPkgMangShouldTheFileRenamedLowercaseTo,[LineEnding, LowerFilename]),
mtConfirmation,[mbYes,mbNo])=mrYes
then
NewFileName:=LowerFilename;
end
else
begin
if EnvironmentOptions.CharcaseFileAction = ccfaAutoRename then NewFileName:=LowerFilename;
ccfaAutoRename: NewFileName:=LowerFilename;
ccfaIgnore: ;
end;
end;