Discussion :

[winow]

Bonjour

Sous Ubuntu avec Lazarus,

J'ai sur ma fiche il y a un composant TSynEdit et un TSynAutoComplete.

J'ai rien trouvé sur le web qui montre simplement comment terminer un mot automatiquement etc..

Pour exemple: comment dans le synedit, quand j'écris <a> le composant SynAutoComplete1 me termine la chaine avec <a></a>.

J'ai rien trouvé dans les propriérés qui pourrait le faire,
c'est pourtant bien sa fonction au SynAutoComplete de terminer une chaine de caractère non ?.

Merci A+

[winow]

Bonjour

Du coup j'ai abandonné le composant SynAutoComplete,

j'ai fait comme ceci pour le moment
mais le problème c'est que ca ne marche que
si on écrit le texte cible qu'en début dune ligne, position ( SelStart a 0 ).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.SynEdit1Change(Sender: TObject);
 
  const Scible: array[1..2] of string = ('<a>', '<b>');
      Sreplace: array[1..2] of string = ('<a></a>', '<b></b>');
        var ix: Integer;
begin
       for ix:= High(Scible) downto Low(Scible) do
       begin
         if SynEdit1.LineText = Scible[ix] then
            SynEdit1.LineText := Sreplace[ix];
       end;
 
end;

[winow]

ce code est un peut mieux sauf qu'il y a un problème du coté de la touche retour,
une fois les caractères effacés jusque <a> ça réécrit </a> ( <a></a> ).

uses StrUtils;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.SynEdit1Change(Sender: TObject);
begin
 
     if AnsiEndsStr('<a>', SynEdit1.LineText) then
        SynEdit1.LineText := SynEdit1.LineText + '</a>'
    else
        SynEdit1.LineText := SynEdit1.LineText;
 
     if AnsiEndsStr('<b>', SynEdit1.LineText) then
        SynEdit1.LineText := SynEdit1.LineText + '</b>'
    else
        SynEdit1.LineText := SynEdit1.LineText;
 
end;

A+

[winow]

j'avais pas mis le code au bon endroit, il fallait le mettre dans SynEdit1KeyPress.

celui ci marche comme je le voulais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.SynEdit1KeyPress(Sender: TObject; var Key: char);
 
  const Scible: array[1..2] of string = ('<a', '<b');
      Sreplace: array[1..2] of string = ('</a>', '</b>');
        var ix: Integer;
begin
       for ix:= High(Scible) downto Low(Scible) do
       begin
         if (AnsiEndsStr(Scible[ix], SynEdit1.LineText)) then
            SynEdit1.LineText := SynEdit1.LineText + Sreplace[ix]
   else
        SynEdit1.LineText := SynEdit1.LineText;
       end;
end;

A+