Obtenir les coordonnées d'un curseur (RichEdit)

Version imprimable

06/06/2007, 19h01
Galip

Obtenir les coordonnées d'un curseur (RichEdit)

Bonjour,

J'ai un petit problème, j'aimerais connaître la position du curseur dans un
RichEdit.

Actuellement je développe une application, et je voudrais faire une petite fenetre qui s'ouvre lorsque l'on presse ctrl+space ( un peu comme dans Bcb et pas mal d'autre IDE).

Le seul souci c'est qu'il faudrait que je connaisse la position du curseur afin de positionner la fenetre juste à côter de celui-ci.

Merci d'avance. ;)
06/06/2007, 19h21
blondelle
Salut Galip:
Une possibilite:
Un TRichEdit deux TLabel double click dans l'evenement OnMouseMove du TRichEdit le code a inserer
Code:

1 2 3 4 5 6 7 void __fastcall TForm1::RichEdit1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { Label1->Caption = X; Label2->Caption = Y; }
Ca peut se faire sur un autre evenement Mouse
06/06/2007, 19h40
Galip

Merci de ta réponse,

Le seul souci c'est qu'avec l'événement OnMouseMove, j'ai la position de la souris et ce qu'il me faudrais c'est la position du curseur.

Salut,

Tu peux faire ceci dans le OnKeyUp ou encore OnKeyPress ... :
Code:

1 2 3 4 5 void __fastcall TForm1::RichEdit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift) { ShowMessage(IntToStr(RichEdit1->SelStart)); // Affiche la position du caret }
J'espère avoir bien saisi le sens de ta question
@+ ;)

EDIT:

Ce code est peut être plus dans ce que tu souhaites faire je pense :
Code:

1 2 3 4 5 void __fastcall TForm1::RichEdit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift) { ShowMessage("X:"+IntToStr(RichEdit1->CaretPos.x)+", Y:"+IntToStr(RichEdit1->CaretPos.y)); }

06/06/2007, 21h54
Galip

Merci beaucoup ton code marche nikel.

C'est clair et efficace :king:

Citation:

Envoyé par Galip

Merci beaucoup ton code marche nikel.

C'est clair et efficace :king:

Merci ! :mrgreen:

Par contre, j'arrive pas à positionner un bouton à l'endroit du Caret!
Le soucis, c'est la conversion de données ...

J'ai ce code mais en vain :

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
void __fastcall TForm1::Cliquer(TObject *Sender)
{
  TButton *BoutonCliquer = (TButton*)Sender;
  BoutonCliquer->Visible=False;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TPoint a= ClientToScreen(RichEdit1->CaretPos);
 TButton *MyButton = new TButton(this);
 MyButton->Parent=this;
 MyButton->Left = a.x + MyButton->Width /2;
 MyButton->Top = a.y + MyButton->Height;
 MyButton->OnClick=Cliquer;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 TPoint a= ClientToScreen(RichEdit1->CaretPos);
ShowMessage(IntToStr(a.x)+" "+IntToStr(a.y));
}
//---------------------------------------------------------------------------

Si jamais tu as réussi, je suis prenant ;)

06/06/2007, 22h17
Sunchaser

Bonsoir,

Je pense ( pas sur et je vais vérifier ) que c'est parceque l'Edit ou le RichEdit perds son Focus lorsque tu passes dans l'évènement OnClick() du TButton.
Donc en qq sorte, adieu CaretPos et cie ...

Tiens, c'est marrant ca, je vais jeter un oeil ( un seul, parceque j'en ai plus que deux ).

;)
06/06/2007, 22h43
ero-sennin

Merci Sunchaser de venir nous aider!

Je pense que je devrais ouvrir un autre post , qu'en penses tu ?

Sinon, je récupère bien les coordonnées du RichEdit, mais lorsque l'on passe à la ligne dans le RichEdit, je ne bouge que d'un pixel en Y et je ne pense pas que ça soit vraiment le cas ... Pareil en X.

C'est une chose qui m'intéresse !
;)
06/06/2007, 22h46
Sunchaser

Bonsoir,

Heu .... ben j'ai l'impression que ca va être bien casse-pied a faire ca ! :mrgreen:

(Impression a chaud apres un premier test ...)
06/06/2007, 23h06
Galip

Je vois que la conversation se poursuit :P

Pour te dire franchement, j'ai tester ton code et j'ai vu que sa fonctionnait alors je me suis dit que je ferais sa demain ^^.

Donc si demain tout fonctionne je vous mettrez le code.

Bonsoir.

Bonsoir,

Bon en observant mon chien, lors de sa petite sortie nocturne, en train de faire caca sur le trottoir du voisin, j'ai eu une petite idée:

. dans le .H:
Code:

1 2 3 private: TPoint EdPoint;
. dans le .CPP:
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 void __fastcall TForm2::RichEdit1Click(TObject *Sender) { GetCaretPos(&EdPoint); } //--------------------------------------------------------------------------- void __fastcall TForm2::RichEdit1Change(TObject *Sender) { GetCaretPos(&EdPoint); } //--------------------------------------------------------------------------- void __fastcall TForm2::RichEdit1Enter(TObject *Sender) { GetCaretPos(&EdPoint); } //--------------------------------------------------------------------------- void __fastcall TForm2::Button31Click(TObject *Sender) { TButton *mb = new TButton(this); mb->Parent = RichEdit1; mb->Left = EdPoint.x; mb->Top = EdPoint.y; mb->Width = 15; mb->Height = 15; } //---------------------------------------------------------------------------
Maintenant ca a l'air de placer le button aux bonnes coordonnées, mais - histoire de jouer - un autre petit problème apparait:
ca écrase le texte en certains endroits, plus qu'il ne le faudrait par rapport a la taille du button en tout cas...

A voir donc.
@ + ;)

(au fait, j'ai pas l'impression que ce soit le caca du chien qui m'inspire, mais plutôt l'air frais de la nuit ... :mrgreen: )

07/06/2007, 00h47
ero-sennin

Je viens de tester ton code et pour la position du bouton c'est niquel !

Bon si on regarde bien, on dirait qu'il y a une copie du "canvas" ...
Si tu regardes, tu écris tu textes, tu cliques sur le bouton qui affiche un nouveau bouton dans le RichEdit, tu positionnes du Caret juste avant le bouton et tu t'amuses à faire ENTRER, tu verras que le dessin du bouton se copie ...

Je suis pas du tout calé dans ce genre de chose, et je crains que je ne puisse que constater tes progrès ....

Je chercherai encore un peu, là je vais au dodo ;)
07/06/2007, 00h54
Sunchaser

Idem ...

Bonne nuitée:coucou:

J'ai peut être trouvé! Il faut changer le repère et ne pas prendre le RichEdit comme parent du TButton que l'on va créer, mais la form!

On a donc ceci :
Code:

1 2 3 4 5 6 7 8 9 void __fastcall TForm1::Button1Click(TObject *Sender) { TButton *mb = new TButton(this); mb->Parent = this; mb->Left = RichEdit1->Left+EdPoint.x + 3; mb->Top = RichEdit1->Top+EdPoint.y + 3; mb->Width = 15; mb->Height = 15; }
Je ne pense pas que cela change quoique ce soit puisque après, le bouton se détruit ;)

Qu'en dis- tu?

Oui je viens de tester ta solution, sa marche nikel.

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
void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
 
   GetCaretPos(&EdPoint);
   if(Form2->Showing)
   {
         Form2->Left = RichEdit1->Left+EdPoint.x + 3;
         Form2->Top=RichEdit1->Top+EdPoint.y + 3-Form2->Height;
   }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RichEdit1Enter(TObject *Sender)
{
GetCaretPos(&EdPoint);        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  Form2->Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
 
        if(GetAsyncKeyState(VK_CONTROL)!=0 && GetAsyncKeyState(VK_SPACE)!=0)
        {
             Form2->Show();
             Form2->Parent=this;
             Form2->Left=RichEdit1->Left+EdPoint.x + 3;
             Form2->Top=RichEdit1->Top+EdPoint.y + 3-Form2->Height;
             Form2->ListBox1->SetFocus();
             btncreer=true;
        }
}

J'ai fait une Form2 sans bordure et avec une ListBox,
j'ai encore une petite question pour ajouter du texte dans le RichEdit j'utilise ce code :

Code:

Form1->RichEdit1->Lines->Add(ListBox1->Items->Strings[ListBox1->ItemIndex]);

Seulement, le texte ajouter est mis à la ligne suivante, comment faire pour que le texte ajouter se rajoute au bout de la ligne courrante ?

Merci d'avance.

07/06/2007, 13h32
ero-sennin

Salut,

Je n'ai pas BCB sous la main, mais je peux te donner une méthode pour l'ajout :

1) On stocke dans une variable tout le text avant le curseur;
2) On stocke dans une autre variable tout le texte après le curseur (au cas ou il y aurai déjà du texte après)
3) Lorsque tu sélectionne le texte de ton menu, tu fais :
RichEdit.text = Variable1 + MotDuListBox + Variable 2;

C'est vraiment une piste sans pour autant que celà fonctionne !
J'essaierai de voir cela ce soir!

@+ ;)
07/06/2007, 14h15
Galip
Merci beaucoup pour ton idée,

D'ailleurs tu m'en a donnée une autre :P

Voila :
Code:

1 2 AnsiString texte=ListBox1->Items->Strings[ListBox1->ItemIndex]; Form1->RichEdit1->SelText=texte;
SelText sa te permet d'insérer du texte à l'endroit ou est positionner le curseur.

A+ et merci beaucoup pour ta participation.
07/06/2007, 15h47
ero-sennin

Ba de rien, ce fut un plaisir de participer à ce sujet!!

J'ai encore appris différentes choses grâce à cela et j'avoue que c'était intéressant !

Bonne continuation :king: