Discussion :

[winow]

Bonjour a tous

Sous Windows XP avec BCB6

SVP,
J'aimerais mettre en surbrillance le texte d'un TValueListEditor apres une recherche du texte a partir d'un TEdit

Expl:

Au depart le le mot BONJOUR est dans le TValueListEditor.
Je tape BONJOUR dans Le TEdit, Je click sur un TButton et le texte du TValueListEditor "BONJOUR"se mes en surbrilance.

Merci a vous
A++

[winow]

Rebonjour
Ou meme d'un TEdit a TEdit, c'est juste pour avoir une idée de depart.
A++

[fverneau]

Je pense que tu peux utiliser les propriétés SelStart et SelLength de ton contrôle TEdit. Le texte sélectionné étant ensuite accesible directement par la propriété SelText.
Avec SelStart = 2 et SelLength = 1, le deuxième caractère de ton TEdit devrait être en surbrillance.

[winow]

Merci fverneau

Cela marche tres bien de TEdit a TEdit, etc...

Code :

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

1
2
3
Edit1->SetFocus();
Edit1->SelStart = 0;
Edit1->SelLenght = 10;

Merci.


SVP
Est-ce-que quelqu'un connaitrer le moyen de donner la proprietée SelStart et SelLength a un composant qui ne detient pas ces proprietées.
Merci A++

[winow]

Voila le code dont je me sert pour rechercher le nom de la villes ? dans le fichier 01Ain.txt.

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
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 ListBox1->Clear();
 Label2->Caption = "Mot(s) inexistant";//Si le mot ne se trouve pas dans le fichier.
 
 AnsiString rep = ExtractFilePath(Application->ExeName);
 AnsiString az = rep + "villes\\01Ain.txt";
 
  int Index;
    TStringList* MaListe = new TStringList();
    MaListe->LoadFromFile(az);
    MaListe->Sort();
 
  if (MaListe->Find(Edit1->Text, Index))
    {
    ListBox1->Items->AddStrings(MaListe);
    Label2->Caption =  Edit1->Text;//Si le mot se trouve dans le fichier
 
  delete MaListe;
 }
}
//---------------------------------------------------------------------------

Comment je pourrais mettre un surbrillance juste le mot rechercher, car avec SelStart et SelLength, il faut donner le numero de ligne plus le nombre de lettres. y aurait-il pas une autre metode.
Merci A++

Balises [Code] rajoutées par Ricky81
Merci d'y penser à l'avenir

[Ricky81]

Bonsoir,

si on charge le contenu du fichier dans la listBox, ceci sélectionne la ligne qui correspond à la valeur saisie dans l'edit :

Code :

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

ListBox1->ItemIndex = ListBox1->Items->IndexOf(Edit1->Text);

Remarque : insensible à la casse ici.

[winow]

Merci Ricky81
J'en profite pour te remercié de l'aide que tu nous apportent et aussi pour l'aide de creation de composants etc...
Donc Merci.

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
//----------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
 ListBox1->Clear();
 Label2->Caption = "Mot(s) inexistant";//Si le mot ne se trouve pas dans le fichier.
 
 AnsiString rep = ExtractFilePath(Application->ExeName);
 AnsiString az = rep + "vil\\01Ain.txt";
 
  int Index;
    TStringList* MaListe = new TStringList();
    MaListe->LoadFromFile(az);
    MaListe->Sort();
 
  if (MaListe->Find(Edit3->Text, Index))
    {
    ListBox1->Items->AddStrings(MaListe);
    ListBox1->ItemIndex = ListBox1->Items->IndexOf(Edit3->Text);//Surbrillance mot + triage par ordre alphabetique
 
    Label2->Caption =  Edit3->Text;//Si le mot se trouve dans le fichier
 
  delete MaListe;
 }
}
//----------------------------------------------------------

Merci A++

[Ricky81]

N'oublies pas d'utiliser les balises de mise en forme la prochaine fois

[winow]

Bonsoir

Milles excuses,

Je ne sait pas du tout comment faire pour utiliser les balise de mise en forme :
Je ne savait meme pas qu'il fallait le faire :
Je pense que comme j'ai mis du code, il aurait valut que j'utilise [Code] juste entre [Quote] et [List] :

Bonsoir A++