paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynCompletion: Support wheel scrolling via LM_ instead of WM_. issue #0017872

Browse Source 
git-svn-id: trunk@28132 -
This commit is contained in:
martin 2010-11-07 21:34:22 +00:00
parent 3cabb1f3d7
commit 1730103b56
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syncompletion.pas
View File

@ -41,7 +41,7 @@ unit SynCompletion;
interface
uses
LCLProc, LCLIntf, LCLType, LMessages, messages, Classes, Graphics, Forms,
LCLProc, LCLIntf, LCLType, LMessages, Classes, Graphics, Forms,
Controls, StdCtrls, ExtCtrls, Menus, SysUtils,
SynEditMiscProcs, SynEditKeyCmds, SynEdit, SynEditTypes;
@ -159,7 +159,7 @@ type
procedure DoOnResize; override;
procedure SetBackgroundColor(const AValue: TColor);
procedure FontChanged(Sender: TObject); override;
procedure WMMouseWheel(var Msg: TLMMouseEvent); message WM_MOUSEWHEEL;
procedure WMMouseWheel(var Msg: TLMMouseEvent); message LM_MOUSEWHEEL;
private
fCurrentEditor: TComponent;
FDoubleClickSelects: Boolean;