paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:59:16 +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 uses
Classes, SysUtils, Types, Contnrs, Controls, SrcEditorIntf, StdCtrls, Buttons, Classes, SysUtils, Types, Contnrs, Controls, SrcEditorIntf, StdCtrls, Buttons,
ComCtrls, Forms, LazFileUtils, PackageIntf, Graphics, Menus, LazIDEIntf, ComCtrls, Forms, LazFileUtils, PackageIntf, Graphics, Menus, LazIDEIntf,
ExtCtrls, IDEImagesIntf, LMessages, Math, Laz2_XMLCfg, IDECommands, LCLIntf, ExtCtrls, IDEImagesIntf, Laz2_XMLCfg, IDECommands, LCLIntf,
IDEOptionsIntf, packagetabsstr, Clipbrd; IDEOptionsIntf, packagetabsstr, Clipbrd;
type type
@ -71,7 +71,6 @@ type
TPackageTabScrollBox = class(TScrollBox) TPackageTabScrollBox = class(TScrollBox)
protected protected
procedure WMMouseWheel(var Message: TLMMouseEvent); message LM_MOUSEWHEEL;
procedure DoAlignControls; procedure DoAlignControls;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -404,16 +403,6 @@ begin
end; end;
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 } { TPackageTabButton }
constructor TPackageTabButton.Create(aOwner: TComponent); constructor TPackageTabButton.Create(aOwner: TComponent);