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

LCL: made DoOnShowHint virtual

Browse Source 
git-svn-id: trunk@25968 -
This commit is contained in:
mattias 2010-06-08 13:04:39 +00:00
parent 67e574cfdb
commit bdb7a1945e
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/controls.pp
View File

@ -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;

2
lcl/include/control.inc
View File

@ -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);