TIDEMemo : Wait cursor while code completion invoking

[Fab]

I have use not far away to 1000 hundred libraries with TMS Scripter and it's work like a charm.
But on, especially on slow computers, code completion can take some time to be displayed.
So does it exists a way to have a wait cursor or a progress bar when the completion list is building ?

[wlandgraf (Wagner Landgraf)]

There is no straightforward way to do so.
Maybe you a try setting some events in the memo from the OnCreateEditor event. For example, in the ScripterProIDE demo, in the OnCreateEditor method, you can try to add the following code:

    IDEEngine1.Memo.OnBeforeAutoCompletion := BeforeAutoCompletion;
    IDEEngine1.Memo.OnGetAutoCompletionListIndex := AfterAutoCompletion;

And the events can be something like this:

    procedure BeforeAutoCompletion(Sender: TObject; AToken: string; var Show: Boolean);
    procedure AfterAutoCompletion(Sender: TObject; AToken: string; AList: TStringList; var AIndex: integer);


procedure TForm1.AfterAutoCompletion(Sender: TObject; AToken: string; AList: TStringList; var AIndex: integer);
begin
  Screen.Cursor := crDefault;
end;

procedure TForm1.BeforeAutoCompletion(Sender: TObject; AToken: string; var Show: Boolean);
begin
  Screen.Cursor := crHourGlass;
end;

[Fab]

Thank you Wangner it's work fine !