paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 11:18:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds a cross-platform implementation for LCLIntf.GetTextExtentExPoint

Browse Source 
git-svn-id: trunk@33315 -
This commit is contained in:
sekelsenmat 2011-11-05 04:36:48 +00:00
parent fe8523a602
commit eaa3a52df0
2 changed files with 36 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lcl/include/intfbasewinapi.inc
View File

@ -1092,16 +1092,47 @@ begin
Result := 0;
end;
{ Returns in MaxCount how many characters fit into a given MaxWidth
It also returns the width of each character }
function TWidgetSet.GetTextExtentExPoint(DC: HDC; Str: PChar;
Count, MaxWidth: Integer; MaxCount, PartialWidths: PInteger;
var Size: TSize): Boolean;
var
lPasStr, lCurSubStr: String;
lPasStrLen, i: PtrInt;
lCurSize: TSize;
lBestFitFound: Boolean = False;
begin
if MaxCount<>nil then MaxCount^:=Count;
if PartialWidths<>nil then
DebugLn('Warning: TWidgetSet.GetTextExtentExPoint PartialWidths not implemented yet');
// First obtain the size information which duplicates GetTextExtentPoint
Result := GetTextExtentPoint(DC,Str,Count,Size);
// Now calculate MaxCount and PartialWidths
lPasStr := StrPas(Str);
lPasStrLen := UTF8Length(lPasStr);
for i := 1 to lPasStrLen do
begin
// Since we can't just sum the partial widths because the spaces between
// chars matter too, only calculate them if necessary
if PartialWidths<>nil then
begin
lCurSubStr := UTF8Copy(lPasStr, i, 1);
Self.GetTextExtentPoint(DC, PChar(lCurSubStr), 1, lCurSize);
PartialWidths[i-1] := lCurSize.cx;
end;
// Calculate the width until the utilized size gets bigger then the desired one
// Give up when the size surpases MaxWidth to be faster
if (not lBestFitFound) and (MaxCount <> nil) then
begin
lCurSubStr := UTF8Copy(lPasStr, 1, i);
Self.GetTextExtentPoint(DC, PChar(lCurSubStr), Length(lCurSubStr), lCurSize);
if lCurSize.cx <= MaxWidth then MaxCount^ := i
else lBestFitFound := True;
end;
end;
end;
// Note that Count is the number of bytes in the utf-8 encoded string Str
function TWidgetSet.GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer;
var Size: TSize): Boolean;
begin

4
lcl/interfaces/win32/win32winapi.inc
View File

@ -2084,8 +2084,8 @@ end;
{------------------------------------------------------------------------------
Method: GetTextExtentPoint
Params: DC - handle of device context
Str - text string
Count - number of characters in string
Str - text string encoded in UTF-8
Count - number of bytes in the string
Size - TSize record in which the dimensions of the string are to be
returned
Returns: If the function succeeded