TTabControl: onglets affichés droite à gauche

Question

Je suis programmation dans un environnement hébreu et je veux que les onglets en haut d'un TTabControl à afficher de droite à gauche. La propriété BiDiMode n'affecte pas les onglets, mais plutôt le texte contenu dans le contrôle.

J'ai essayé le code suivant

SetWindowLong (tc.Handle, GWL_EXSTYLE, 
       GetWindowLong(tc.Handle, GWL_EXSTYLE) or 
       WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT); 

qui obtient les onglets affichés correctement, mais empêche les contrôles détenus dans le TTabControl d'apparaître, et son utilisation est quelque peu limitée.

Des idées? BTW, j'utilise Delphi 7.

TIA, No'am

Answer 1

J'ai trouvé une solution qui, même si elle n'est pas idéale, vaut mieux que rien. J'utilise TabAlign = tbRight, et le propriétaire dessinant les onglets pour que leur texte apparaisse sur l'écran comme horizontal. Voici un lien vers la capture d'écran du contrôle onglet comme il est à l'heure actuelle: http://4.bp.blogspot.com/_rdlpltE1gDQ/SyNFvVNNe5I/AAAAAAAAAEQ/2DNVlKqRlWE/s1600-h/screen5.JPG)

je serais toujours reconnaissant d'une réponse qui a les onglets en haut du contrôle, mais aligné à droite de la contrôle au lieu de à gauche.

Answer 2

J'ai essayé le code avec D2007 et il fonctionne très bien sur Windows7.

Mais vous pouvez utiliser les contrôles Raize, leur PageControl et TabControl peuvent être affichés à partir de RightToLeft sans aucun code.

Answer 3

Ce n'est pas mon code. Quelque chose que j'ai trouvé, mais cela semble fonctionner.

procedure TForm1.FormCreate(Sender: TObject); 
const 
    LVM_FIRST = $1000; 
    LVM_GETHEADER = LVM_FIRST + 31; 
var 
    header: thandle; 
begin 
    header:= SendMessage (TabControl1.Handle, LVM_GETHEADER, 0, 0); 
    SetWindowLong (header, GWL_EXSTYLE, 
       GetWindowLong (header, GWL_EXSTYLE) or 
       WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT); 

    SetWindowLong (TabControl1.Handle, GWL_EXSTYLE, 
       GetWindowLong (lv.Handle, GWL_EXSTYLE) or 
       WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT); 
    lv.invalidate; 
end;