Position de la souris dans un TMemo

Version imprimable

22/05/2012, 10h21
ChPr

Position de la souris dans un TMemo

Bonjour à toutes et à tous,

Il me semble avoir vu, mais je n'arrive pas à retrouver comment convertir la position de la souris (X, Y en pixels) en position curseur (Y = N° de ligne et X = N° du caractère depuis le début de la ligne).

Merci de votre aide.

Pierre
23/05/2012, 13h07
tintinux
Bonjour

SelStart donne la position du curseur dans la chaine, sans donner directement le numéro de ligne.

Si c'est indispensable, on peut assez facilement recalculer l'indice de la ligne, au moins en itérant sur les Lines, à moins qu'il existe une fonction que j'ignore.
Code:

1 2 3 4 5 6 procedure TForm10.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin showmessage(inttostr(Memo1.SelStart)); end;
23/05/2012, 14h05
ChPr

Citation:

Envoyé par tintinux

... SelStart donne la position du curseur dans la chaine, sans donner directement le numéro de ligne....

Le problème est que je veux être indépendant de la position du curseur texte.

En fait, ce que je souhaiterais faire est la chose suivante: dans un lzRichEdit ( descendant de TMemo), je voudrais que lorsque la souris passe au-dessus d'un texte particulier ( une URL par exemple), le curseur de la souris change de forme. Ensuite, si je clique sur ce texte, une action particulière se passe (ouverture du lien dans un navigateur dans le cas d'un URL).

Bien sûr, quelque soit la position du curseur de texte.

NOTA, cette fonction doit exister de manière intrinsèque. En effet, le curseur texte étant à un endroit donné, si on amène la souris à un autre endroit et que l'on clique à cet endroit, le curseur texte y va. Il se passe donc bien une conversion du point X,Y en pixels de la souris en position LC (Ligne, Caractère) du texte.

Cordialement.

Pierre
24/05/2012, 11h17
tourlourou

http://www.developpez.net/forums/d24...o/#post1545675 donne une piste, mais n'est peut-être pas portable en dehors de Windows
24/05/2012, 15h54
ChPr

Merci tourlourou pour ce lien.

Je l'avais déjà vu et j'avais appliqué ce qu'il propose: ça ne fonctionne pas sous Windows, pas plus sous Linux.

Merci quand même ;).

Cordialement.

Pierre
24/05/2012, 16h39
Jipété

Citation:

Envoyé par ChPr

(...) ça ne fonctionne pas sous Windows, (...)

Effectivement, j'ai essayé aussi, et c'est un peu n'importe quoi comme indications affichées, surtout si on se déplace avec les flèches... :aie:

Maintenant, pour répondre à ta question d'origine (URL cliquable dans un RichEdit), tu devrais jeter un œil ici, ça a l'air de faire ce que tu veux !

Je ne peux pas tester, je n'ai pas le composant installé 8O
24/05/2012, 19h23
ChPr
Citation:

Envoyé par Jipété

... Maintenant, pour répondre à ta question d'origine (URL cliquable dans un RichEdit), tu devrais jeter un œil ici, ça a l'air de faire ce que tu veux ! ...

C'est du Delphi. J'ai bien peur que cela ne fonctionne pas avec Lazarus sous Windows et pire, sous Linux, mais j'essaierai.

Pour autant, mon problème n'est pas :
- de mettre en évidence un texte particulier (une URL, ...)
- de lancer une action sur un click sur ce texte particulier (ouvrir le navigateur sur l'URL correspondante, ...)
non, il est tout c.n ;) :cry::
- détecter que la souris passe au-dessus de ce texte pour par exemple, changer la forme du curseur de la souris.
Cela revient à faire la correspondance entre la position X, Y en pixels de la souris avec la position dans le texte (SelStart) du caractère qu'elle survole.

Cordialement.

Pierre
24/05/2012, 19h33
tourlourou

pour faire "crade" : doubler le memo d'un autre qui sera invisible, répliquant tous les scrolls, et sur lequel tu setteras le curseur en fonction de la position de la souris dans le 1° pour avoir la "conversion."

je n'ai pas vu de fonction utilisée en interne, car ça doit se jouer au KeyUp et être réalisé par l'OS...
24/05/2012, 19h49
ChPr

Citation:

Envoyé par tourlourou

... tu setteras le curseur en fonction de la position de la souris ...

Ben c'est justement ça que j'aimerais savoir faire !

Citation:

Envoyé par tourlourou

... je n'ai pas vu de fonction utilisée en interne, car ça doit se jouer au KeyUp et être réalisé par l'OS...

Le changement se fait sur le MouseDown et effectivement, je pense que c'est l'OS qui s'en charge.

Cordialement.

Pierre

Bonsoir,

Citation:

Envoyé par ChPr

(...) non, il est tout c.n ;) :cry::

détecter que la souris passe au-dessus de ce texte pour par exemple, changer la forme du curseur de la souris.
(...)

Ah.
Parce que dans le post #3 on peut lire :

Citation:

En fait, ce que je souhaiterais faire est la chose suivante: dans un lzRichEdit ( descendant de TMemo), je voudrais que lorsque la souris passe au-dessus d'un texte particulier ( une URL par exemple), le curseur de la souris change de forme. Ensuite, si je clique sur ce texte, une action particulière se passe (ouverture du lien dans un navigateur dans le cas d'un URL).

Citation:

Envoyé par ChPr

C'est du Delphi. J'ai bien peur que cela ne fonctionne pas avec Lazarus sous Windows et pire, sous Linux, mais j'essaierai.(...)

Bah, avec un peu de prise de tête on devrait pouvoir y arriver, enfin j'espère, car comme je le disais cet après-midi, je n'ai pas de composant RichEdit sous Lazarus (et un peu la flemme d'en chercher un, l'installer, toussa toussa... :P), et les codes trouvés pour le TMemo ne fonctionnent pas bien.
Cependant, le code ci-après fonctionne tip-top avec un RichEdit sous D7 : détection ligne, colonne, caractère et mot !
Enjoy,
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 55 56 var WordInRE : string; function ClientPosToCharIndex(AnEdit: TCustomEdit; ClientPos: TPoint): Integer; var lParam: Integer; begin lParam:= Integer(@ClientPos); // result:= TSmallPoint(AnEdit.Perform(EM_CHARFROMPOS, 0, lParam)); // si TMemo result:= AnEdit.Perform(EM_CHARFROMPOS, 0, lParam); // si TRichEdit end; procedure TForm1.RichEdit1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) ; var caract: char; ligne, colonne: integer; Affichage: string; // delphi.about ci, //Character Index lix, //Line Index co, //Character Offset k, j: Integer; Pt: TPoint; s: string; begin //Récupère la position de la colonne colonne := RichEdit1.CaretPos.X+1; //Récupère la position de la ligne ligne := RichEdit1.CaretPos.Y; //Ajoute le texte "lig" et "col" pour l'affichage dans le Panel d'un StatusBar Affichage := 'Ln : ' + IntToStr(ligne) + ' Col : ' + IntToStr(colonne); //Affiche le texte final dans le Panel d'un StatusBar stb.Panels.Items[0].Text := Affichage; stb.Panels.Items[1].Text := 'Car : '+RichEdit1.Lines.Text[ClientPosToCharIndex(RichEdit1, Point(X+3, Y))];//retourne le caractère RichEdit1.SelStart:=(ClientPosToCharIndex(RichEdit1, Point(X-3, Y))); RichEdit1.SelLength:=0; // pour récupérer le mot entier, vient de delphi.about with TRichEdit(Sender) do begin Pt := Point(X, Y) ; ci := Perform(Messages.EM_CHARFROMPOS, 0, Integer(@Pt)) ; if ci < 0 then Exit; lix := Perform(EM_EXLINEFROMCHAR, 0, ci) ; co := ci - Perform(EM_LINEINDEX, lix, 0) ; if -1 + Lines.Count < lix then Exit; s := Lines[lix]; Inc(co) ; k := co; while (k > 0) and (s[k] <> ' ') do k:=k-1; Inc(co) ; j := co; while (j <= Length(s)) and (s[j] <> ' ') do Inc(j) ; WordInRE := Copy(s, k, j - k) ; end; stb.Panels.Items[2].Text := WordInRe; end;
"stb" c'est un StatusBar avec 3 Panels.

Y a des bouts qui viennent de Delphi.About.com, et d'autres de DVLP, :ccool:
Le changement de curseur est dans le lien donné cet après-midi.

Et pour le Memo, ça a l'air d'être la misère, en D7 aussi...

Bonne fin de soirée,

25/05/2012, 10h31
ChPr

Citation:

Envoyé par Jipété

... Ah.
Parce que dans le post #3 on peut lire : ...

Je dis bien deux fois la même chose. Ce que je veux dire par c'est tout c.n, est que l'énoncé du problème est simple, mais pas sa solution ;) .

Je te remercie beaucoup pour le morceau de code que tu m'as concocté. Pour autant il ne donne aucun résultat avec Lazarus. Que je me promène avec la souris au-dessus du texte ou que j'y clique et en sélectionne un tronçon.

Le problème vient du faite que l'instruction :

Code:

result:= AnEdit.Perform(EM_CHARFROMPOS, 0, lParam);

retourne en permanence 0 sous Lazarus. C'est la raison pour laquelle j'avais déjà dit que l'exemple DELPHI ne fonctionnait pas.

Je te remercie quand même ;) .

Si le composant lzRichEdit intéresse quelqu'un, il se trouve là :

http://lazarus-br.googlecode.com/fil...28-10-2011.zip

Si on ne cherche pas a faire des trucs bizarres comme moi, l'exemple qu'ils donnent fonctionne parfaitement aussi bien sous Windows que sous Linux.

Cordialement.

Pierre

Bonjour,

Citation:

Envoyé par ChPr

(...) Le problème vient du fait que l'instruction :

Code:

result:= AnEdit.Perform(EM_CHARFROMPOS, 0, lParam);

retourne en permanence 0 sous Lazarus. C'est la raison pour laquelle j'avais déjà dit que l'exemple DELPHI ne fonctionnait pas. (...)

Exact, et désolé.
C'est un peu la misère ce truc...
J'ai pu lui faire "cracher" des infos en modifiant un poil la fonction ClientPosToCharIndex,
Code:

1 2 3 4 5 6 7 8 function ClientPosToCharIndex(AnEdit: TCustomEdit; ClientPos: TPoint): Integer; var lParam: Integer; begin // lParam:= Integer(@ClientPos); // Delphi lParam:= Integer(ClientPos.X); // Lazarus et lzRichedit // result:= TSmallPoint(AnEdit.Perform(EM_CHARFROMPOS, 0, lParam)); // si TMemo result:= AnEdit.Perform(EM_CHARFROMPOS, 0, lParam); // si TlzRichedit end;
et en désactivant toute la partie with TlzRichEdit(Sender) do mais c'est encore pas ça : faut cliquer puis bouger la souris pour que ça affiche correctement ligne et colonne... Je ne te serai pas d'un grand secours sur ce coup-là.

Merci pour la source, j'ai pu l'installer, :ccool:

Bon week-end,