paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-21 15:00:42 +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; end;
procedure THintWindow.ActivateHint(ARect: TRect; const AHint: String); 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 var
InvalidateNeeded: Boolean; InvalidateNeeded: Boolean;
AMonitor: TMonitor; AMonitor: TMonitor;
@ -199,6 +194,11 @@ begin
end; end;
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; function THintWindow.CalcHintRect(MaxWidth: Integer; const AHint: String;
AData: Pointer): TRect; AData: Pointer): TRect;
begin begin