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

CalLite: Fix double-advance of month/year arrow buttons if MultiSelect is disabled.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5364 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-18 13:09:50 +00:00
parent 9d3cb29114
commit 93518f483a
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1404,7 +1404,7 @@ begin
inherited; inherited;
// Multi-select is handled by DblClickTimer // Multi-select is handled by DblClickTimer
if not FMultiSelect then if not FMultiSelect then //and not FDblClickTimer.Enabled then
InternalClick; InternalClick;
end; end;
@@ -1531,11 +1531,13 @@ begin
if not Focused and not(csNoFocus in ControlStyle) then if not Focused and not(csNoFocus in ControlStyle) then
SetFocus; SetFocus;
if FMultiSelect then begin
FClickPoint := Point(X, Y); FClickPoint := Point(X, Y);
FClickShift := Shift; FClickShift := Shift;
FClickButton := Button; FClickButton := Button;
FDblClickTimer.Enabled := true; FDblClickTimer.Enabled := true;
end; end;
end;
procedure TCalendarLite.MouseEnter; procedure TCalendarLite.MouseEnter;
begin begin