Discussion :

[FredericB]

Bonjour,

Je voudrais savoir comment ils ont fait pour faire un ListView de ce type (car j'aimerai bien l'inclure dans mon application) :
http://site.magix.net/index.php?id=2...jpg&no_cache=1
Le listview a les bords arrondis, et le scrollbar est détaché.

Est-ce que quelqu'un connait un composant permettant de faire ca, ou un skin ?

Ou alors quelqu'un aurait une idée sur la façon de procéder pour essayer de le refaire ?

Merci
Fred

[Sunchaser]

Bonsoir,

Pour ce qui est des bords arrondis, regardes du côté de :
. CreateRoundRectRgn(...)
. SetWindowRgn(...)

et vois si ceci est applicable au handle d'un object tel qu'un TListView. Pas sur, puisque je n'ai utilisé ceci que pour des objects de type TForm mais sait on jamais....

Pour le coup du ScrollBar, je ne sais pas mais en regardant de plus pres j'ai un peu envie de dire que même le coup des arrondis est surement un peu plus 'complexe' que ce que j'avais entrevu du bout de l'oeil...

Mais peut être que dans la fonction CreateRoundRectRgn(...), tu pourras exclure, grace aux paramètres des coordonnées, toutes les zones non-clients telles que les ScrollBars.

En espérant t'aider,
Bon courage,
@ +

[henderson]

Salut !

Si ce type d'objet est introuvable, on peut le faire en dérivant d'un TCustomControl.
Pour dessiner le contenu, il suffit de surcharger la méthode Paint.

L'idée est de remplir avec la couleur de fond du Parent, donnée par Parent->Brush->Color

Puis de dessiner des RoundRect avec comme rayons : 8 et 8.

Les méthodes événementielles (OnMouseDown, OnMouseMove et OnMouseUp) permettent de mettre en place les différentes actions pour créer le scrolling !

En rajoutant un TStringList à l'objet, il ne reste plus qu'à dessiner les chaînes et objets (s'il y en a) en lieu et place...avec TextOut

Donc pour la mise en chantier (graphique), voir l'aide TCustomControl,TCanvas.

A plus !

[FredericB]

Bonjour,

Merci pour vos réponses.
Je vais essayer vos conseils.

Fred

[henderson]

Salut !

Juste comme simple exemple pour le dessin des contours :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
class jListBox : public TCustomControl
{
private :
Graphics::TBitmap *Bitmap;
public :
TStringList *Items;
//D'autres propriétés sans doute...
//...
    __fastcall jListBox(TComponent *Owner);
    __fastcall ~jListBox();
    void __fastcall Paint();
};

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
__fastcall jListBox::jListBox(TComponent *Owner)
    : TCustomControl(Owner)
{
if(Owner->InheritsFrom(__classid(TWinControl))) Parent = (TWinControl*)Owner;
Bitmap = new Graphics::TBitmap;
Items = new TStringList;
SetBounds(20,20,200,200);
}
 
__fastcall jListBox::~jListBox()
{
delete Bitmap; Bitmap = NULL;
Items->Clear(); delete Items;
}
 
void __fastcall jListBox::Paint()
{
if(Bitmap != NULL)
    {
    //Ajuster les dimensions du bitmap sur celles de l'objet
    int we = Width;
    int he = Height;
    if(Bitmap->Width != we) Bitmap->Width = we;
    if(Bitmap->Height != he) Bitmap->Height = he;
    //Le dessin se fait sur le bitmap
    TCanvas *C = Bitmap->Canvas;
    //Effacer avec la couleur de fond du parent
    C->Brush->Color = Parent->Brush->Color;
    C->Brush->Style = bsSolid;
    C->FillRect(Rect(0, 0, we, he));
    //Dessiner le rectangle arrondi de la listbox
    C->Brush->Color = (TColor)0x00FFDFBF;
    C->Pen->Color = clSilver;
    C->Pen->Style = psSolid;
    C->Pen->Mode = pmCopy;
    C->RoundRect(4,4,Width - 20, Height - 20, 8,8);
    //Dessiner le texte...
    //...
    //...
    //Dessiner le corps du slider vertical
    C->RoundRect(Width-16, 4, Width-4, Height-20, 8,8);
    //dessiner le corps du slider horizotal
    C->RoundRect(4, Height-16, Width - 20, Height-4, 8,8);
    C->Brush->Color = (TColor)0x00FF8306;
    //dessiner le bouton du slider vertical
    C->RoundRect(Width-16, 4, Width-4, 24, 8,8);
    //dessiner le bouton du slider horizontal
    C->RoundRect(4, Height-16, 24, Height-4, 8,8);
    //S'il faut rajouter des bords 3D, ce serait ici...
    //...
    //Dessiner le bitmap dans la zone client de l'objet
    Canvas->Draw(0, 0, Bitmap);
    }
}

Et pour mon test, donc pour voir ce que ça donne :

Code :

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

1
2
3
4
5
6
7
jListBox *ListBox;
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
ListBox = new jListBox(this);
}

Pour les événementielles, à toi de jouer ...

Il faut se méfier de ce que font les autres, certains peuvent travailler au niveau graphisme sans jamais utiliser d'objets du type TWinControl etc., en dessinant directement sur la form...

A plus !

[FluidBlow]

Bonjour,

Je vous remercie pour ce code, mais le probleme c'est que l'on ne peut plus rien modifier au composant, qui c'est transformer en Bitmap en fait non ?
En tout cas, je ne vois plus d'items et les scroll ne fonctionne pas.

Cordialement,
FluidBlow.