paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-26 15:21:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: fixed function result

Browse Source 
git-svn-id: trunk@56632 -
This commit is contained in:
mattias 2017-12-05 12:36:50 +00:00
parent 811fbab23f
commit 913451674b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/objectinspector.pp
View File

@ -1304,7 +1304,8 @@ var
H: Boolean; H: Boolean;
begin begin
H := False; H := False;
OnGridMouseWheel(Self, Shift, WheelDelta, MousePos, H) OnGridMouseWheel(Self, Shift, WheelDelta, MousePos, H);
Result:=true;
end; end;
procedure TOICustomPropertyGrid.OnGridMouseWheel(Sender: TObject; Shift: TShiftState; procedure TOICustomPropertyGrid.OnGridMouseWheel(Sender: TObject; Shift: TShiftState;