paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 16:25:08 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fix hint window bounds issue introduced in a2057a6., issue #41194

Browse Source
This commit is contained in:
rich2014 2024-11-12 20:00:39 +08:00
parent b35ba030b3
commit aeca9749b1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/hintwindow.inc
View File

@ -241,6 +241,8 @@ procedure THintWindow.ActivateHint(const AHint: String);
begin begin
if FActivating then exit; if FActivating then exit;
AdjustBoundsForMonitor;
if Visible and (Caption=AHint) if Visible and (Caption=AHint)
and EqualRect(FHintRect, BoundsRect) then and EqualRect(FHintRect, BoundsRect) then
begin begin
@ -263,7 +265,6 @@ end;
procedure THintWindow.ActivateHint(ARect: TRect; const AHint: String); procedure THintWindow.ActivateHint(ARect: TRect; const AHint: String);
begin begin
HintRect := ARect; HintRect := ARect;
AdjustBoundsForMonitor;
ActivateHint(AHint); ActivateHint(AHint);
end; end;