paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

callite: Fix click selecting incorrect day if mouse is moved during the timer interval.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6544 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2018-07-04 22:02:34 +00:00
parent 36a928c055
commit 592bea80e8
1 changed files with 8 additions and 9 deletions

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

@ -199,7 +199,7 @@ type
procedure GotoMonth(AMonth: word);
procedure GotoToday;
procedure GotoYear(AYear: word);
procedure LeftClick(Shift: TShiftState);
procedure LeftClick(APoint: TPoint; Shift: TShiftState);
procedure RightClick;
public
constructor Create(ACanvas: TCanvas);
@ -1192,16 +1192,15 @@ begin
FOwner.Date := d;
end;
procedure TCalDrawer.LeftClick(Shift: TShiftState);
procedure TCalDrawer.LeftClick(APoint: TPoint; Shift: TShiftState);
var
p, ppopup: TPoint;
ppopup: TPoint;
cell: TSize;
Rm, Ry: TRect;
sm: TCalSelMode;
begin
sm := FOwner.SelMode(Shift);
p := FOwner.ScreenToClient(Mouse.CursorPos);
cell := GetCellAt(p);
cell := GetCellAt(APoint);
case cell.cy of
TopRow:
case cell.cx of
@ -1210,12 +1209,12 @@ begin
3..5:
begin
GetMonthYearRects(Rm{%H-}, Ry{%H-});
if PtInRect(Rm, p) then begin
if PtInRect(Rm, APoint) then begin
FOwner.PopulateMonthPopupMenu;
ppopup := FOwner.ClientToScreen(Point(Rm.Left, Rm.Bottom));
FOwner.FPopupMenu.PopUp(ppopup.x, ppopup.y);
end;
if PtInRect(Ry, p) then begin
if PtInRect(Ry, APoint) then begin
FOwner.PopulateYearPopupMenu;
ppopup := FOwner.ClientToScreen(Point(Ry.Left, Ry.Bottom));
FOwner.FPopupMenu.Popup(ppopup.x, ppopup.y);
@ -1432,7 +1431,7 @@ begin
FDblClickTimer.Enabled := false;
inherited;
case FClickButton of
mbLeft : FCalDrawer.LeftClick(FClickShift + [ssDouble]);
mbLeft : FCalDrawer.LeftClick(FClickPoint, FClickShift + [ssDouble]);
mbRight : ;
end;
end;
@ -1485,7 +1484,7 @@ end;
procedure TCalendarLite.InternalClick;
begin
case FClickButton of
mbLeft : FCalDrawer.LeftClick(FClickShift);
mbLeft : FCalDrawer.LeftClick(FClickPoint, FClickShift);
mbRight : FCalDrawer.RightClick;
end;
end;