Discussion :

[benj63]

Bonjour,

Est-il possible de modifier la couleur de l'intérieur de la case blanche d'un composant CheckBox ?

Je souhaiterai m'en servir pour une légende sur un graphe, une case cochée afficherait la courbe correspondante. Ainsi, au lieu d'apparaitre comme des cases blanches, mes différents CheckBoxes auraient les couleurs de mes courbes...

Merci !!!!

[Camus]

Le composant CheckBox ne le permet pas il faut que tu reface un composant dérivant de CheckBox où tu modifie la couleur.

[benj63]

Merci beaucoup... Je débute en C++ Builder, pourrais-tu me montrer comment faire un composant dérivé d'un composant existant ?

[Camus]

1)Création d’un package pour tes nouveaux composants.
- Fichier
- Nouveau
- Dans l’onglet nouveau sélectionner PAQUET
- Sauvegarder

2)Création du composant
- Composant
- Nouveau Composant
- Tu as une fenetre qui apparaît :

Type Ancêtre : TcheckBox
Nom de la classe : TchechBoxColor
Page de Palette : Laisser exemple
Fichier unité : Là où tu as sauvé le package crée en 1
Chemin de recherche : pas touche

- Cliquer sur installer en bas à gauche.
Fichier : Sélectionner le Package crée en 1


et voilà

J'avais fait ça il y a bien longtemps avec les TRadioButton.

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
//---------------------------------------------------------------------------
void __fastcall TCustomRadioColor::WndProc(Messages::TMessage &Message)
{
    // procedure par defaut
    TRadioButton::WndProc(Message);
 
    if (WindowHandle) {
 
        // recupere le contexte graphique pour dessiner
        HDC hDC = GetDeviceContext(WindowHandle);
 
        int MidleY=Height/2;
        HBRUSH hBrush=CreateSolidBrush((COLORREF)FButtonColor);
        HBRUSH hOldBrush=SelectObject (hDC,hBrush);
        HPEN   hPen=CreatePen(PS_SOLID,1,(COLORREF)FButtonColor);
        HBRUSH hOldPen=SelectObject (hDC,hPen);
 
        Ellipse(hDC,3,MidleY-4,11,MidleY+4);
        if (Checked) {
            SelectObject (hDC,GetStockObject(BLACK_BRUSH));
            SelectObject (hDC,GetStockObject(BLACK_PEN));
            Ellipse(hDC,5,MidleY-2,9,MidleY+2);
        }
 
        SelectObject (hDC,hOldBrush);
        SelectObject (hDC,hOldPen);
        DeleteObject (hBrush);
        DeleteObject (hPen);
    }
 
}

[benj63]

Merci beaucoup !!! C'est parfait !