fieldset checkboxtoggle: how to determine from code if user click/check the toggle (expanded)?

[fraxzi]

Hi,

I have a Boolean field and I wish to assign a value from  fieldset when click/unclick the CheckboxToggle.

There's no "OnExpand" or "OnCollapse" event.. How to do it?

Thanks,

Frances

[Sherzod]

Hello, 

Sorry, can you please explain in more detail? 

[fraxzi]

Hi @Sherzod,

This FieldSet has CheckboxToggle = true, when uncheck/check at runtime, i'd like to capture when it expand/collapse.

like:

if fieldset expanded, Variable = true else Variable = false

Thanks,

[Sherzod]

Hi,

OK. I'll check. 

[fraxzi]

Hi @Sherzod

 

Any news?

 

Thanks,

Frances

[Sherzod]

On 6/28/2021 at 10:45 AM, fraxzi said:

This FieldSet has CheckboxToggle = true, when uncheck/check at runtime, i'd like to capture when it expand/collapse.

Hello,

Sorry for the late response.

You can use ClientEvents.

UniFieldSet1 -> ClientEvents -> ExtEvents ->

function collapse(fieldset, eOpts)
{
    ajaxRequest(this, '_collapse', ['collapsed='+true]);
}

function expand(fieldset, eOpts)
{
    ajaxRequest(this, '_collapse', ['collapsed='+false]);
}

procedure TMainForm.UniFieldSet1AjaxEvent(Sender: TComponent; EventName: string;
  Params: TUniStrings);
begin
  if EventName = '_collapse' then
    if Params.Values['collapsed'].ToBoolean then
      ShowMessage('collapsed')
    else
      ShowMessage('expanded')

end;

 

[fraxzi]

8 hours ago, Sherzod said:

Hello,

Sorry for the late response.

You can use ClientEvents.

UniFieldSet1 -> ClientEvents -> ExtEvents ->

function collapse(fieldset, eOpts)
{
    ajaxRequest(this, '_collapse', ['collapsed='+true]);
}

function expand(fieldset, eOpts)
{
    ajaxRequest(this, '_collapse', ['collapsed='+false]);
}

procedure TMainForm.UniFieldSet1AjaxEvent(Sender: TComponent; EventName: string;
  Params: TUniStrings);
begin
  if EventName = '_collapse' then
    if Params.Values['collapsed'].ToBoolean then
      ShowMessage('collapsed')
    else
      ShowMessage('expanded')

end;

 

Hi @Sherzod,

Works great!

Then can I expand the fieldset if I have a field with true value?

Thanks,

Frances

[Sherzod]

7 minutes ago, fraxzi said:

Then can I expand the fieldset if I have a field with true value?

Hello,

Do you mean programmatically? 

[fraxzi]

Just now, Sherzod said:

Hello,

Do you mean programmatically? 

Yes Sir.

Just now, Sherzod said:

Hello,

Do you mean programmatically? 

 

[Sherzod]

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniFieldSet1.JSInterface.JSCall('expand', []);
  //UniFieldSet1.JSInterface.JSCall('collapse', []);
end;

 

[fraxzi]

13 hours ago, Sherzod said:

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniFieldSet1.JSInterface.JSCall('expand', []);
  //UniFieldSet1.JSInterface.JSCall('collapse', []);
end;

 

Hi @Sherzod,

Works like magic! Thanks much for the great support.

now I can reduce the screen clutter for cleaner look.

 

Regards,

Frances

[fraxzi]

Hi @Sherzod,

How Can I set UniFieldSet1.CheckboxToggle programmatically?

 

Thanks in advance.

Frances

[Sherzod]

23 minutes ago, fraxzi said:

How Can I set UniFieldSet1.CheckboxToggle programmatically?

Hello,

Can you please explain in more detail? 

[fraxzi]

Hi @Sherzod

I'd like to change from this: (Collapsible, CheckboxToggle)

To this: (no more CheckboxToggle) -> programmatically like if I chick a button.

I tried fieldset.checkboxtoggle := false or with fieldset.collapsible := false, but not success.

I hope you can suggest how to do it.

Thanks,

Frances

 

[Sherzod]

Hello @fraxzi

It seems that there is no such possibility in ExtJS itself.
I do not know yet. We can try to find a workaround.

[Sherzod]

On 3/22/2023 at 5:20 AM, fraxzi said:

I tried fieldset.checkboxtoggle := false or with fieldset.collapsible := false, but not success.

Maybe you will try this solution?

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniFieldSet1.Collapsible := not UniFieldSet1.Collapsible;

  with UniFieldSet1 do
    if CheckboxToggle then
      if Collapsible then
      begin
        JSInterface.JSCall('checkboxCmp.show', []);
        JSInterface.JSCall('getEl().down(".x-fieldset-header-text").resumeEvent', ['click']);
      end
      else
      begin
        JSInterface.JSCall('checkboxCmp.hide', []);
        JSInterface.JSCall('getEl().down(".x-fieldset-header-text").suspendEvent', ['click']);
      end;

end;

 

[fraxzi]

17 hours ago, Sherzod said:

Maybe you will try this solution?

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniFieldSet1.Collapsible := not UniFieldSet1.Collapsible;

  with UniFieldSet1 do
    if CheckboxToggle then
      if Collapsible then
      begin
        JSInterface.JSCall('checkboxCmp.show', []);
        JSInterface.JSCall('getEl().down(".x-fieldset-header-text").resumeEvent', ['click']);
      end
      else
      begin
        JSInterface.JSCall('checkboxCmp.hide', []);
        JSInterface.JSCall('getEl().down(".x-fieldset-header-text").suspendEvent', ['click']);
      end;

end;

 

Hi @Sherzod,

The Guro strikes again!  ... you always amaze me (us).

works perfectly.

Thanks,

Frances