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

tvplanit: Activate mousewheel in VpCalendar

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4730 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-12 16:27:54 +00:00
parent 6f027303d9
commit cdd2584be7
3 changed files with 15 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/tvplanit/source/vpcalendar.pas
View File

@ -34,7 +34,7 @@ unit VpCalendar;
interface
uses
{$IFDEF LCL}
{$IFDEF LCL} windows,
LMessages, LCLProc, LCLType, LCLIntf, LazUTF8,
{$ELSE}
Windows,
@ -217,7 +217,7 @@ type
procedure DoOnChange(Value: TDateTime); dynamic;
function DoOnGetDateEnabled(ADate: TDateTime): Boolean; dynamic;
{$IFDEF LCL}
// .... to be done in DoMouseWheel
function DoMouseWheel(Shift: TShiftState; Delta: Integer; MousePos: TPoint): Boolean; override;
{$ELSE}
procedure DoOnMouseWheel(Shift: TShiftState; Delta, XPos, YPos: SmallInt); override;
{$ENDIF}
@ -922,13 +922,22 @@ end;
{=====}
{$IFDEF LCL}
// to be done in DoMouseWheel
function TVpCustomCalendar.DoMouseWheel(Shift: TShiftState;
Delta: Integer; MousePos: TPoint): Boolean;
{$ELSE}
procedure TVpCustomCalendar.DoOnMouseWheel(Shift: TShiftState; Delta, XPos, YPos: SmallInt);
procedure TVpCustomCalendar.DoMouseWheel(Shift: TShiftState;
Delta, XPos, YPos: SmallInt);
{$ENDIF}
const
WHEEL_DELTA = 120; // in unit Windows.
var
Key: Word;
key: Word;
begin
{$IFDEF LCL}
Result := inherited DoMouseWheel(Shift, Delta, MousePos);
{$ELSE}
inherited DoOnMouseWheel(Shift, Delta, XPos, YPos);
{$ENDIF}
if Abs(Delta) = WHEEL_DELTA then begin
{inc/dec month}
if Delta < 0 then
@ -952,7 +961,6 @@ begin
KeyDown(Key, []);
end;
end;
{$ENDIF}
{=====}
function TVpCustomCalendar.IsReadOnly: Boolean;

2
components/tvplanit/source/vpconst.pas
View File

@ -40,7 +40,7 @@ interface
uses
{$IFDEF LCL}
Controls,LCLType,LCLProc,
Controls, LCLType, LCLProc,
{$ELSE}
Windows,
{$ENDIF}

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

@ -2025,12 +2025,6 @@ end;
{=====}
{$IFDEF LCL}
{
procedure TVpDayView.WMMouseWheel(var Message: TLMMouseEvent);
begin
inherited;
end;
}
function TVpDayView.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint): Boolean;
begin