Discussion :

[Galip]

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.

[blondelle]

Salut Galip:
Une possibilite:
Un TRichEdit deux TLabel double click dans l'evenement OnMouseMove du TRichEdit le code a inserer

Code :

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

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

[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.

[ero-sennin]

Salut,

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

Code :

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

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 :

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

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));
}

[Galip]

Merci beaucoup ton code marche nikel.

C'est clair et efficace

[ero-sennin]

Merci beaucoup ton code marche nikel.

C'est clair et efficace

Merci !

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 :

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

[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 ).

[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 !

[Sunchaser]

Bonsoir,

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

(Impression a chaud apres un premier test ...)

[Galip]

Je vois que la conversation se poursuit

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.

[Sunchaser]

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 :

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

1
2
3
private:
                TPoint EdPoint;

. dans le .CPP:

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
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 ... )

[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

[Sunchaser]

Idem ...

Bonne nuitée

[ero-sennin]

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 :

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

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?

[Galip]

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

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
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 :

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

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.

[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!

@+

[Galip]

Merci beaucoup pour ton idée,

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

Voila :

Code :

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

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.

[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