paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 19:07:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added csCaptureMouse to TScrollBox controlStyle, now it's Delphi compat.fixes issues #19712 and #19713.

Browse Source 
git-svn-id: trunk@35225 -
This commit is contained in:
zeljko 2012-02-07 19:15:56 +00:00
parent 0f0bcdb501
commit 31fdb216bc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/scrollbox.inc
View File

@ -25,6 +25,7 @@ constructor TScrollBox.Create(AOwner: TComponent);
begin
Inherited Create(AOwner);
fCompStyle:= csScrollBox;
ControlStyle := ControlStyle + [csCaptureMouse];
AutoScroll := True;
BorderStyle := bsSingle;
end;