pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix mouse-wheel scrolling in TVpDayEdit when editing is active.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8447 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-05 08:04:39 +00:00
parent 5751dde6a7
commit 4af1e301a7
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/source/vpdayview.pas
View File

@ -2107,6 +2107,7 @@ end;
function TVpDayView.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; function TVpDayView.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint): Boolean; MousePos: TPoint): Boolean;
begin begin
EndEdit(self);
Result := inherited DoMouseWheel(Shift, WheelDelta, MousePos); Result := inherited DoMouseWheel(Shift, WheelDelta, MousePos);
end; end;