UniCheckComboBox

[picyka]

Would you like to add an option to select all, or deselect all. Thanks

[Sherzod]

13 hours ago, picyka said:

Would you like to add an option to select all, or deselect all. Thanks

Hello,

With code or action !?

[Sherzod]

One possible solution I think, using triggers:

procedure TMainForm.UniCheckComboBox1TriggerEvent(Sender: TUniCustomComboBox;
  AButtonId: Integer);
var
  I: Integer;
begin
  if AButtonId = 0 then
  begin
    for I := 0 to (Sender as TUniCheckComboBox).Items.Count-1 do
      (Sender as TUniCheckComboBox).Selected[I] := True;

    (Sender as TUniCheckComboBox).JSInterface.JSCall('fireEvent', ['select', (Sender as TUniCheckComboBox).JSControl]);

  end
  else if AButtonId = 1 then
  begin
    (Sender as TUniCheckComboBox).ClearSelection;
  end;

end;

 

[picyka]

4 horas atrás, Sherzod disse:

Uma solução possível eu acho, usando gatilhos:

procedure TMainForm.UniCheckComboBox1TriggerEvent(Sender: TUniCustomComboBox;
  AButtonId: Integer);
var
  I: Integer;
begin
  if AButtonId = 0 then
  begin
    for I := 0 to (Sender as TUniCheckComboBox).Items.Count-1 do
      (Sender as TUniCheckComboBox).Selected[I] := True;

    (Sender as TUniCheckComboBox).JSInterface.JSCall('fireEvent', ['select', (Sender as TUniCheckComboBox).JSControl]);

  end
  else if AButtonId = 1 then
  begin
    (Sender as TUniCheckComboBox).ClearSelection;
  end;

end;

 

Thank you, I will check