paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 10:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Some clarification comments

Browse Source 
git-svn-id: trunk@33317 -
This commit is contained in:
sekelsenmat 2011-11-05 04:40:43 +00:00
parent e59e197d1e
commit 926a51a81f
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/intfbasewinapi.inc
View File

@ -1093,7 +1093,10 @@ begin
end; end;
{ Returns in MaxCount how many characters fit into a given MaxWidth { Returns in MaxCount how many characters fit into a given MaxWidth
It also returns the width of each character } It also returns the width of each character
MaxCount is given in the number of UTF-8 characters, not bytes
}
function TWidgetSet.GetTextExtentExPoint(DC: HDC; Str: PChar; function TWidgetSet.GetTextExtentExPoint(DC: HDC; Str: PChar;
Count, MaxWidth: Integer; MaxCount, PartialWidths: PInteger; Count, MaxWidth: Integer; MaxCount, PartialWidths: PInteger;
var Size: TSize): Boolean; var Size: TSize): Boolean;

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

@ -2050,6 +2050,7 @@ begin
Result := TColorRef(Windows.GetTextColor(DC)); Result := TColorRef(Windows.GetTextColor(DC));
end; end;
// MaxCount is provided in the number of UTF-8 characters, not bytes
function TWin32WidgetSet.GetTextExtentExPoint(DC: HDC; Str: PChar; function TWin32WidgetSet.GetTextExtentExPoint(DC: HDC; Str: PChar;
Count, MaxWidth: Integer; MaxCount, PartialWidths: PInteger; var Size: TSize): Boolean; Count, MaxWidth: Integer; MaxCount, PartialWidths: PInteger; var Size: TSize): Boolean;
var var