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

tvplanit: New property KBNavigation for TVpDayView and TVpMonthView to disable keyboard navigation, like in TVpMonthView

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8766 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-03-15 22:39:29 +00:00
parent 0ceb87ed80
commit a09c467161
4 changed files with 153 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpmonthview.pas
View File

@@ -1495,7 +1495,11 @@ begin
PopupPoint := GetClientOrigin;
FDefaultPopup.Popup(PopupPoint.x + 10, PopupPoint.y + 10);
end;
end;
end
else
Key := 0;
inherited;
end;
procedure TVpMonthView.MouseDown(Button: TMouseButton; Shift: TShiftState;