TUniSyntaxEdit change event.

[eric]

Hello,

 

How to get the change event in the TUniSyntaxEdit component?

 

 

Thanks,

 

~eric

[Sherzod]

Hi eric

 

For now, try:

procedure TMainForm.UniFormCreate(Sender: TObject);
var
  UniSyntaxEditJSName: string;
begin
  UniSyntaxEditJSName := UniSyntaxEdit1.JSName;

  UniSession.AddJS('Ext.onReady(function(){'+
    'var timerEdKeyUp = setInterval(function(){'+
    '  if ('+UniSyntaxEditJSName +'.codeEditor.editor) {'+UniSyntaxEditJSName + '.codeEditor.editor.keyUp = function(e){'+
    '    ajaxRequest('+UniSyntaxEditJSName+', ''_change'', [''codeValue=''+'+UniSyntaxEditJSName+'.codeEditor.getCode()])};'+
    '    clearInterval(timerEdKeyUp)'+
    '  }}, 500)'+
  '})');
end;

procedure TMainForm.UniSyntaxEdit1AjaxEvent(Sender: TComponent;
  EventName: string; Params: TStrings);
begin
  if EventName = '_change' then
  begin
    //ShowMessage(Params.Values['codeValue']);
  end;
end;

Best regards.

[fh80]

on TUniSyntaxEditEx class the change event don't exist too. How can we edit the code above so that we can have this event?

[Sherzod]

54 minutes ago, fh80 said:

on TUniSyntaxEditEx class the change event don't exist too. How can we edit the code above so that we can have this event?

Hello,

Is it just to detect any change, nothing more?

[Sherzod]

If yes:

1. 

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniSyntaxEditEx1.JSInterface.JSAddListener('afterrender', 'function(me){Ext.defer(function(){var editor=me.codeEditor;if(editor){editor.on("change",function(){ajaxRequest(me,"_change",{})})}}, 500)}');
end;

2. 

procedure TMainForm.UniSyntaxEditEx1AjaxEvent(Sender: TComponent;
  EventName: string; Params: TUniStrings);
begin
  if EventName = '_change' then
    ShowMessage('Changed')
end;

 

[fh80]

perfect,

 

thank you