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

Lcl/DrawText: Fix #40324: return value set to the height

Browse Source
This commit is contained in:
rich2014 2023-06-24 15:41:04 +08:00
parent 4ddf892b29
commit 05555c84d5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/intfbasewinapi.inc
View File

@ -681,6 +681,8 @@ begin
{Calculate the text's bounding rect} {Calculate the text's bounding rect}
CalcTextRect; CalcTextRect;
Result:=theRect.Height;
{If just calculating rect, finish up here} {If just calculating rect, finish up here}
If CalcRect then begin If CalcRect then begin
Rect:=theRect; Rect:=theRect;
@ -766,8 +768,6 @@ begin
{Restore device-context} {Restore device-context}
RestoreDC(DC, TDC); RestoreDC(DC, TDC);
Result := 1;
end; end;
function TWidgetSet.DPtoLP(DC: HDC; var Points; Count: Integer): BOOL; function TWidgetSet.DPtoLP(DC: HDC; var Points; Count: Integer): BOOL;