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

CalLite: Hide month/year change arrows and popupmenu when coNoMonthChange is in Options.

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

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

@ -790,6 +790,9 @@ var
dx, dy, ox, oy, halfx, halfy: integer; dx, dy, ox, oy, halfx, halfy: integer;
pts: TArrowPoints; pts: TArrowPoints;
begin begin
if (coNoMonthChange in FOwner.Options) then
exit;
FCanvas.Pen.Style := psSolid; FCanvas.Pen.Style := psSolid;
if (FCanvas.Brush.Color <> FOwner.Colors.ArrowColor) then if (FCanvas.Brush.Color <> FOwner.Colors.ArrowColor) then
FCanvas.Brush.Color:= FOwner.Colors.ArrowColor; FCanvas.Brush.Color:= FOwner.Colors.ArrowColor;
@ -1370,6 +1373,7 @@ begin
2: if not (coNoMonthChange in FOwner.Options) then 2: if not (coNoMonthChange in FOwner.Options) then
FOwner.Date := IncMonth(FOwner.Date, -1); FOwner.Date := IncMonth(FOwner.Date, -1);
3..5: 3..5:
if not (coNoMonthChange in FOwner.Options) then
begin begin
GetMonthYearRects(Rm{%H-}, Ry{%H-}); GetMonthYearRects(Rm{%H-}, Ry{%H-});
if PtInRect(Rm, APoint) then begin if PtInRect(Rm, APoint) then begin
@ -2197,6 +2201,7 @@ begin
end; end;
if High(FCalDrawer.FRowPositions) <> FCalDrawer.FLastRow then if High(FCalDrawer.FRowPositions) <> FCalDrawer.FLastRow then
SetLength(FCalDrawer.FRowPositions, FCalDrawer.FLastRow+1); SetLength(FCalDrawer.FRowPositions, FCalDrawer.FLastRow+1);
if (coNoMonthChange in FOptions) then;
Draw; Draw;
end; end;