From bdb7a1945ee0d1facdb74942e8085aa5ad086ecb Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 8 Jun 2010 13:04:39 +0000 Subject: [PATCH] LCL: made DoOnShowHint virtual git-svn-id: trunk@25968 - --- lcl/controls.pp | 4 ++-- lcl/include/control.inc | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lcl/controls.pp b/lcl/controls.pp index 791f69e863..17030b082a 100644 --- a/lcl/controls.pp +++ b/lcl/controls.pp @@ -1036,7 +1036,7 @@ type procedure CalculatePreferredSize( var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean); virtual; - procedure DoOnResize; virtual;// call OnReresize + procedure DoOnResize; virtual;// call OnResize procedure DoOnChangeBounds; virtual;// call OnChangeBounds procedure CheckOnChangeBounds;// checks for changes and calls DoOnChangeBounds procedure Resize; virtual;// checks for changes and calls DoOnResize @@ -1179,7 +1179,7 @@ type function GetDeviceContext(var WindowHandle: HWND): HDC; virtual; function GetEnabled: Boolean; virtual; function GetPopupMenu: TPopupMenu; virtual; - procedure DoOnShowHint(HintInfo: Pointer); + procedure DoOnShowHint(HintInfo: PHintInfo); virtual; function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; virtual; function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; virtual; function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; virtual; diff --git a/lcl/include/control.inc b/lcl/include/control.inc index cf2efb48a9..6a062a8cae 100644 --- a/lcl/include/control.inc +++ b/lcl/include/control.inc @@ -1294,7 +1294,7 @@ end; {------------------------------------------------------------------------------ procedure TControl.DoOnShowHint(HintInfo: Pointer); ------------------------------------------------------------------------------} -procedure TControl.DoOnShowHint(HintInfo: Pointer); +procedure TControl.DoOnShowHint(HintInfo: PHintInfo); begin if Assigned(OnShowHint) then OnShowHint(Self,HintInfo);