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: when renaming was incorrect detect length of filename

Browse source
This commit is contained in:
meteu 2016-03-03 17:59:38 +00:00
commit d7efdf117d
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/fileviews/ufileviewwithmainctrl.pas
View file

@ -1426,9 +1426,11 @@ var
lenEdtText, lenEdtTextExt, i: Integer;
seperatorSet: set of AnsiChar;
ca:char;
s:string;
begin
FRenFile.LenFul := UTF8Length(edtRename.Text);
FRenFile.LenExt := UTF8Length(ExtractFileExt(edtRename.Text));
s:=AFile.Name;
FRenFile.LenFul := UTF8Length(s);
FRenFile.LenExt := UTF8Length(ExtractFileExt(s));
FRenFile.LenNam := FRenFile.LenFul-FRenFile.LenExt;