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;
begin
if length(str) >= len then
if length(str) > len then
begin
str := copy(str, 0, len);
str := str + '...';