Discussion :

[istam3]

Bonjour,

Je migre une appli de Delphi 2009 à Delphi XE2, jusque là pas de soucis. J'ai voulu tester la nouveauté des thèmes d'apparence, et là mon soucis est que lorsqu'un thème autre que Windows est activé, l'événement OnDrawTab de mon PageControl n'est plus déclenché (alors que OwnerDraw reste à true).
J'utilise le OnDrawTab pour dessiner des petits boutons de fermeture à droite de chaque onglet (un peu comme dans Firefox).

Y-a-t-il un moyen de récupérer l'exécution de OnDrawTab tout en gardant les thèmes ? Ou comment redessiner les onglets sans passer par le OnDrawTab sachant que j'ai besoin des paramètres qu'il donne (TabIndex, Rect, Active) ?

[ShaiLeTroll]

Une solution serait de redéfinir la méthode protégée DrawTab via un héritage du TPageControl,
soit via un vrai composant et donc un package (pénible)
soit via une petite arnaque locale genre TPageControl = class(ComCtrls.TPageControl), moche mais rapide !

Voir ce qui est possible aussi via CNDrawItem et CN_DRAWITEM
Il doit être possible de changer la TTabControlStyleHook qui gère le Paint via RegisterStyleHook

Tu devrais voir le Gestionnaire de Style , tu dois pouvoir configurer des choses
C'est vrai que le bouton façon FireFox, c'est un classique !

[istam3]

Une solution serait de redéfinir la méthode protégée DrawTab via un héritage du TPageControl

Je n'avais pas pensé à ça mais effectivement je vais regarder du coté de la surcharge du DrawTab car je ne pense pas pouvoir faire ce que je veux avec le gestionnaire de style, c-a-d les boutons que je dessine ne sont que des images que je dessine directement dans le canevas dont je retiens les Rect pour vérifier sur OnMouseMove si la souris passe au-dessus (dans ce cas je change dynamiquement l'image du bouton pour donner un aspect actif).

[istam3]

Après tests, l'arnaque local ne suffit pas !

Code :

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

1
2
3
4
5
6
  TPageControl = class(Vcl.ComCtrls.TPageControl) //Je ne savais même pas qu'on pouvait faire ça avec le même nom !!! Sûr c'est dégueux
  protected
    procedure DrawTab(TabIndex: Integer; const Rect: TRect; Active: Boolean); override;
  public
    ImageListTabs: TImageList;
  end;

Tout comme l'événement OnDrawTab, la proc DrawTab n'est appelé QUE si le thème actif est windows.

Voir ce qui est possible aussi via CNDrawItem et CN_DRAWITEM
Il doit être possible de changer la TTabControlStyleHook qui gère le Paint via RegisterStyleHook

Je vais voir ce que je peux faire de ce coté là, il va falloir d'abord que je trouve un peu de doc (tout lien est le bienvenue ) car je n'ai jamais touché au composant à ce niveau là et je ne connais pas cette classe (TTabControlStyleHook ) et ni RegisterStyleHook.