Discussion :

[Speed41]

Bonjour,

Comment connaître la position (ligne, colonne) dans un TRichEdit en fonction de sa position x, y en pixel donné lors d'un évènement "onmousemove" par exemple ?

J'ai trouvé ces codes mais cela ne correspond pas complètement

Code :

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

1
2
3
4
5
6
function ClientPosToCharIndex(AnEdit: TCustomEdit; ClientPos: TPoint): Integer;
              var lParam: Integer;
              begin
                lParam:= Integer(@ClientPos);
                result:= AnEdit.Perform(EM_CHARFROMPOS, 0, lParam);
              end;

Par avance merci de votre aide

[ShaiLeTroll]

La Propriété publique CaretPos du TRichEdit ne serait-elle pas suffisante ?

Il y a aussi GetCaretPos de l'API, qui doit faire la même chose que EM_CHARFROMPOS si le Memo a le Focus !

Quel est le problème ?
GetCaretPos donne une position fixe dans le Memo, même si tu as défilé plusieurs pages !
Voir EM_LINEFROMCHAR et EM_LINESCROLL

[Speed41]

Bonjour

Merci pour CaretPos mais cela ne convient pas, il faut cliquer dans le TRichEdit alors que je veux juste promener ma sourie dessus
J'ais donc :

Code :

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

MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);

Et avec ces coordonnées (x,y) je voudrais connaître ma position ligne, colonne dans mon TRichEdit. Il ne faut pas que je change le texte sélectionné ou la position de mon curseur dans mon texte

Merci d'avance

[ShaiLeTroll]

Tu as le résultat de EM_CHARFROMPOS

The return value specifies the character index in the low-order word and the line index in the high-order word.

je changerais ta fonction ClientPosToCharIndex comme ci

Code :

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

1
2
3
4
5
6
function ClientPosToCharIndex(AnEdit: TCustomEdit; ClientPos: TPoint): TSmallPoint;
              var lParam: Integer;
              begin
                lParam:= Integer(@ClientPos);
                result:= TSmallPoint(AnEdit.Perform(EM_CHARFROMPOS, 0, lParam));
              end;

[Speed41]

Merci

Ca fonctionne mieux mais le numéro de ligne est toujours à 0 et la colonne n'est autre que le n° caractère du memo

[ShaiLeTroll]

utilise un Perform avec EM_LINEFROMCHAR et lui passant la position fourni par EM_CHARFROMPOS

J'ai retrouvé l'origine du source, effectivement le EM_CHARFROMPOS fonctionne différemment pour un TMemo et un TRichEdit (pour ce dernier, il ne faut pas caster en TSmallPoint)