Tips and Frequently Asked Questions
Controlling how long the item jumping lasts.
When an item is clicked or double clicked an extra visual feature can be started to indicate the item has been clicked: Set Jump to true to allow the item to jump. Set Jump to false to stop the jumping. This way it is under full control of the application code how long the item jumping lasts.
With this code a Timer is started to count 3 seconds before the item stops jumping:
var time, clickeditem: integer; implementation {$R *.dfm} procedure TForm1.AdvSmoothDock1ItemClick(Sender: TObject; ItemIndex: Integer); begin Timer1.Enabled := true; time := 0; clickeditem := ItemIndex; AdvSmoothDock1.Items[clickeditem].Jump := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var i: integer; begin if time >= 3 then begin Timer1.Enabled := false; for I := 0 to AdvSmoothDock1.Items.Count - 1 do AdvSmoothDock1.Items[I].Jump := false; end; Inc(time); end;
Pricing
Single Developer License
Small Team License
Site License
TMS VCL UI Pack
€ 375
€
150
yearly renewal
license for 1 developer
MOST POPULAR
BEST VALUE
All prices excl. VAT. Renewal price is subject to change and only valid up to 30 days after license has expired. After renewal period a discount price is offered to renew the license.
Free Trial
Note that the TMS VCL UI Pack replaces the TMS Component Pack. Both products can't be installed simultaneously. Therefore TMS Component Pack must first be uninstalled before installing the TMS VCL UI Pack