How to replace images in unidbnav with Captions

[JohanC]

How to replace images in unidbnav with Captions (e.g. New, Delete, Edit, Save, Cancel, Refresh)

Thanks

[Sherzod]

On 1/15/2022 at 3:04 PM, JohanC said:

How to replace images in unidbnav with Captions (e.g. New, Delete, Edit, Save, Cancel, Refresh)

Hello,

One possible solution.

procedure TMainForm.UniFormReady(Sender: TObject);
begin
  JSInterface.JSCode(#1'.owner.uni_dbn_DELETE.setIcon(null);');
  JSInterface.JSCode(#1'.owner.uni_dbn_DELETE.setText("Delete");');
end;

 

[JohanC]

Thanks,

Where should I call UniFormReady ?

I get this error 

[Sherzod]

12 minutes ago, JohanC said:

Where should I call UniFormReady ?

Yes.

[JohanC]

Sorry, I do not understand your reply = Yes

I get the Ajax Error when I call the UniFormReady

at 

procedure TMainForm.UniFormShow(Sender: TObject);
begin
UniFormReady(Sender);

end;

[Sherzod]

4 hours ago, Sherzod said:

TMainForm.UniFormReady

Use this event directly instead of calling it in the OnShow event.

[JohanC]

My apology, I do not know how to use this event directly

[Sherzod]

procedure TMainForm.UniFormReady(Sender: TObject);
begin
  // here
end;

 

[Sherzod]

procedure TMainForm.UniFormShow(Sender: TObject);
begin
  UniFormReady(Sender);

end;

[JohanC]

I did as you showed, It does not work for me

Maybe I do not understand how the unidbnavigator will no what is means, (not sure what #1 refers to)

  JSInterface.JSCode(#1'.owner.uni_dbn_DELETE.setIcon(null);');
  JSInterface.JSCode(#1'.owner.uni_dbn_DELETE.setText("Delete");');

Thanks

[Sherzod]

Can you please make a simple test app and attach here? 

[JohanC]

It works when I use the uningui example project "dbnav.dproj"

I will try to find out why it does not work in my project

Thanks