Small improvement of TAdvOfficeToolSelector

VCL VCL Feature Requests
1

Please, can you add an event to allow an initialization of Tools property just before a drop down event?

It would be nice to do it in this way:

  1. Define a new type before TAdvCustomOfficeSelector declaration
    TDropDownOpenEvent = procedure(Sender: TObject; OpenDropDown: Boolean) of object;

  2. Declare following fields and properties of TAdvCustomOfficeSelector:
    private
    FOnDropDownOpen: TDropDownOpenEvent;
    protected
    property OnDropDownOpen: TDropDownOpenEvent read FOnDropDownOpen write FOnDropDownOpen;

  3. Add a functionality to procedure TAdvCustomOfficeSelector.DoDropDown
    var
    ...
    OpenDropDown: Boolean;
    begin
    ...
    // place this code before a call to SetSelectorPanel
    if Assigned(FOnDropDownOpen) then
    begin
    OpenDropDown := True;
    FOnDropDownOpen(Self, OpenDropDown);
    if not OpenDropDown then
    Exit;
    end;
    // call to SetSelectorPanel follows...
    ...
    end;

  4. Publish the OnDropDownOpen property in TAdvOfficeToolSelector class
    published
    property OnDropDownOpen;

As there are three other events related to the DropDown event, this one should be placed close to other ones. Unfortunatelly any of these events allow to access the Tools list before the drop-down items are created.

Thank you very much.

2

This feature will not be implemented.