mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-08 08:39:33 +02:00
Fixed restoring autorename files to lowercase option
git-svn-id: trunk@8803 -
This commit is contained in:
parent
54b0f37260
commit
a5087728ff
@ -1391,7 +1391,8 @@ begin
|
|||||||
PascalExtension[fPascalFileExtension],'.pas');
|
PascalExtension[fPascalFileExtension],'.pas');
|
||||||
|
|
||||||
XMLConfig.SetDeleteValue(Path+'CharcaseFileAction/Value',
|
XMLConfig.SetDeleteValue(Path+'CharcaseFileAction/Value',
|
||||||
ord(fCharcaseFileAction), ord(ccfaAutoRename));
|
CharCaseFileActionNames[fCharcaseFileAction],
|
||||||
|
CharCaseFileActionNames[ccfaAutoRename]);
|
||||||
|
|
||||||
XMLConfig.SetDeleteValue(Path+'AutoDeleteAmbiguousSources/Value',
|
XMLConfig.SetDeleteValue(Path+'AutoDeleteAmbiguousSources/Value',
|
||||||
AmbiguousFileActionNames[fAmbiguousFileAction],
|
AmbiguousFileActionNames[fAmbiguousFileAction],
|
||||||
|
Loading…
Reference in New Issue
Block a user