Fixed restoring autorename files to lowercase option

git-svn-id: trunk@8803 -
This commit is contained in:
vincents 2006-02-23 09:15:55 +00:00
parent 54b0f37260
commit a5087728ff

View File

@ -1391,7 +1391,8 @@ begin
PascalExtension[fPascalFileExtension],'.pas');
XMLConfig.SetDeleteValue(Path+'CharcaseFileAction/Value',
ord(fCharcaseFileAction), ord(ccfaAutoRename));
CharCaseFileActionNames[fCharcaseFileAction],
CharCaseFileActionNames[ccfaAutoRename]);
XMLConfig.SetDeleteValue(Path+'AutoDeleteAmbiguousSources/Value',
AmbiguousFileActionNames[fAmbiguousFileAction],