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

THintWindow.CalcHintRect: return empty rect if hint is empty

Browse Source 
git-svn-id: trunk@38031 -
This commit is contained in:
mattias 2012-07-24 08:44:33 +00:00
parent 4e187f7a92
commit b74cf37371
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/hintwindow.inc
View File

@ -236,10 +236,14 @@ end;
function THintWindow.CalcHintRect(MaxWidth: Integer; const AHint: String;
AData: Pointer): TRect;
begin
if AHint='' then
begin
Result:=Rect(0,0,0,0);
exit;
end;
if MaxWidth <= 0 then
MaxWidth := Screen.Width - 4 * HintBorderWidth;
Result := Rect(0, 0, MaxWidth, Screen.Height - 4 * HintBorderWidth);
if AHint='' then exit;
DrawText(Canvas.GetUpdatedHandle([csFontValid]), PChar(AHint), Length(AHint),
Result, DT_CALCRECT or DT_NOPREFIX or DT_WORDBREAK);
inc(Result.Right, 4 * HintBorderWidth);