Added public function "IsContextTabEnabled", which returns whether or not a contextual tab is enabled.

Author: SaschaSchaefer

Lib/UIRibbon.pas

@@ -207,6 +207,7 @@   TUIRibbon = class(TWinControl, IUIApplication)
     /// <param name="pCommandId">The id of the ribbon command.</param>
     /// <param name="pContextAvailability">The availability state.</param>
     procedure SetContextTabAvailability(const pCommandId: Integer; const pContextAvailability: TUIContextAvailability);
+    function GetContextTabAvailability(const pCommandId: Integer): TUIContextAvailability;
 
     { IInterface }
     function _AddRef: Integer; stdcall;
@@ -403,6 +404,12 @@   TUIRibbon = class(TWinControl, IUIApplication)
     /// <param name="pCommandId">The ID of the context tab.</param>
     procedure EnableContextTab(const pCommandId: Integer);
 
+    /// <summary>
+    ///  Returns whether or not a ribbon context tab is enabled.
+    /// </summary>
+    /// <param name="pCommandId">The ID of the context tab.</param>
+    function IsContextTabEnabled(const pCommandId: Integer): Boolean;
+
     /// <summary>
     ///  Hides a ribbon context tab.
     /// </summary>
@@ -1104,6 +1111,11 @@ procedure TUIRibbon.InvalidateUICommand(const Command: TUICommand;
   end;
 end;
 
+function TUIRibbon.IsContextTabEnabled(const pCommandId: Integer): Boolean;
+begin
+  Result := GetContextTabAvailability(pCommandId) in [TUIContextAvailability.caAvailable, TUIContextAvailability.caActive];
+end;
+
 function TUIRibbon.GetRecentItems(): TUICommandRecentItems;
 begin
   if not Assigned(fRecentItems) then
@@ -1590,6 +1602,22 @@ procedure TUIRibbon.SetContextTabAvailability(const pCommandId: Integer; const p
     (lCommand as TUICommandContext).Availability := pContextAvailability;
 end;
 
+function TUIRibbon.GetContextTabAvailability(const pCommandId: Integer): TUIContextAvailability;
+var
+  lCommand: TUICommand;
+begin
+  Result := TUIContextAvailability.caNotAvailable;
+  //If Ribbons are disabled, exit here.
+  if (not Self.Visible) then
+    Exit;
+  // Get the command with that ID
+  if not Self.TryGetCommand(pCommandId, lCommand) then
+    Exit;
+  // If found, check type, cast and get Availability property.
+  if (lCommand.CommandType = TUICommandType.ctContext) then
+    Result := (lCommand as TUICommandContext).Availability;
+end;
+
 procedure TUIRibbon.SetHighlightColor(const Value: TColor);
 begin
   SetHighlightHsbColor(ColorToHsb(Value));