Fixed issue #93:

Changed parameter in IUICommandHandler.UpdateProperty from "var" to "out", as it used to be.

Author: SaschaSchaefer

Lib/UIRibbonActions.pas

@@ -170,7 +170,7 @@   TRibbonCollectionAction = class(TRibbonAction<TUICommandCollection>)
       /// Update handler for TUICommand.UpdateProperty. We assign this handler to the commands' OnUpdateProperty event, so that we can remove
       /// them from the collection as soon as they become invisible.
       /// </summary>
-      procedure PropertyUpdated(Sender: TObject; const PropKey: TUIPropertyKey; var NewValue: TPropVariant; var Handled: boolean);
+      procedure PropertyUpdated(Sender: TObject; const PropKey: TUIPropertyKey; var NewValue: TPropVariant; out Handled: boolean);
       /// <summary>
       /// This method uses the action items that are stored in the internal list fActionList,
       /// and dynamically creates commands that will be added to the collection.
@@ -692,7 +692,7 @@ function TRibbonCollectionAction.Update(): Boolean;
     RefreshCommandCollection;
 end;
 
-procedure TRibbonCollectionAction.PropertyUpdated(Sender: TObject; const PropKey: TUIPropertyKey; var NewValue: TPropVariant; var Handled: boolean);
+procedure TRibbonCollectionAction.PropertyUpdated(Sender: TObject; const PropKey: TUIPropertyKey; var NewValue: TPropVariant; out Handled: boolean);
 var
   lActionVisible: Boolean;
 begin

Lib/UIRibbonApi.pas

@@ -508,7 +508,7 @@ function UIHsb(const Hue, Saturation, Brightness: Byte): TUIHsbColor; inline;
 
     // Informs of the current value of a property, and queries for the new one
     function UpdateProperty(CommandId: UInt32; const Key: TUIPropertyKey;
-      CurrentValue: PPropVariant; var NewValue: TPropVariant): HRESULT; stdcall;
+      CurrentValue: PPropVariant; out NewValue: TPropVariant): HRESULT; stdcall;
   end;
 
   // Types of UI commands

Lib/UIRibbonCommands.pas

@@ -139,7 +139,7 @@   TUICommandExecutionProperties = class
   TUIImage = class;
 
   TUICommandUpdatePropertyEvent = procedure (Sender: TObject; const PropKey: TUIPropertyKey;
-    var NewValue: TPropVariant; var Handled: boolean) of object;
+    var NewValue: TPropVariant; out Handled: boolean) of object;
 
   TUICommandUpdateHintEvent = procedure (Sender: TObject; const Value: string) of object;
 
@@ -193,7 +193,7 @@   TUICommand = class abstract(TComponent, IUICommandHandler)
       CommandExecutionProperties: IUISimplePropertySet): HRESULT; stdcall;
 
     function UpdateProperty(CommandId: UInt32; const Key: TUIPropertyKey;
-      CurrentValue: PPropVariant; var NewValue: TPropVariant): HRESULT; stdcall;
+      CurrentValue: PPropVariant; out NewValue: TPropVariant): HRESULT; stdcall;
     procedure SetLargeImage(const Value: TUIImage);
   strict private
     procedure ImageChanged(Sender: TObject);
@@ -2217,7 +2217,7 @@ procedure TUICommand.SetTooltipTitle(const Value: String);
 end;
 
 function TUICommand.UpdateProperty(CommandId: UInt32; const Key: TUIPropertyKey;
-  CurrentValue: PPropVariant; var NewValue: TPropVariant): HRESULT;
+  CurrentValue: PPropVariant; out NewValue: TPropVariant): HRESULT;
 var
   Prop: TUIProperty;
 begin