Discussion :

[Manopower]

Bonjour,
j'essaye depuis un moment de changer la couleur du ColumnHeader de mon TListView en créant un nouveua composant, hélas je ne vois pas comment m'y prendre car le TListColumn décrivant les en-têtes du TListView sont des TCollectionItems et ça va si loin dans la VCL que je me suis perdu et je ne vois pas comment créer mon composant TXListView avec en-tête en couleur...

Faut il que je redéfinisse un type personnalisé de tous les descendant de TListColumn, TCollection etc jusqu'a TWinControl ?

Je suis perdu dans la jungle de la VCL, quelqu'un pourrait il m'ouvrir la route à coup de machette svp ?

Merci d'avance !

[cpdump]

Cela doit être possible en utilisant les evenements déclenchés lors du dessin du listview. Je n'ai pas les noms en tête, regarde sur l'aide du listview.

Il doit être facile de trouver des exemples d'utilisations sur google.

[neilbgr]

Effectivement, je développe ce qu'a dit cpdump , les évenements à implémenter sont :
:arraow: OnCustomDraw
ou
:arraow: OnAdvancedCustomDraw

Mais dans ce cas, je crainds fortement que tu es tout a dessiner....

Tu cherches a le faire pour apprendre a faire des composants visuels ? ou bein tu en as besoin ?
Car si t'en a besoin, il vaut mieux chercher en chercher sur les sites prévus à cet effet !

[Manopower]

j'ai une application toute grise à mettre en couleur et on ne doit plus voir un pixel de gris, d'où la nécessité de modifier la quasi totalité des composants de base.

je ne me vois pas redessiner tout le composant à la mimine, je vais chercher sur Gougoule. ça a forcément déjà dû être fait par un autre développeur plus courageux ou sans délai à tenir

Merci à vous 2

je ne mets pas le tag résolu des fois qu'un génie passe par là on sait jamais !

[cpdump]

A mon avis tu as juste à modifier la couleur du backgroud dans l'evenement.

Sinon, j'ai trouvé cela http://www.delphipages.com/tips/thread.cfm?ID=74

[Manopower]

Bonjour du matin !

j'ai bien fouilé partout sans résultat hélas, et le OnCustomDraw permet de changer la couleur des objets dans le ListView, mais pas de l'en-tête.

concernant le lien que tu m'a donné, c'est une exellente piste, hélas la majorité des constantes utilisée dans l'exemple sont introuvables et ne compilent donc pas.

Apparement il faut récupérer le Handle du ColumnHeader et modifier son Canevas, mais je ne sais pas comment arriver à ce résultat :/

Merci pour votre soutien moral

[jmdeffet]

Salut!

uses CommCtrl;

[Manopower]

Merci, ça compile bien maintenant

j'arrive donc grâce à l'exemple à changer le style, mais quant à la couleur, comment savoir quelles constantes appeler ? Cette méthode est assez compliquée à modifier je trouve.

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
18
19
20
21
22
23
procedure TForm1.BitBtn1Click(Sender: TObject);
const
 LVM_GETHEADER = LVM_FIRST + 31;
var
 hHeader: THandle;
 style: dWord;
begin
 {to get the header handle for the listview}
 hHeader := SendMessage(ListView1.Handle, LVM_GETHEADER, 0, 0);
 
 {to get the current style attributes for the header}
 style := GetWindowLong(hHeader, GWL_STYLE);
 
 {to toggle the HDS_BUTTONS style}
 style := style xor HDS_BUTTONS;
 
 {to apply the new style}
 SetWindowLong(hHeader, GWL_STYLE, style);
 
 {to invalidate the listview}
 SetWindowPos(ListView1.Handle, Form1.Handle, 0, 0, 0, 0, SWP_NOZORDER
or SWP_NOSIZE or SWP_NOMOVE or SWP_DRAWFRAME)
end;

[neilbgr]

A défaut de le faire soi-meme, il existe le TAdvListView de TMS Softaware qui fait exactement ce dont tu as besoin (les headers sont complétement cutomizable) :

directement : http://www.tmssoftware.com/advlistv.htm
De plus, le TAdvListView hérite de TListView; que demande le peuple !?

la flopée d'autres compos :
http://www.tmssoftware.com/

[Manopower]

Han ! Mon entreprise utilise déjà les géniallissimes composants de TMS Software, j'ai donc le AdvListView dans ma palette, perdu au milieu des centaines de composants tous aussi géniaux de TMS que j'utilisais déjà !

Je vais donc dériver de l'AdvListView pour mes besoins, mais oui je vais bien faire comme ça !

Merci beaucoup de m'avoir montré du doigt ce que j'avais sous le nez NeilBgr !