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
/// Pomocnicza bitmapa przekazywana na ¿yczenie elementom
/// toolbara
FTemporary: TBitmap;
- FDelayRunTimer: TTimer;
/// Tablica rectów "uchwytów" zak³adek
FTabRects: array of T2DIntRect;
@@ -152,7 +151,6 @@ type
FOnTabChanging: TSpkTabChangingEvent;
FOnTabChanged: TNotifyEvent;
- procedure DelayRunTimer(Sender: TObject);
protected
/// Instancja obiektu wygl¹du, przechowuj¹cego kolory i czcionki
/// u¿ywane podczas renderowania komponentu
@@ -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;