diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-21 13:11:37 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-21 13:11:37 +0000 |
| commit | 39d4e784a9dc3b3ec948d77295e1178808871041 (patch) | |
| tree | 9afe9a9d6ca6d98cf5afeff39438666071f902bf /src/gui | |
| parent | 61979d0237fa5d5a4ed9811acecb36893b32777e (diff) | |
| download | fpGUI-39d4e784a9dc3b3ec948d77295e1178808871041.tar.xz | |
* Minor scrollbar patch so Windows behaves the same as Linux. Patch by Vladimir.
Diffstat (limited to 'src/gui')
| -rw-r--r-- | src/gui/gui_scrollbar.pas | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/gui/gui_scrollbar.pas b/src/gui/gui_scrollbar.pas index 49c1e9d1..5bfde1c9 100644 --- a/src/gui/gui_scrollbar.pas +++ b/src/gui/gui_scrollbar.pas @@ -404,6 +404,7 @@ var lPos: TfpgCoord; begin inherited; + CaptureMouse; if Orientation = orVertical then begin @@ -493,6 +494,8 @@ var WasPressed: Boolean; begin inherited; + ReleaseMouse; + WasPressed := FScrollbarDownPart <> sbpNone; FScrollTimer.Enabled := False; |