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;