mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Change file name register in multi rename dialog for not ASCII file names

Browse source
This commit is contained in:
Alexander Koblov 2009-03-21 10:30:59 +00:00
commit e59d76bdd6
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
fmultirename.pas
View file

@ -8,7 +8,7 @@
contributors:
Copyright (C) 2007-2008 Koblov Alexander (Alexx2000@mail.ru)
Copyright (C) 2007-2009 Koblov Alexander (Alexx2000@mail.ru)
}
unit fMultiRename;
@ -115,7 +115,7 @@ type
implementation
uses
uLng, uFileProcs, uDCUtils, uOSUtils;
LCLProc, uLng, uFileProcs, uDCUtils, uOSUtils;
function ShowMultiRenameForm(Var lsInFiles: TStringList):Boolean;
var
@ -166,12 +166,16 @@ begin
sTmpAll:=StringReplace(sTmpAll,edFind.Text,edReplace.Text,[rfReplaceAll,rfIgnoreCase]);
//file name style
case cmbxFont.ItemIndex of
1: sTmpAll:=UpperCase(sTmpAll);
2: sTmpAll:=LowerCase(sTmpAll);
1: sTmpAll:= UTF8UpperCase(sTmpAll);
2: sTmpAll:= UTF8LowerCase(sTmpAll);
3: begin
sTmpAll:=LowerCase(sTmpAll);
if length(sTmpAll)>0 then
sTmpAll[1]:=UpCase(stmpall[1]);
sTmpAll:= UTF8LowerCase(sTmpAll);
if UTF8Length(sTmpAll) > 0 then
begin
sTmpExt:= UTF8Copy(sTmpAll, 1, 1);
UTF8Delete(sTmpAll, 1, 1);
sTmpAll:= UTF8UpperCase(sTmpExt) + sTmpAll;
end;
end;
end;
//save new name file