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: Bug [0001291] "Scrolling through files with long names is slow"

Browse source
This commit is contained in:
Alexander Koblov 2016-02-06 12:10:30 +00:00
commit 0d669db6ec
1 changed files with 16 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/fileviews/ufileviewwithgrid.pas
View file

@ -108,19 +108,24 @@ uses
function FitFileName(const AFileName: String; ACanvas: TCanvas; AFile: TFile; ATargetWidth: Integer): String;
var
S: String;
Index: Integer;
AMaxWidth: Integer;
begin
Result:= AFileName;
if ACanvas.TextWidth(AFileName) > ATargetWidth then
begin
if gDirBrackets and (AFile.IsDirectory or AFile.IsLinkToDirectory) then
Result:= Result + '..]'
else
Result:= Result + '...';
repeat
Index:= UTF8Length(Result) - 3;
UTF8Delete(Result, Index, 1);
until (ACanvas.TextWidth(Result) <= ATargetWidth) or (Index = 0);
Index:= UTF8Length(AFileName);
AMaxWidth:= ACanvas.TextFitInfo(AFileName, ATargetWidth);
if Index <= AMaxWidth then
Result:= AFileName
else
begin
if gDirBrackets and (AFile.IsDirectory or AFile.IsLinkToDirectory) then
S:= '..]'
else begin
S:= '...';
end;
Index:= ACanvas.TextFitInfo(AFileName, ATargetWidth - ACanvas.TextWidth(S));
Result:= UTF8Copy(AFileName, 1, Index) + S;
end;
end;