[TSynEdit] Méthode Undo

Bonjour à tous,

J'utilise un composant TSynEdit pour la saisie de requêtes SQL dans un programme, et il se trouve que le texte ajouté par le programme n'est pas pris en compte par la méthode Undo.

Voici un extrait du code incriminé (le but étant d'insérer automatiquement les noms et les champs des tables à partir de ListBox/ComboBox sans avoir à les taper manuellement) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TMainForm.ListBoxTablesDblClick(Sender: TObject); var Pre: String;// texte avant le curseur Post: String;// texte après le curseur begin SynEditSQL.SetFocus;   Pre := copy(SynEditSQL.Lines[SynEditSQL.CaretY - 1], 1, SynEditSQL.CaretX - 1); Post := copy(SynEditSQL.Lines[SynEditSQL.CaretY - 1], SynEditSQL.CaretX, Length(SynEditSQL.Lines[SynEditSQL.CaretY - 1]));   SynEditSQL.BeginUndoBlock; SynEditSQL.Lines[SynEditSQL.CaretY - 1] := Pre + ListBoxTables.Items[ListBoxTables.ItemIndex] + Post; SynEditSQL.EndUndoBlock;   SynEditSQL.CaretX := Length(SynEditSQL.Lines[SynEditSQL.CaretY - 1]) + 1; SynEditSQL.Modified := True; end;

---

J'ai essayé de délimiter les modifications avec les propriétés BlockBegin et BlockEnd, sans plus de succès: la méthode Undo efface le texte situé aux endroits saisis manuellement, ignorant les insertions de la procédure ci-dessus.

Quid ? :?

Il ne faut pas travailler sur la propriété Lines ou Lines.Text pour que le Undo soit géré.

Il ne faut utiliser que les propriété SelStart, SelEnd et SelText.

Par exempl pour insérer du texte :

Code:

---

1 2	SynEdit1.SelStart := PositionOuJeVeuxInserer; SynEdit1.SelText := 'le texte insréré';

---

Çà semble tellement simple une fois qu'on a la solution :? Merci ! :wink:

Par contre, pour avoir la valeur de SelStart à partir de la position du curseur, il y a un moyen simple et rapide ? Là j'utilise pos, il y a sûrement mieux :roll:

J'ai bien trouvé cette méthode, mais elle ne semble pas fonctionner (elle reste sur la première ligne) :

Code:

---

1 2	SynEditSQL.SelStart := SynEditSQL.Perform(EM_LINEINDEX, SynEditSQL.CaretY - 1, 0) + SynEditSQL.CaretX - 1; SynEditSQL.SelText := ListBoxTables.Items[ListBoxTables.ItemIndex];

---

A partir de la position du curseur ????

Mais quand tu cliques dans le SynEdit ou si tu te déplaces avec les flèches, SelStart est automatiquement à jour avec la bonne valeur. Tu n'as donc rien à calculer, juste faire SelText=' le texte à insérer';

Aïe, c'est dur de reprendre le Delphi après être passé par le C... *se sent bête*

Merci à toi, c'est impeccable :)