[Lazarus] Utilisation de TsynAutoComplete

Bon, je me réponds:

Il y a bien une syntaxe à respecter dans la AutoCompleteList c'est:

mot1
=texte de remplacement de mot1
mot2
=texte de remplacement de mot2 ...etc

Mais en réalité je me suis rendu que ce n'était pas cela que je cherchais, c'est le TsynCompletion, il est dans la même unité que TsynAutoCompletion mais ne figure pas dans la barre des SynEdit. il faut donc le déclarer et l'initialiser à la main dans le source. On remplit la ItemList (TStrings) avec les expressions que l'on veut proposer, on déclare l'éditeur TCustomSynEdit utilisé, ainsi qu'un raccourci, par exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit Macro;
{$MODE Delphi}
interface
uses
  SysUtils, Classes, LcLType,
  Graphics, Controls, Forms, Dialogs, StdCtrls,
  analyse4, LResources, Buttons, SynEdit, SynCompletion;
type
  { TMacroForm }
  TMacroForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Memo1: TSynEdit;                       // <- c'est l'éditeur
    SynAnySyn1: TSynAnySyn;         // <- pour la colorisation personnalisée
    Completion:TSynCompletion;      // <- pour proposer la complétion
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    function Valider: Boolean;
  end;
 
implementation
 
procedure TMacroForm.FormCreate(Sender: TObject);
var aux:string;
begin
     Completion:=TSynCompletion.Create(self);
     Completion.Editor:=Memo1;
     Completion.ShortCut:=VK_F2;
     Completion.ItemList.add('Arc( )');
     Completion.ItemList.add('Axes( )');
     Completion.ItemList.add('Bezier( )');
     Completion.ItemList.add('Cercle( )');
     Completion.ItemList.add('Courbe( )');
     Completion.ItemList.add('Droite( , )');
     Completion.ItemList.add('EquaDif( )');
     Completion.ItemList.add('Grille( )');
     Completion.ItemList.add('Implicit( )');
     Completion.ItemList.add('Label( )');
     Completion.ItemList.add('Ligne( , )');
     Completion.ItemList.add('Path( )');
     Completion.ItemList.add('Point( )');
     Completion.ItemList.add('Spline( )');
     Completion.ItemList.add('Surface( )');   
...etc

A l'utilisation, le raccourci permet l'ouverture d'une petite fenêtre avec l'expression la plus proche de ce que l'on vient de saisir.