Discussion :

[Neilos]

Salut à tous,

je cherche à personnaliser un TPageControl :

je voudrais qu'il soit transparent mais je ne sais pas comment faire.
J'ai penser partir d'un TPageControl et écrire un nouveau composant en surchargeant la méthode Paint...mais idem je bloque je ne sais pas comment faire.

Quelqu'un peut il me donner une piste ?

Merci d'avance pour votre aide !

[Pedro]

Salut
tu peux éventuellement t'inspirer des sources (si tu les as ) des TSpeedButton qui peuvent être transparents (propriété flat) par contre si c'est une opacité variable, là, je ne sais pas...

[Neilos]

Oui j'avais pensé faire quelque chose comme cela mais le problème c'est que TSpeedButton descend d'un TGraphicControl alors que TPageControl descend d'un (TCustomTabControl qui descend d'un) TWinControl.

Je veux bien faire le dessin moi même (j'ai déjà un peu essayé mais sans succès) mais je rencontre les problèmes suivants :

- il faut stocker la liste des TTabSheet...ça encore c'est faisable
- mais surtout il faut dessiner les composants du TTabSheet actif et là je sais pas du tout comment faire. Surtout que ceux-ci doivent aussi réagir aux actions de l'utilisateur....

[Pedro]

OK
regarde ce que ça donne si tu surcharges Paint sans rien, même pas inherited...
Sinon va voir aussi du coté de la fonction CreateParams... Il y plein de trucs intéressants la-dedans

Bonne chance

[Neilos]

OK je vais voir du côté de la fonction CreateParams et je te tiens au courant.

Merci pour ton aide, j'ai déjà pas mal chercher et là j'allais craquer lol !

[Neilos]

Salut,

dans les styles étendus de Windows il y a bien un :

WS_EX_TRANSPARENT Specifies that a window created with this style is to be transparent. That is, any windows that are beneath the window are not obscured by the window. A window created with this style receives WM_PAINT messages only after all sibling windows beneath it have been updated.

qu'il faudrait mettre dans le membre ExStyle d'un TCreateParams.

Par contre je ne comprend pas trop le rôle de la fonction CreateParams...ni à quel moment je devrais l'appeler lors de l'écriture de mon composant (car il faut l'écrire, la fonction n'est pas accessible si on prend un TPageControl.

[Pedro]

C'est simple
tu surcharges la procedure CreateParams et dans celle-ci, tu mets

Code :

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

1
2
3
 
Component.WindowStyle:=WindowComponent.Style+[WS_EX_TRANSPARENT]
inherited;

A vérifier...
Et normalement ça devrait marcher

[Sub0]

Salut!

J'ai déjà eu l'occasion de trouver sur le forum une fonction qui permet d'attribuer un Canvas à un control qui n'en a pas... Je ne sais pas si cela peut t'aider ou si tu as trouvé une solution depuis, donc demande-moi si ça t'intéresse...

à+

[Neilos]

Alors en appliquant la méthode avec la fonction CreateParams :

ça marche le contrôle est transparent, mais il a encore des bords 3D que je voudrais éviter.

Par contre à partir du moment où on ajoute une page c'est foutu : la transparence disparait et ne revient pas...je pense qu'il faut encore faire la même modification sur les TTabSheet utilisés par le TPageControl transparent baptisé pour l'occasion TTransparentPageControl....je vais voir ce que je peux faire.

Si je n'y arrive pas comme ça ta méthode m'interesserais Sub0 et peut être même si j'y arrive, par simple curiosité !

EDIT : en fait la transparence ne se met pas à jour. Par exemple après un changement de page ou bien un déplacement du fond la transparence n'est plus là. Je me demande : la fonction CreateParams est bien appelée lors de la création de l'objet ? Ou bien à chaque Paint ?....

[Sub0]

Je ne sais pas si cela correspond à ce que tu recherches...

http://sub0.developpez.com/delphi/TranspPageControl.zip

Pour supprimer la bordure, j'ai mis le PageControl dans un Panel légèrement plus petit...

à+

[Neilos]

C'est une solution merci beaucoup ! Je n'avais pas pensé à l'astuce du TPanel !!!!

Je vais étudier cela de plus prêt pour voir si ça va bien dans mon projet !

Merci infiniment

[Neilos]

Tout fonctionne impecablement, je n'ai pas besoin de la transparence de la fiche, par contre ton astuce du TPanel m'a montré à quel point je me compliquait la vie pour rien !!!

Merci beaucoup !