Fenêtre 'Caps lock' pour un mot de passe

Version imprimable

Voir 40 message(s) de cette discussion en une page

21/05/2012, 12h03
LoicH

Fenêtre 'Caps lock' pour un mot de passe

Bonjour à tous,

j'aimerais bien afficher une fenêtre stipulant que 'Caps lock (Verrouillage majuscule)' est appuyé. Y-a-t-il une méthode simple ou faut-il créer une Forme spécifique pour faire ceci ?

Je vous met un exemple ci-joint :

http://img607.imageshack.us/img607/3843/sanstitrefx.jpg

Merci d'avance
21/05/2012, 13h27
blondelle
Salut LoicH
Pour avoir les TEdit qui affiche de gros points a la place des caracteres il faut faire comme ceci
Code:

1 2 3 Edit1->Font->Name = "wingdings"; Edit1->PasswordChar = 'l';
Pour afficher le message au passage du curseur
Code:

1 2 3 Edit1->Hint = "mon texte"; Edit1->ShowHint = true;
pour convertir automatiquement le texte en minuscle
Code:

1 2 Edit1->CharCase = ecLowerCase; // ecNormal, ecLowerCase, ecUpperCase
21/05/2012, 13h42
DjmSoftware

Hello,

l'exemple de l'application fournie est une application .Net
dans le cas de C++ Builder ou delphi tu dois créer une form
contenant les différents éléments de ton exemple

cdlt

Pour tester si c'est une minuscule peut etre comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
String a = Edit1->Text;
int b = a.Length();
String c = a.SubString(b,1);
if(c <= "a" && c <= "Z")
{
ShowMessage("Majuscule");
}
}

21/05/2012, 15h58
ShaiLeTroll
Citation:

Envoyé par blondelle

Pour avoir les TEdit qui affiche de gros points a la place des caracteres il faut faire comme ceci

Sous Vista\Seven, le PasswordChar en * affiche automatiquement des ronds verts
Il faut juste veiller que la font est Tahoma et non MS sans Serif (comme sous C++Builder 6 et 2K)

PasswordChar en * devrait activer ce type de contrôle normalement
J'ai testé, sous BCB2007 + XPManifest sur XP SP3, cela affiche une info bulle

il faut laisser CharCase à ecNormal
Si tu modifie CharCase cela n'affichera plus le message et appliquera la conversion (pratique à bannir car cela réduit la variabilité du mot de passe)

Comme dans le sujet Comment utiliser le caractère ● comme Passwordchar?

isupper existe soit dans ctype.h
IsUpper dans SysUtils des versions Unicode de C++Builder
Code:

1 2 3 4 5 6 7 void __fastcall TForm1::Edit1Change(TObject *Sender) { int l = Edit1->Text.Length(); if (l > 0) if (IsUpper(Edit1->Text[l])) ShowMessage("Majuscule"); }

Pour afficher le message la ou tu veux, en reprenant le code de ShaiLeTroll

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
  int l = Edit1->Text.Length();
  if (l > 0)
    if (isupper(Edit1->Text[l]))
    {
THintWindow* myhint;
myhint = new THintWindow(Edit1);
myhint->Color = clInfoBk;
myhint->ActivateHint(TRect(Form1->Left + Edit1->Left + 20, Form1->Left + Edit1->Top + 15, Form1->Left + Edit1->Left + 235, Form1->Left + Edit1->Top + 40),"Vous devez ecrire en minuscule");
Sleep(1000);
myhint->ReleaseHandle();
      }
}

22/05/2012, 09h15
DjmSoftware
Hello Blondelle
Attention au MemoryLeak
la mémoire allouée a hint window n'est jamais désallouée
l'utilisation de auto_ptr ou unique_ptr permet l'allocalion mémoire sans se soucier de libérer les objets
Code:

1 2 3 4 5 #include <memory> std::unique_ptr<THintWindow> myhint(new THintWindow()); // ou std::auto_ptr<THintWindow> myhint(new THintWindow());
cdlt
22/05/2012, 11h18
LoicH

merci a tous pour l’intérêt que vous portez à ce sujet.

Alors j'ai bien réussi à masquer les caractères et à tester minuscules et majuscules.
Par contre il y a juste l'affichage de la fenêtre qui indique qu'on a activé le Verrouillage numérique. Mais si j'ai bien compris DjmSoftware, il faut que je crée une form juste pour cela :
http://img137.imageshack.us/img137/1162/sanstitredx.jpg
22/05/2012, 11h39
DjmSoftware

Hello
oui tu dois créer une form similaire à l’exemple que tu a fournit
les exemples fournis et tout particulièrement celui de Blondelle affiche une HintBox lorsque le la touche CapsLock est activée accouplée a une EditBox

cdlt
22/05/2012, 13h50
ShaiLeTroll

1 pièce(s) jointe(s)
C'est AUTOMATIQUE !
C'est Windows qui le fourni automatiquement si on n'utilise pas le message EM_SETPASSWORDCHAR à l'Edit mais que l'on utilise le style ES_PASSWORD !

Le Hint s'affiche dès que l'on clique dans le TEdit !
Il n'y a AUCUN code à faire si l'on a le support des Thèmes activé !
Code:

1 2 3 object EditForPassword: TEdit PasswordChar = '*' end
BCB6, Pas de Thème (XPMan n'apparait qu'en D7), XP SP3 -> Etoile + Pas de Hint
BCB2007, Thème Activé dans les Options de Projet, XP SP3 -> Etoile + Hint (Haut de l'Image)
BCBXE2, Thème Activé dans les Options de Projet, XP SP3 -> Rond + Hint (Base de l'image)

Sous Vista\Seven la fenêtre doit ressembler à celle de ton image !

http://www.developpez.net/forums/att...1&d=1337687400

LoicH
Peut tu donner la version de BCB que tu utilise, la solution que l'on te donnera sera mieux adaptee
DjmSoftware
ceci me provoque des erreurs, je n'ai pas cherche plus

Citation:

#include <memory>
std::unique_ptr<THintWindow> myhint(new THintWindow());
// ou
std::auto_ptr<THintWindow> myhint(new THintWindow());

j'ai ajoute ceci a mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 int l = Edit1->Text.Length(); if (l > 0) if (isupper(Edit1->Text[l])) { THintWindow* myhint; myhint = new THintWindow(Edit1); myhint->Color = clInfoBk; myhint->ActivateHint(TRect(Form1->Left + Edit1->Left + 20, Form1->Left + Edit1->Top + 15, Form1->Left + Edit1->Left + 235, Form1->Left + Edit1->Top + 40),"Vous devez ecrire en minuscule"); Sleep(1000); myhint->ReleaseHandle(); delete myhint; // <-----Ajout }
Le hint s'affiche uniquement en cas de majuscules
J'ai trouve ceci sur le Net pour afficher un Balloon, mais une fois active je n'ai pas reussi a le desactiver
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 void __fastcall TForm1::Edit1Change(TObject *Sender) { int l = Edit1->Text.Length(); if (l > 0) if (isupper(Edit1->Text[l])) { HWND hToolTip = CreateWindow( TOOLTIPS_CLASS, NULL, TTS_BALLOON, 0, 0, 0, 0, Handle, NULL, HInstance, NULL ); if ( hToolTip != NULL ) { TOOLINFO tool_info = {0}; tool_info.cbSize = sizeof(tool_info); tool_info.uFlags = TTF_SUBCLASS | TTF_TRANSPARENT; tool_info.hwnd = Edit1->Handle; tool_info.lpszText = "texte a afficher"; CopyRect( &tool_info.rect, &(Edit1->ClientRect) ); SNDMSG( hToolTip, TTM_ADDTOOL, 0, reinterpret_cast<LPARAM>(&tool_info) ); } } }

22/05/2012, 16h02
DjmSoftware

Hello Blondelle
il semblerait que la STL qu tu utilise n'est plus au goût du jour
Si tu utilise C++ Builder6
auto_ptr est déclaré dans le fichier include _auto_ptr.h
quand à unique_ptr il n'existe simplement pas

tu devrais songer à migrer ::roll:;);)

cdlt

DjmSoftware
il a fallu que j'ecrive comme ceci l'include " #include <stl/_auto_ptr.h> ", je joinds le code corrige
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 #include <memory> #include <stl/_auto_ptr.h> int l = Edit1->Text.Length(); if (l > 0) if (isupper(Edit1->Text[l])) { std::auto_ptr<THintWindow> myhint(new THintWindow(Edit1)); myhint->Color = clInfoBk; myhint->ActivateHint(TRect(Form1->Left + Edit1->Left + 20, Form1->Left + Edit1->Top + 15, Form1->Left + Edit1->Left + 235, Form1->Left + Edit1->Top + 40),"Vous devez ecrire en minuscule"); Sleep(1000); myhint->ReleaseHandle(); }
Citation:

tu devrais songer à migrer

j'y ai songe mais j'esite l'investissement est quand meme assez lourd

23/05/2012, 07h02
LoicH

alors moi je tourne encore sous Builder 6
23/05/2012, 10h07
blondelle

Je suis aussi sous BCB6 et windows7, tu ne devrais pas avoir de probleme avec les codes postes

Voici pour afficher un Balloon semblable a ton exemple
Sur la Form un TEdit
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
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
57
58
59
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HWND hwndToolTips;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
// le lien
// <a href="http://msdn.microsoft.com/en-us/library/windows/desktop/bb760250(v=vs.85).aspx" target="_blank">http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx</a>
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
// gestion affichage Balloon
hwndToolTips = CreateWindow(TOOLTIPS_CLASS, NULL,
                            WS_POPUP | TTS_NOPREFIX | TTS_BALLOON,
                            0, 0, 0, 0, Handle, NULL, HInstance, NULL);
        if (hwndToolTips != NULL)
        {
        TOOLINFO ti;
        ti.cbSize   = sizeof(ti);
        ti.uFlags   = TTF_SUBCLASS | TTF_TRANSPARENT | TTF_CENTERTIP;
        ti.hinst = NULL;
        ti.rect = Edit1->ClientRect;
        ti.hwnd     = Edit1->Handle;
        ti.lpszText = "texte qui s'affiche";
        CopyRect( &ti.rect, &(Edit1->ClientRect));
        SendMessage(hwndToolTips, TTM_ADDTOOL, 0, (LPARAM) &ti);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
POINT cursor;
int l = Edit1->Text.Length();
if (l > 0)
if (isupper(Edit1->Text[l]))
        {
// on active l'affichage
        SendMessage(hwndToolTips, TTM_ACTIVATE, true, 0);
// on acquier la position du curseur
        GetCursorPos(&cursor);
// on simule un deplacement
        SetCursorPos(cursor.x + 1, cursor.y);
        }
if(islower(Edit1->Text[l]))
        {
// on desactive l'affichage
        SendMessage(hwndToolTips, TTM_ACTIVATE, false, 0);
        }
}
//---------------------------------------------------------------------------

27/05/2012, 10h56
LoicH

Merci beaucoup. Je vais essayer ta solution.
Désolé de la durée de ma réponse mais je suis en déplacement professionnel.

Mais je vais essayer cela et vous tiendrais au courant. J'aurais durement trouvé cela tout seul :D
28/05/2012, 09h47
DjmSoftware

2 pièce(s) jointe(s)

Hello
C++ Builder 6 ne disposait pas d'accès directe aux thèmes de windows
XP et Supérieur
il te suffit de rajouter dans ton projet le fichier winxp.res contenu dans le zip attaché pour avoir cette accés aux thèmes windows
avec ce fichier .Res plus besoin de programmer simplement rèfère toi au post précédent de ShaireLeTroll

Citation:

C'est AUTOMATIQUE !
C'est Windows qui le fourni automatiquement si on n'utilise pas le message EM_SETPASSWORDCHAR à l'Edit mais que l'on utilise le style ES_PASSWORD !

Le Hint s'affiche dès que l'on clique dans le TEdit !
Il n'y a AUCUN code à faire si l'on a le support des Thèmes activé !

Code dfm :Sélectionner tout - Visualiser dans une fenêtre à part123 object EditForPassword: TEdit
PasswordChar = '*'
end

cdlt
28/05/2012, 11h39
blondelle

Salut DjmSoftware
Si je ne me trompe pas ce Tuto sur le site correspond a l'utilisation de ton fichier
le lien

Citation:

http://chgi.developpez.com/styleXP/
28/05/2012, 17h13
DjmSoftware

Hello Blondelle,
j'utilisais cette astuce trouvée sur le Net lors que j'utilisais encore C++ Builder 6 cad en 2005
cdlt

Voir 40 message(s) de cette discussion en une page