The control places an object with multiple horizontal tabs, like dividers in a notebook or labels in a set of folders in a filing cabinet, which is placed at the bottom border of another control.
R:BASE command syntax is stored or referenced within the Tab Set properties to accomplish a task.
The Tab Set control was enhanced with two properties TabTo and AllowChange and an added "On Before Tab Change" EEP, which is triggered before the tab is changed. The changes make is possible for access to a tab to be prevented.
•TabTo returns the index of the target tab.
•AllowChange tells the Tab Set control if it should allow the change or not. The default behavior is to allow the change.
Note: The properties TabTo and AllowChange are only to be used in the "On Before Tab Change" EEP.
-- The following prevents focus to focus to tabs 2 and 4.
-- Note the Tab Set control uses a zero-based index for tabs. Tabs "Two" and "Four" are indexed as 1 and 3
SET VAR vTab TEXT = NULL
GETPROPERTY TabSetControl1 TABTO vTab
IF vTab = '1' OR vTab = '3' THEN
-- Prevent the tab change
PROPERTY TabSetControl1 ALLOWCHANGE FALSE
ENDIF
RETURN
