Discussion :

[blondelle]

Bonsoir
J'aimerais pouvoir positionner le texte entre dans un TEdit a droite, celui ci est un composant deja pose sur la Form, je ne veut pas creer un composant voir le lien de CGI, j'ai parcouru le Forum, mais les differents post n'utilise pas ma facon de faire, je ne sais d'ailleurs pas si c'est possible de cette facon

http://chgi.developpez.com/compo5/

Je pensais pouvoir deriver de cette facon mais ca ne marche pas

Code :

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

1
2
3
4
 
TCreateParams *pCp = new TCreateParams();
pCp->ExStyle = pCp->ExStyle | ES_CENTER | ES_MULTILINE;
pCp->WndParent = Edit1;

[Crayon]

Salut, il faut lui envoyer un ES_RIGHT

Voir la page suivante: http://bcbjournal.org/bcbcaq/?caq=28

[blondelle]

Merci Crayon
C'est une erreur de recopie qui m'a echappee c'est bien " ES_RIGHT " qui est recherche, le lien que tu donne c'est pour creer un composant TEdit modifie, ce que je voudrais c'est modifier un TEdit deja pose sur la Form par exemple " Edit1 ", dans le code poste il n'y a pas d'erreur mais rien ne se passe

[Crayon]

Ok, essaie ceci

Code :

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

1
2
3
DWORD ExStyleRight;
ExStyleRight = GetWindowLong(Edit1->Handle, GWL_STYLE) | ES_RIGHT;
SetWindowLong(Edit1->Handle, GWL_STYLE, ExStyleRight);

[blondelle]

Tres interressant ton lien je testez justement le meme code trouve la page precedente de ton lien

Code :

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

1
2
3
4
5
 
    // get the current style flags 
    LONG const dwStyle = GetWindowLong(Form1->Edit1->Handle, GWL_EXSTYLE | ES_RIGHT);
    // add ES_NUMBER to these
    SetWindowLong(Form1->Edit1->Handle, GWL_EXSTYLE, dwStyle);

Code :

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

1
2
3
4
5
 
    // get the current style flags 
    LONG const dwStyle = GetWindowLong(Form1->Edit1->Handle, GWL_STYLE  | ES_RIGHT);
    // add ES_NUMBER to these
    SetWindowLong(Form1->Edit1->Handle, GWL_STYLE, dwStyle);

il ne se passe rien

[blondelle]

Si je remplace " ES_CENTER " par " ES_NUMBER " la ca fonctionne

[Crayon]

Est-ce que tu as essayer de mettre un "break point" et de regarder le contenue de dwStyle pour voir si sa fait sens?

[blondelle]

" dwStyle " prend pour valeur 0

[Crayon]

Je ne sais pas quel OS tu utilises, mais je met cette référence juste au cas...

ES_RIGHT
Windows 98/Me, Windows 2000/XP: Right-aligns text in a single-line or multiline edit control. Windows 95, Windows NT 4.0 and earlier: Right aligns text in a multiline edit control.

http://msdn2.microsoft.com/en-us/lib...64(VS.85).aspx

Sinon pour les style on a:

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
/*
 * Edit Control Styles
 */
#define ES_LEFT             0x0000L
#define ES_CENTER           0x0001L
#define ES_RIGHT            0x0002L
#define ES_MULTILINE        0x0004L
#define ES_UPPERCASE        0x0008L
#define ES_LOWERCASE        0x0010L
#define ES_PASSWORD         0x0020L
#define ES_AUTOVSCROLL      0x0040L
#define ES_AUTOHSCROLL      0x0080L
#define ES_NOHIDESEL        0x0100L
#define ES_OEMCONVERT       0x0400L
#define ES_READONLY         0x0800L
#define ES_WANTRETURN       0x1000L
#define ES_NUMBER           0x2000L

[Crayon]

Il est a noté que sur le site web de Microsoft il est mentionné a plusieurs endroits:

To change this style after the control has been created, use SetWindowLong.

Mais pour ES_RIGHT, ce n'est pas dit que l'on peut le changer après la création.

[blondelle]

Merci pour tes renseignements Crayon
Je suis enfin parvenu a ecrire a droite dans ce fichu TEdit, grace a la Faq de nos amis Delfinaute

http://www.developpez.com/delphi/faq...opri#aligntext

voici l'astuce

Code :

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

1
2
3
4
5
6
7
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
SysLocale.MiddleEast = True;
Form1->Edit1->BiDiMode = bdRightToLeft;
}

[Patrick Seuret]

Si tu as installé la librairie JEDI, je crois que le composant "TJvEdit" a une propriété pour choisir l'alignement.

[blondelle]

Le but etait ne ne pas avoir recour a un composant exterieur ou a un composant cree dynamiquement, mais de deriver un composant faisant parti de la palette BCB