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

LCL: make THintWindow ActivateHint() delphi compatibile (reorderd call, now ActivateHint() is called from ActivateHintData(), fixes #16829

Browse Source 
git-svn-id: trunk@26465 -
This commit is contained in:
zeljko 2010-07-05 06:10:37 +00:00
parent e4997fb328
commit d9483c8847
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/hintwindow.inc
View File

@ -151,11 +151,6 @@ begin
end;
procedure THintWindow.ActivateHint(ARect: TRect; const AHint: String);
begin
ActivateHintData(ARect, AHint, nil);
end;
procedure THintWindow.ActivateHintData(ARect: TRect; const AHint: String; AData: pointer);
var
InvalidateNeeded: Boolean;
AMonitor: TMonitor;
@ -199,6 +194,11 @@ begin
end;
end;
procedure THintWindow.ActivateHintData(ARect: TRect; const AHint: String; AData: pointer);
begin
ActivateHint(ARect, AHint);
end;
function THintWindow.CalcHintRect(MaxWidth: Integer; const AHint: String;
AData: Pointer): TRect;
begin