paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 14:19:22 +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 interface
uses uses
LCLProc, LCLIntf, LCLType, LMessages, messages, Classes, Graphics, Forms, LCLProc, LCLIntf, LCLType, LMessages, Classes, Graphics, Forms,
Controls, StdCtrls, ExtCtrls, Menus, SysUtils, Controls, StdCtrls, ExtCtrls, Menus, SysUtils,
SynEditMiscProcs, SynEditKeyCmds, SynEdit, SynEditTypes; SynEditMiscProcs, SynEditKeyCmds, SynEdit, SynEditTypes;
@ -159,7 +159,7 @@ type
procedure DoOnResize; override; procedure DoOnResize; override;
procedure SetBackgroundColor(const AValue: TColor); procedure SetBackgroundColor(const AValue: TColor);
procedure FontChanged(Sender: TObject); override; procedure FontChanged(Sender: TObject); override;
procedure WMMouseWheel(var Msg: TLMMouseEvent); message WM_MOUSEWHEEL; procedure WMMouseWheel(var Msg: TLMMouseEvent); message LM_MOUSEWHEEL;
private private
fCurrentEditor: TComponent; fCurrentEditor: TComponent;
FDoubleClickSelects: Boolean; FDoubleClickSelects: Boolean;