AccessRights: TabAccessRights;
The AccessRights property determines access permissions for the data used for this style.
Full access to data is used by default. If the property is set to TabAccessRights.NoAccess or TabAccessRights.Write, take into account the following constraints:
Executing the example requires a regular report with the REGULAR_REPORT identifier.
Add links to the Metabase, Report and Tab system assemblies.
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
TabSheet: ITabSheet;
TabView: ITabView;
Style: ITabCellStyle;
Begin
MB := MetabaseClass.Active;
// Get regular report
Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
// Get table
TabSheet := (Report.ActiveSheet As IPrxTable).TabSheet;
TabView := TabSheet.View;
// Enable displaying of access permission icons
TabView.DisplayAccessRights := True;
// Get first row displaying style
Style := TabSheet.Row(0).Style;
// Set read-only data access permissions
Style.AccessRights := TabAccessRights.Read;
// Save changes
(Report As IMetabaseObject).Save;
End Sub UserProc;
After executing the example the first table row will be read-only.
See also: