From b38a85d511f11a53b88d5c9f34bb16eef0c6a61b Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 13 Oct 2014 19:18:37 +0000
Subject: [PATCH] spkToolbar: Revert the timer introduced in r2882, 2784, 2784,
 2786 - it causes slow repainting of the toolbar when form is resized

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3651 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../spktoolbar/SpkToolbar/SpkToolbar.pas      | 21 ++-----------------
 1 file changed, 2 insertions(+), 19 deletions(-)

diff --git a/components/spktoolbar/SpkToolbar/SpkToolbar.pas b/components/spktoolbar/SpkToolbar/SpkToolbar.pas
index 9b437a3b6..52928011d 100644
--- a/components/spktoolbar/SpkToolbar/SpkToolbar.pas
+++ b/components/spktoolbar/SpkToolbar/SpkToolbar.pas
@@ -114,7 +114,6 @@ type
     /// <summary>Pomocnicza bitmapa przekazywana na ¿yczenie elementom
     /// toolbara</summary>
     FTemporary: TBitmap;
-    FDelayRunTimer: TTimer;
 
     /// <summary>Tablica rectów "uchwytów" zak³adek</summary>
     FTabRects: array of T2DIntRect;
@@ -152,7 +151,6 @@ type
     FOnTabChanging: TSpkTabChangingEvent;
     FOnTabChanged: TNotifyEvent;
 
-    procedure DelayRunTimer(Sender: TObject);
   protected
     /// <summary>Instancja obiektu wygl¹du, przechowuj¹cego kolory i czcionki
     /// u¿ywane podczas renderowania komponentu</summary>
@@ -514,19 +512,6 @@ begin
 
   FTabIndex := -1;
   Color := clSkyBlue;
-
-  FDelayRunTimer := TTimer.Create(nil);
-  FDelayRunTimer.Interval := 36;
-  FDelayRunTimer.Enabled := False;
-  FDelayRunTimer.OnTimer := DelayRunTimer;
-end;
-
-procedure TSpkToolbar.DelayRunTimer(Sender: TObject);
-begin
-  SetMetricsInvalid;
-  SetBufferInvalid;
-  invalidate;
-  FDelayRunTimer.Enabled := False;
 end;
 
 procedure TSpkToolbar.DefineProperties(Filer: TFiler);
@@ -549,8 +534,6 @@ begin
 
   FToolbarDispatch.Free;
 
-  FDelayRunTimer.Free;
-
   inherited Destroy;
 end;
 
@@ -1005,8 +988,8 @@ procedure TSpkToolbar.DoOnResize;
 begin
   inherited Height := TOOLBAR_HEIGHT;
 
-  FDelayRunTimer.Enabled := False;
-  FDelayRunTimer.Enabled := True;
+  SetMetricsInvalid;
+  SetBufferInvalid;
 
   if not (FInternalUpdating or FUpdating) then
     invalidate;