diff options
| -rw-r--r-- | src/gui/fpg_scrollbar.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/gui/fpg_scrollbar.pas b/src/gui/fpg_scrollbar.pas index 2a2b4bc9..5d69ced6 100644 --- a/src/gui/fpg_scrollbar.pas +++ b/src/gui/fpg_scrollbar.pas @@ -126,6 +126,7 @@ end; procedure TfpgScrollBar.HandlePaint; begin + Canvas.BeginDraw; // Do not remove - Scrollbars do painting outside HandlePaint as well! if Orientation = orVertical then begin DrawButton(0, 0, Width, Width, 'sys.sb.up', FScrollbarDownPart = sbpUpBack); @@ -138,6 +139,7 @@ begin end; DrawSlider(True); + Canvas.EndDraw; // Do not remove - Scrollbars do painting outside HandlePaint as well! end; procedure TfpgScrollBar.RepaintSlider; |