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

calLite: Disable leaving the current month by clicking on "Today" when coNoMonthChange is in Options.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8757 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-03-01 14:24:49 +00:00
parent e6ed93f43c
commit 5b9794109f
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/callite/source/calendarlite.pas
View File

@ -1344,6 +1344,8 @@ end;
procedure TCalDrawer.GotoToday; procedure TCalDrawer.GotoToday;
begin begin
if (coNoMonthChange in FOwner.FOptions) then
exit;
FOwner.Date:= Date(); FOwner.Date:= Date();
end; end;