Discussion :

[raskolnikov]

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 :

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

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 ?

[Nono40]

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 :

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

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

[raskolnikov]

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

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

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

Code :

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

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

[Nono40]

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';

[raskolnikov]

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