Fix bug #897 : Title of "table" tab gets "..." (ellipsis) appended although the whole name is visible

This commit is contained in:
Ansgar Becker
2008-12-02 18:03:44 +00:00
parent e4ccaf94ee
commit 52362b0872

View File

@ -684,7 +684,7 @@ end;
} }
function sstr(str: WideString; len: Integer) : WideString; function sstr(str: WideString; len: Integer) : WideString;
begin begin
if length(str) >= len then if length(str) > len then
begin begin
str := copy(str, 0, len); str := copy(str, 0, len);
str := str + '...'; str := str + '...';