TUniDBLookupComboBox - hide unused DropDown button

[andyhill]

I have a TUniDBLookupComboBox and I want to Hide DropDownTriggerButton (keep MagnifierLookUpTriggerButton)

    dblComboBoxSuppliers.ClientEvents.UniEvents.Clear;
    s:= 'beforeInit=function beforeInit(sender, config) '+
        '{ '+
        '  Triggers[0].hide(); '+
        '} ';
    dblComboBoxSuppliers.ClientEvents.Add(s);

Code above executes but does not hide button ?

[Sherzod]

34 minutes ago, andyhill said:

I have a TUniDBLookupComboBox and I want to Hide DropDownTriggerButton (keep MagnifierLookUpTriggerButton)

Hello Andy,

UniDBLookupComboBox.HideTrigger property? 

[andyhill]

It hides BOTH DropDown and Magnifier (or it did last time I checked).

[Sherzod]

5 minutes ago, andyhill said:

It hides BOTH DropDown and Magnifier (or it did last time I checked).

Are you adding custom triggers?

[andyhill]

NO

 

[Sherzod]

4 minutes ago, andyhill said:

What are the settings of the UniDBLookupComboBox you are using?

[andyhill]

    //dblComboBoxSuppliers.HideTrigger:= True;  *** HIDES ALL BUTTONS ***
    dblComboBoxSuppliers.ListSource:= UniMainModule.dsSuppliersLkUp;
    dblComboBoxSuppliers.GridMode:= lgmPostListValue;   // lgmPostListValue, lgmPostKeyValue
    dblComboBoxSuppliers.ListOnlyMode:= lmFollowSource; // lmNoFollow, lmFollowSource (uniDBLookupHelper.pas)
    dblComboBoxSuppliers.ListField:=  'BusinessName';
    dblComboBoxSuppliers.KeyField:=   'BusinessName';
    dblComboBoxSuppliers.EndUpdate;
    UniMainModule.tblSuppliersLkUp.ReadOnly:= True;
    UniMainModule.tblSuppliersLkUp.Open;
 

[Sherzod]

56 minutes ago, andyhill said:

//dblComboBoxSuppliers.HideTrigger:= True;  *** HIDES ALL BUTTONS ***

 

2 hours ago, Sherzod said:

Are you adding custom triggers?

 

[david_navigator]

This works for me (actually I do it at design time, just used Gexperts to copy component to source hence the With....)

  with UniDBLookupComboBox1.Triggers.Add do begin 
    ButtonId := 0;
    IconCls := 'x-form-search-trigger';
  end;
 

[andyhill]

Thanks David but the buttons are already there, I wanted to remove one. I could of course remove all and then add but it is clearly a bug.

[Sherzod]

21 minutes ago, andyhill said:

but the buttons are already there, I wanted to remove one. I could of course remove all and then add but it is clearly a bug.

Andy, 

Sorry, seems I don't understand your case.

Can you make a simple app to check?

[david_navigator]

Do you mean that you have them displayed to the user but in some set of circumstances you want to change from two to one button at run time ?

[Sherzod]

2 hours ago, andyhill said:

I wanted...

Maybe you wanted this:

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniDBLookupComboBox1.JSInterface.JSCall('getTriggers().t1.setVisible', [False]); //t1, t2, t3, ...
end;

 

[andyhill]

Perfect - Thank You