paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 13:20:18 +02: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;
{$IFDEF SYN_LAZARUS}
procedure TCustomSynEdit.WMMouseWheel(var Msg: TLMMouseEvent);
{var
var
nDelta: integer;
nWheelClicks: integer;
const
LinesToScroll = 3;
LinesToScroll = 6;
WHEEL_DELTA = 120;
WHEEL_PAGESCROLL = MAXDWORD;}
WHEEL_PAGESCROLL = MAXDWORD;
begin
if csDesigning in ComponentState then
exit;
{if GetKeyState(VK_CONTROL) >= 0 then
if GetKeyState(VK_CONTROL) >= 0 then
nDelta := LinesToScroll
else begin
nDelta := LinesInWindow;
@ -6818,7 +6819,7 @@ begin
nDelta := LinesInWindow;
writeln('TCustomSynEdit.WMMouseWheel B TopLine=',TopLine,' nDelta=',nDelta,' nWheelClicks=',nWheelClicks);
TopLine := TopLine - (nDelta * nWheelClicks);
Update;}
Update;
end;
{$ELSE}