Tips and Frequently Asked Questions
Adding Sections and Items
Adding a root menu with a section and 5 items
with AdvSmoothMegaMenu1.MenuItems.Add do begin Caption := 'Hello World !'; with Menu.Sections.Add do begin Caption := 'Section 0'; Items.Add.Text := 'Item 1'; Items.Add.Text := 'Item 2'; Items.Add.Text := 'Item 3'; Items.Add.Text := 'Item 4'; Items.Add.Text := 'Item 5'; end; end;
with AdvSmoothMegaMenu1.MenuItems.Add do begin Caption := 'Hello World !'; Menu.SectionLayout := slHorizontal; // Menu.SectionLayout := slVertical; for I := 0 to 1 do begin with Menu.Sections.Add do begin Caption := 'Section ' + inttostr(I); Items.Add.Text := 'Item 1'; Items.Add.Text := 'Item 2'; Items.Add.Text := 'Item 3'; Items.Add.Text := 'Item 4'; Items.Add.Text := 'Item 5'; end; end; end;
with AdvSmoothMegaMenu1.MenuItems.Add do begin Caption := 'Hello World !'; with Menu.Sections.Add do begin Caption := 'Section 0'; Items.Add.Text := 'Item 1'; Items.Add.Text := 'Item 2'; Items.Add.Text := 'Item 3'; Items.Add.Text := 'Item 4'; Items.Add.Text := 'Item 5'; Items.Add.ItemType := itBreak; Items.Add.Text := 'Item 1'; Items.Add.Text := 'Item 2'; Items.Add.Text := 'Item 3'; Items.Add.Text := 'Item 4'; Items.Add.Text := 'Item 5'; end; 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