Clear Button

[Aggie85]

Howdy!

I would like the Clear button on edits to only show when the edit button has the focus.

How do I achieve this?

All the best,

Aggie85

[Sherzod]

2 hours ago, Aggie85 said:

I would like the Clear button on edits to only show when the edit button has the focus.

How do I achieve this?

Hello,

One possible solution:

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  with UniEdit1 do
  if ClearButton then
  begin
    JSInterface.JSAddListener('focus', 'function(cmp){if (cmp.getValue()!="") cmp.getTrigger("clear").show()}');
    JSInterface.JSAddListener('blur', 'function(cmp){cmp.getTrigger("clear").hide()}');
  end;

end;

 

[Aggie85]

Sherzod,

Thanks as usual!

All the best,

Aggie85

[eduardosuruagy]

2 hours ago, Sherzod said:

Hello,

One possible solution:

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  with UniEdit1 do
  if ClearButton then
  begin
    JSInterface.JSAddListener('focus', 'function(cmp){if (cmp.getValue()!="") cmp.getTrigger("clear").show()}');
    JSInterface.JSAddListener('blur', 'function(cmp){cmp.getTrigger("clear").hide()}');
  end;

end;

 

Where do I put this code? I put it in onCreate but it didn't work

[Sherzod]

3 minutes ago, eduardosuruagy said:

I put it in onCreate but it didn't work

ClearButton = True ?

[Aggie85]

Howdy Sherzod,

Need to replace "clear" with 'clear' and it will work as expected.

All the best,

Aggie85

[Sherzod]

5 hours ago, Aggie85 said:

Need to replace "clear" with 'clear' and it will work as expected.

It's probably for C++Builder.

[eduardosuruagy]

17 hours ago, Sherzod said:

ClearButton = True ?

Yes, When I open the form it looks like this, and after I focus on the edits it disappears with the X 

[Sherzod]

And without additional code?

Which theme are you using? 

[eduardosuruagy]

52 minutes ago, Sherzod said:

E sem código adicional?

Qual tema você está usando? 

triton.modified

[Sherzod]

1 hour ago, Sherzod said:

And without additional code?

?

[eduardosuruagy]

28 minutes ago, Sherzod said:

?

Additional code where? Would it be in onCreate?

[eduardosuruagy]

I made an example with just the edits

UniGui Teste.rar

[Sherzod]

1 hour ago, eduardosuruagy said:

UniGui Teste.rar 56.64 kB · 1 download

procedure TFormTeste.UniFormCreate(Sender: TObject);
var I: Integer;
begin
  for I := 0 to Self.ComponentCount - 1 do
  begin
    if Self.Components[I].ClassType = TUniEdit then
    begin
      with TUniEdit(Self.Components[I]) do
      begin
        if ClearButton then
        begin
          JSInterface.JSAddListener('afterrender', 'function(cmp){cmp.getTrigger("clear").hide()}'); //<--------
          JSInterface.JSAddListener('focus', 'function(cmp){if (cmp.getValue()!="") cmp.getTrigger("clear").show()}');
          JSInterface.JSAddListener('blur', 'function(cmp){cmp.getTrigger("clear").hide()}');
        end;
      end;
    end;
  end;
end;

 

[eduardosuruagy]

On 7/16/2022 at 2:28 PM, Sherzod said:

procedure TFormTeste.UniFormCreate(Sender: TObject);
var I: Integer;
begin
  for I := 0 to Self.ComponentCount - 1 do
  begin
    if Self.Components[I].ClassType = TUniEdit then
    begin
      with TUniEdit(Self.Components[I]) do
      begin
        if ClearButton then
        begin
          JSInterface.JSAddListener('afterrender', 'function(cmp){cmp.getTrigger("clear").hide()}'); //<--------
          JSInterface.JSAddListener('focus', 'function(cmp){if (cmp.getValue()!="") cmp.getTrigger("clear").show()}');
          JSInterface.JSAddListener('blur', 'function(cmp){cmp.getTrigger("clear").hide()}');
        end;
      end;
    end;
  end;
end;

 

it worked thank you very much!

[fraxzi]

On 7/17/2022 at 1:28 AM, Sherzod said:

procedure TFormTeste.UniFormCreate(Sender: TObject);
var I: Integer;
begin
  for I := 0 to Self.ComponentCount - 1 do
  begin
    if Self.Components[I].ClassType = TUniEdit then
    begin
      with TUniEdit(Self.Components[I]) do
      begin
        if ClearButton then
        begin
          JSInterface.JSAddListener('afterrender', 'function(cmp){cmp.getTrigger("clear").hide()}'); //<--------
          JSInterface.JSAddListener('focus', 'function(cmp){if (cmp.getValue()!="") cmp.getTrigger("clear").show()}');
          JSInterface.JSAddListener('blur', 'function(cmp){cmp.getTrigger("clear").hide()}');
        end;
      end;
    end;
  end;
end;

 

Hi @Sherzod,

Good day!

I tried with TUniDBEdit, but the "afterrender" has no effect.. If I move the record from UniDBGrid, the display TUniDBEdit always show the clearbutton.

Any workarround?

Thanks

Frances

[Sherzod]

Hello @fraxzi

I will check.

[Sherzod]

46 minutes ago, fraxzi said:

I tried with TUniDBEdit, but the "afterrender" has no effect.. If I move the record from UniDBGrid, the display TUniDBEdit always show the clearbutton.

Works for me. 

Maybe you forgot to set ClearButton to True?

[fraxzi]

Hi @Sherzod,

The ClearButton property is 'true'. I carefully follow the above.

I am using uniGui 1.90.0.1564.

 

Thanks,

Frances

[fraxzi]

here's the gif ... note: dataset AutoEdit is false.

 

Thanks and regards,

Frances

[Sherzod]

19 hours ago, fraxzi said:

If I move the record from UniDBGrid

Sorry, I didn't pay attention to what you wrote. I will check. 

[fraxzi]

On 11/23/2022 at 12:12 PM, Sherzod said:

Sorry, I didn't pay attention to what you wrote. I will check. 

Hi @Sherzod,

Any update?

Thanks,

Frances

[Sherzod]

Hi @fraxzi

Sorry, I forgot, now I'm looking to find a solution.

[Sherzod]

13 minutes ago, fraxzi said:

Any update?

Try this approach, added dirtychange event:

procedure TMainForm.UniFormCreate(Sender: TObject);
var I: Integer;
begin
  for I := 0 to Self.ComponentCount - 1 do
  begin
    if Self.Components[I].ClassType = TUniDBEdit then
    begin
      with TUniDBEdit(Self.Components[I]) do
      begin
        if ClearButton then
        begin
          JSInterface.JSAddListener('afterrender', 'function(cmp){cmp.getTrigger("clear").hide()}');
          JSInterface.JSAddListener('focus', 'function(cmp){if (cmp.getValue()!="") cmp.getTrigger("clear").show()}');
          JSInterface.JSAddListener('blur', 'function(cmp){cmp.getTrigger("clear").hide()}');
          JSInterface.JSAddListener('dirtychange', 'function(cmp){cmp.getTrigger("clear").hide()}'); //<--------
        end;
      end;
    end;
  end;
end;

 

[fraxzi]

2 hours ago, Sherzod said:

Try this approach, added dirtychange event:

procedure TMainForm.UniFormCreate(Sender: TObject);
var I: Integer;
begin
  for I := 0 to Self.ComponentCount - 1 do
  begin
    if Self.Components[I].ClassType = TUniDBEdit then
    begin
      with TUniDBEdit(Self.Components[I]) do
      begin
        if ClearButton then
        begin
          JSInterface.JSAddListener('afterrender', 'function(cmp){cmp.getTrigger("clear").hide()}');
          JSInterface.JSAddListener('focus', 'function(cmp){if (cmp.getValue()!="") cmp.getTrigger("clear").show()}');
          JSInterface.JSAddListener('blur', 'function(cmp){cmp.getTrigger("clear").hide()}');
          JSInterface.JSAddListener('dirtychange', 'function(cmp){cmp.getTrigger("clear").hide()}'); //<--------
        end;
      end;
    end;
  end;
end;

 

YES!

You're the Man @Sherzod!! "dirtychange" works like a charm.

 

Thanks much with your superb support.

-Frances