Unicode / two UniMemo ?

[Abaksoft]

Good morning Sirs,

- I have two UniMemo on mainForm

- One for English text editing and one for Arabic.

- No need internationalization components here. Just changing Font (ENg / Arabic)  for editing.

Someone has an idea ?

Big Thx...

______________________

See attachment Project1

 

 

Unicode_ENG_ARABIC.zip

[Sherzod]

14 minutes ago, Abaksoft said:

Just changing Font (ENg / Arabic)  for editing

Hi,

Can you please explain this moment?

[Sherzod]

If you want to change the keyboard layout on the client side, you won't be able to do it.

"But you can capture the keydown event and replace the character with something like this":

https://jsfiddle.net/xpvt214o/430815/

https://stackoverflow.com/questions/51367824/change-input-text-language-at-focus-if-rtl

https://stackoverflow.com/questions/11426969/change-keyboard-layout-with-javascript

[Abaksoft]

Thank you Maestro,

That is exactly what i am looking for.

All  the Best...:)

[Abaksoft]

Sorry Sherzod,

How to return a letter like this  :

function keydown(sender, e, eOpts)
{
    if( e.keyCode == 89 ){
      e.preventDefault();
    //   $(this).append('غ').focus();
      return 'غ'
    }
}

Here, i want to change the   y   letter  by    غ

not work !

[Sherzod]

Ok I will check. 

[Sherzod]

2 hours ago, Abaksoft said:

Here, i want to change the   y   letter  by    غ

Sorry, maybe this is not the best solution, but try.

1. MainForm -> Script, add this:

Ext.form.field.TextArea.prototype.insertAtCursor = function(txt) {
    var val = this.value,
        start = this.inputEl.dom.selectionStart,
        end = this.inputEl.dom.selectionEnd;

    this.setValue(val.substring(0, start) + txt + val.substring(end));
    this.inputEl.dom.selectionStart = this.inputEl.dom.selectionEnd = start + 1;
    Ext.defer(function() {
        this.focus(false);
    }, 10);
}

http://forums.unigui.com/index.php?/topic/10678-unimemo-insert-text/&do=findComment&comment=56242

2. UniMemo.ClientEvents.ExtEvents ->

function keydown(sender, e, eOpts)
{
    if( e.keyCode == 89 ){
      this.insertAtCursor('غ');
      e.preventDefault();                 
    }                  
}

 

[Abaksoft]

Thank you Maestro for your effort.

i will check it tomorrow...

[Sherzod]

7 minutes ago, Abaksoft said:

i will check it tomorrow...

OK, np. Thanks

[Abaksoft]

Good morning Sherzod,

Sorry, when i put the Script on Main ->  no launch application  "Loading..."   !?

Ext.form.field.TextArea.prototype.insertAtCursor = function(txt) {
    var val = this.value,
        start = this.inputEl.dom.selectionStart,
        end = this.inputEl.dom.selectionEnd;

    this.setValue(val.substring(0, start) + txt + val.substring(end));
    this.inputEl.dom.selectionStart = this.inputEl.dom.selectionEnd = start + 1;
    Ext.defer(function() {
        this.focus(false);
    }, 10);
}

any idea ?

____________________________________________________

FMSoft_uniGUI_Complete_Professional_1.90.0.1514

Delphi 10.3.3 Pro 

Windows 10 Pro 64/bit

[Sherzod]

1 hour ago, Abaksoft said:

when i put the Script on Main -> 

MainForm.Script ?

[Sherzod]

1 hour ago, Abaksoft said:

no launch application  "Loading..."   !?

Please check your browser console, what errors do you see?

[Sherzod]

Try this:

Ext.form.field.TextArea.prototype.insertAtCursor = function(txt) {
    var val = this.value,
        start = this.inputEl.dom.selectionStart,
        end = this.inputEl.dom.selectionEnd;

    this.setValue(val.substring(0, start) + txt + val.substring(end));
    this.inputEl.dom.selectionStart = this.inputEl.dom.selectionEnd = start + 1;
    Ext.defer(function() {
        this.focus(false);
    }, 10);
}

 

[Abaksoft]

That  works  fine  Maestro !

Thank you very much 

[Abaksoft]

Hello Sherzod,

Is it possible to retreive a variable (from MainForm)  and get it on an UniMemo > ClientEvents > ExtVents  (keydown)  ?

Some thing like :

function keydown(sender, e, eOpts)
{
 var W=Main.MainForm.myVariable;

 if (W == 2) {
   Do something...
  }                        
}

Thx.

[Sherzod]

Yes... Have you tried? 

[Abaksoft]

yes, without success

[Sherzod]

8 hours ago, Abaksoft said:

Main.MainForm.myVariable;

Or do you mean like this?

For example:

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  Self.WebForm.JSInterface.JSAssign('myVariable', [0]);
end;

procedure TMainForm.SetMyVariable...
begin
  ...
  Self.WebForm.JSInterface.JSAssign('myVariable', [Value]);
  ...
end;

function keydown(sender, e, eOpts) { 
    var W=MainForm.window.myVariable;
    ...

 

 

[Abaksoft]

16 hours ago, Sherzod said:

Or do you mean like this?

For example:

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  Self.WebForm.JSInterface.JSAssign('myVariable', [0]);
end;

procedure TMainForm.SetMyVariable...
begin
  ...
  Self.WebForm.JSInterface.JSAssign('myVariable', [Value]);
  ...
end;

function keydown(sender, e, eOpts) { 
    var W=MainForm.window.myVariable;
    ...

 

 

Good morning Sherzod,

Yes like this, but I would not abuse your kindness :  it does'nt work ?!

Here is in attachment a test case.  (It's not urgent)

Thx.

Test_Variable.zip

[Sherzod]

57 minutes ago, Abaksoft said:

Yes like this, but I would not abuse your kindness :  it does'nt work ?!

Hi,

  var W = Mainform.window.myVariable;  // <--- is not recognized here !?

As you know, JS is case sensitive.

Correct: Mainform -> MainForm

  var W = MainForm.window.myVariable;

 

[Abaksoft]

Greate Support Maestro !

Works fine (Every time I forget JavaScript CaseSensitive).

Thank you very much and sorry again for your week end rest.

[Sherzod]

Thank you, it was all OK.

[Abaksoft]

For all unigueers who are interested,

there is a sample demo in :

 

 

Best regards