pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Use WideString functions in ShortenString to avoid invalid UTF8 strings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@671 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-01-24 11:03:39 +00:00
parent 46955c2cdf
commit a67f6b2ab5
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -4160,9 +4160,13 @@ var
Size: TSize;
Len: Integer;
L, H, N, W: Integer;
WideStr: WideString;
begin
Len := Length(S);
//todo: this need to be adjusted to work with UTF8 strings since the current algorithm
// when direct ported to use UTF8 functions leads to invalid UTF8 strings.
// for now use a WideString as a bridge
WideStr := UTF8Decode(S);
Len := Length(WideStr);
if (Len = 0) or (Width <= 0) then
Result := ''
else
@ -4184,14 +4188,14 @@ begin
while L < H do
begin
N := (L + H + 1) shr 1;
GetTextExtentPoint32(DC, PChar(S), N, Size);
GetTextExtentPoint32W(DC, PWideChar(WideStr), N, Size);
W := Size.cx + EllipsisWidth;
if W <= Width then
L := N
else
H := N - 1;
end;
Result := Copy(S, 1, L) + '...'
Result := UTF8Encode(Copy(WideStr, 1, L) + '...');
end;
end;
end;