paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 14:54:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

enable wmmousewheel

Browse Source 
git-svn-id: trunk@5504 -
This commit is contained in:
micha 2004-05-24 18:31:36 +00:00
parent 76405be97d
commit 2ce2b83596
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/synedit/synedit.pp
View File

@ -6789,19 +6789,20 @@ begin
end; end;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
procedure TCustomSynEdit.WMMouseWheel(var Msg: TLMMouseEvent); procedure TCustomSynEdit.WMMouseWheel(var Msg: TLMMouseEvent);
{var var
nDelta: integer; nDelta: integer;
nWheelClicks: integer; nWheelClicks: integer;
const const
LinesToScroll = 3; LinesToScroll = 6;
WHEEL_DELTA = 120; WHEEL_DELTA = 120;
WHEEL_PAGESCROLL = MAXDWORD;} WHEEL_PAGESCROLL = MAXDWORD;
begin begin
if csDesigning in ComponentState then if csDesigning in ComponentState then
exit; exit;
{if GetKeyState(VK_CONTROL) >= 0 then if GetKeyState(VK_CONTROL) >= 0 then
nDelta := LinesToScroll nDelta := LinesToScroll
else begin else begin
nDelta := LinesInWindow; nDelta := LinesInWindow;
@ -6818,7 +6819,7 @@ begin
nDelta := LinesInWindow; nDelta := LinesInWindow;
writeln('TCustomSynEdit.WMMouseWheel B TopLine=',TopLine,' nDelta=',nDelta,' nWheelClicks=',nWheelClicks); writeln('TCustomSynEdit.WMMouseWheel B TopLine=',TopLine,' nDelta=',nDelta,' nWheelClicks=',nWheelClicks);
TopLine := TopLine - (nDelta * nWheelClicks); TopLine := TopLine - (nDelta * nWheelClicks);
Update;} Update;
end; end;
{$ELSE} {$ELSE}