Discussion :

[Higgins]

Bonjour,

J'ai créé une application avec un Tstylebook dans lequel j'ai chargé un style fourni avec rad studio.
Je souhaite personnaliser le style du TTabItem pour qu'il affiche une croix, permettant de fermer l'onglet.
J'ai pu sans (trop de) difficulté ajouter un TBitmap dans le style. Le problème, c'est que lorsque j'ajoute un evènement onclick, il n'est jamais exécuté. J'ai essayé une autre méthode:
J'intercepte la création du TTabItem et je recherche la resource correspondant à ma croix avec StyleFindResource. J'affecte une procédure son évènement onclick, mais il n'est jamais appelé non plus. quelqu'un a-t-il une idée?

[ShaiLeTroll]

Tu détourne bcp l'utilisation des styles ?
Pour moi, c'est plus une création de composant ou un code manuel un peu plus rustique pour gérer ce genre de chose que bidouiller un style !

Je trouve étrange de passer par un style pour apporter de telles fonctionnalités !

Utilise directement OnMouseUp, tu auras déjà le X et Y de la souris, puisque je suppose que tu vas filtrer la position du Bitmap

A quel moment, interceptes-tu la création du TTabItem ?
Peut-être que tu le fais trop tôt
Tu fourni un OnClick, mais si le DFM n'en contient pas ou un autre, ne va-t-il pas écraser ton gestionnaire ?

D'ailleurs, pose un TButton, et affiche l'adresse du TTabItem.OnClick
00000000 ou un truc genre 05F05F05 ?

un TTabItem hérite tout du TTextControl, hum ça sens la bidouille les Tab FMX, est-ce que le TTabControl propage les clics reçus vers ses TTabItem ?

CustomIcon du FMX.TTabItem remplace si je comprends la doc la propriété Images sur le VCL.TTabControl ?
Dommage qu'il n'y ait pas CustomIconLeft et CustomIconRigth comme pour le VCL.TButtonedEdit, un bouton gauche et\ou droite, cela aurait été tellement simple d'ajouter un icone de tab et un bouton de tab que l'on est tellement habitué à voir sur FireFox !

Pourquoi FMX qui est purement graphique ne reprend pas ces bonnes idées de la VCL

[Higgins]

Tu détourne bcp l'utilisation des styles ?
Pour moi, c'est plus une création de composant ou un code manuel un peu plus rustique pour gérer ce genre de chose que bidouiller un style !

Je trouve étrange de passer par un style pour apporter de telles fonctionnalités !

Je pensais que c'était plus simple. J'avais abandonné Delphi depuis quelques années pour visual studio et WPF. Il était très simple de personnaliser un style avec des triggers. Je croyais que FMX fonctionnait sur le même principe.

A quel moment, interceptes-tu la création du TTabItem ?
Peut-être que tu le fais trop tôt
Tu fourni un OnClick, mais si le DFM n'en contient pas ou un autre, ne va-t-il pas écraser ton gestionnaire ?

Dès le début, c'est l'appli qui ajoute les TabItem et leur affecte l'évènement onClick à la création

CustomIcon du FMX.TTabItem remplace si je comprends la doc la propriété Images sur le VCL.TTabControl ?
Dommage qu'il n'y ait pas CustomIconLeft et CustomIconRigth comme pour le VCL.TButtonedEdit, un bouton gauche et\ou droite, cela aurait été tellement simple d'ajouter un icone de tab et un bouton de tab que l'on est tellement habitué à voir sur FireFox !

Je n'ai pas la propriété CustomIcon dans mon TTabItem. Elle n'apparait ni dans l'inspecteur d'objet ni en complétion de code

Utilise directement OnMouseUp, tu auras déjà le X et Y de la souris, puisque je suppose que tu vas filtrer la position du Bitmap

Je crois que c'est effectivement ce que je vais faire. Je posterai le résultat de mes recherches

[Higgins]

J'ai avancé un peu. Je n'avais pas remarqué que la propriété Hittest de mon image était à false. Je l'ai passé à true et ça marche bien....tant qu'il n'y a qu'un onglet d'ouvert.
Dès que j'ouvre un second onglet, plus aucun ne répond aux clics.

[Higgins]

Bon voilà,

J'ai suivi les conseils de ShaileTroll, j'ai rattaché l'évènement onclick à mon TTabItem et dans le traitement de l'évènement, je compare la position de la souris avec celle de la croix pour fermer. si ça matche, je ferme l'onglet