From d9483c8847b7b4a9ba675982890a339b64250ebd Mon Sep 17 00:00:00 2001 From: zeljko Date: Mon, 5 Jul 2010 06:10:37 +0000 Subject: [PATCH] LCL: make THintWindow ActivateHint() delphi compatibile (reorderd call, now ActivateHint() is called from ActivateHintData(), fixes #16829 git-svn-id: trunk@26465 - --- lcl/include/hintwindow.inc | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lcl/include/hintwindow.inc b/lcl/include/hintwindow.inc index 4444badbf5..89bf537a18 100644 --- a/lcl/include/hintwindow.inc +++ b/lcl/include/hintwindow.inc @@ -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