OnChange not triggered by TWPToolsCustomEditContolAction

When changing font names, sizes, etc., using ExpressBars combo boxes linked to TWPToolsCustomEditContolActions, the OnChange event of the TWPRichText control is never fired, and the document's modified property is not set to true.

Changing font properties using the standard WP toolbars does cause OnChange to be fired, as the OnToolbarSelection function calls ChangeApplied.

I have made the following simple change to fix this, but I don't know if it is the correct place to do so, or if it will have unanticipated side effects (I simply call ChangeApplied after the case statement):

{$IFDEF USEEXPRESSBARS}


procedure TWPToolsCustomEditContolAction.DoChange(Sender: TObject);
...
      cbsStyleNames, cbsStyleNamesEx:
        begin
          typ := wptStyleNames;
          FControl.OnToolBarSelection(Self, typ, Text, 0);
        end;
    end;
    FControl.ChangeApplied;
  end;
end;