POSITION DU CURSEUR ( LIGNE ET COLONNE ) DANS UN MEMO OU UN RICHEDIT
Utilisateur anonyme
-
8 juil. 2003 à 12:27
ffert Messages postés 63 Date d'inscription samedi 18 janvier 2003 Statut Membre Dernière intervention 15 décembre 2009 - 27 déc. 2011 à 15:46
ffert Messages postés 63 Date d'inscription samedi 18 janvier 2003 Statut Membre Dernière intervention 15 décembre 2009 - 27 déc. 2011 à 15:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12644-position-du-curseur-ligne-et-colonne-dans-un-memo-ou-un-richedit
https://codes-sources.commentcamarche.net/source/12644-position-du-curseur-ligne-et-colonne-dans-un-memo-ou-un-richedit
27 déc. 2011 à 15:46
27 déc. 2011 à 15:26
var
Ligne : integer; // numéro de la ligne ou se trouve le curseur
begin
// position du curseur (+ 1 : première ligne = 0)
Ligne := 1 + SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
end;
27 déc. 2011 à 14:59
la position Y est toujours comprise entre 0 et 983 y compris si je me trouve à la 80 000 ème ligne....
comment obtenir la vraie position ???
merci
29 juil. 2003 à 21:55
J'ai apporté les modifications nécessaires dans le code affiché.
Dans le zip j'y ai mis ton code en modifiant les noms des arguments, qui sont trop proche des noms de composants existants (risque de confusion pour les débutants).
et merci aussi à crazyjoke pour son commentaire.
29 juil. 2003 à 09:54
Remarque : lors de la création de la fiche, tu passes à PosCurseur le paramètre Sender reçu par la méthode Create. C'est dangereux et heureusement que tu ne l'utilises pas dans ta procédure.
Suggestions :
procedure PosCurseur(Memo: TCustomMemo; Panel: TStatusPanel);
var
ligne, colonne : integer;
Affichage : string;
begin
//Récupère la position de la colonne
colonne := Memo.CaretPos.X + 1 ;
//Récupère la position de la ligne
ligne := Memo.CaretPos.Y + 1 ;
//Ajoute le texte "lig" et "col" pour l'affichage dans le Panel d'un StatusBar
Affichage := 'Lig ' + IntToStr(ligne) + ' : Col ' + IntToStr(colonne);
//Affiche le texte finale dans le Panel d'un StatusBar
Panel.Text := Affichage;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
PosCurseur(RichEdit1, StatusBar1.Panels.Items[0]);
end;
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
PosCurseur(Sender as TCustomMemo, StatusBar1.Panels.Items[0]);
end;
Ceci permet de rendre la procédure PosCurseur indépendante, facilement réutilisable et de ne pas lui passer n'importe quoi comme arguments. En transmettant un TCustomMemo comme premier argument, tu couvres donc aussi bien le TMemo que le type TRichEdit puisqu'il s'agit de leur ancêtre commun.
En tous cas, merci de ne nous avoir révélé cette astuce.
28 juil. 2003 à 22:59
28 juil. 2003 à 19:43
Pourtant, si tu fait le test, tu verra que l'on obtient bien le numéro de ligne et de colonne du curseur.
27 juil. 2003 à 23:49
"Utilisez CaretPos pour déterminer les coordonnées du curseur. Le type TPoint définit un emplacement sur l'écran exprimé en pixels, l'origine étant l'angle supérieur gauche. X spécifie la coordonnée horizontale du point et Y la coordonnée verticale. CaretPos indique la position X et Y relative à l'origine client du mémo.
Afin de déterminer la position du signe insertion en termes de caractères de texte uniquement (plutôt qu'en emplacement X/Y), utilisez la propriété SelStart."
Si les autres codes sources utilisent les messages Windows, ce n'est pas pour se faire plaisir mais pour obtenir directement les coordonnées du curseur en ligne et colonnes de Texte au lieu de les obtenir en coordonnées graphiques.
8 juil. 2003 à 12:27
@++