mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Limit tab title length for non ASCII symbols

Browse source
This commit is contained in:
Alexander Koblov 2010-09-17 14:25:50 +00:00
commit 3781bccbc2
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ufileviewnotebook.pas
View file

@ -112,6 +112,7 @@ implementation
uses
WSExtCtrls,
LCLProc,
uGlobs
{$IF DEFINED(LCLGTK2)}
, GTKGlobals // for DblClickTime
@ -146,8 +147,8 @@ procedure TFileViewPage.UpdateCaption(NewCaption: String);
begin
if NewCaption <> '' then
begin
if (tb_text_length_limit in gDirTabOptions) and (Length(NewCaption) > gDirTabLimit) then
Caption := Copy(NewCaption, 1, gDirTabLimit) + '...'
if (tb_text_length_limit in gDirTabOptions) and (UTF8Length(NewCaption) > gDirTabLimit) then
Caption := UTF8Copy(NewCaption, 1, gDirTabLimit) + '...'
else
Caption := NewCaption;