From 51a57257d391edb52a1c755a063287bcd4a9028f Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 21 Sep 2012 09:21:59 +0100
Subject: trackbar: Fixed the focus rectangle flicker problem while dragging.

---
 src/gui/fpg_trackbar.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/gui/fpg_trackbar.pas b/src/gui/fpg_trackbar.pas
index 89b9b0da..fe0b6a0e 100644
--- a/src/gui/fpg_trackbar.pas
+++ b/src/gui/fpg_trackbar.pas
@@ -526,7 +526,8 @@ var
   r: TfpgRect;
 begin
   DrawSlider(True);
-  if Focused then
+  { dont't draw focus rect while dragging - it flickers }
+  if Focused and (not FSliderDragging) then
   begin
     r.SetRect(0, 0, Width, Height);
     Canvas.DrawFocusRect(r);
-- 
cgit v1.2.3-70-g09d2