paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 15:48:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

packagetabs: remove unneeded WMMouseWheel workaround (fixed in LCL in r50527 #916bee86f8)

Browse Source 
git-svn-id: trunk@50824 -
This commit is contained in:
ondrej 2015-12-15 18:26:53 +00:00
parent 3a6697bc77
commit b285b769c4
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/packagetabs/packagetabs_impl.pas
View File

@ -32,7 +32,7 @@ interface
uses
Classes, SysUtils, Types, Contnrs, Controls, SrcEditorIntf, StdCtrls, Buttons,
ComCtrls, Forms, LazFileUtils, PackageIntf, Graphics, Menus, LazIDEIntf,
ExtCtrls, IDEImagesIntf, LMessages, Math, Laz2_XMLCfg, IDECommands, LCLIntf,
ExtCtrls, IDEImagesIntf, Laz2_XMLCfg, IDECommands, LCLIntf,
IDEOptionsIntf, packagetabsstr, Clipbrd;
type
@ -71,7 +71,6 @@ type
TPackageTabScrollBox = class(TScrollBox)
protected
procedure WMMouseWheel(var Message: TLMMouseEvent); message LM_MOUSEWHEEL;
procedure DoAlignControls;
public
constructor Create(AOwner: TComponent); override;
@ -404,16 +403,6 @@ begin
end;
end;
procedure TPackageTabScrollBox.WMMouseWheel(var Message: TLMMouseEvent);
begin
if Mouse.WheelScrollLines > 0 then
begin
Message.WheelDelta := (Min(High(Message.WheelDelta), Max(Low(Message.WheelDelta), (VertScrollBar.Increment * Message.WheelDelta))) div 120) * 120;
end;
inherited WMMouseWheel(Message);
end;
{ TPackageTabButton }
constructor TPackageTabButton.Create(aOwner: TComponent);