[BDS 2006] Lien et changement de font dans une statusbar

Version imprimable

31/08/2006, 17h04
doudoustephane

[BDS 2006] Lien et changement de font dans une statusbar

Bonjour.
Je dispose d'une statusbar dans ma form. Elle est composée de trois panel différents. Je souhaiterai, lors du passage de la souris sur un panel précis, mettre le texte en type lien et lorsque la souris part, remettre le texte en normal.
De plus, lorsque l'on click sur ce même panel, je souhaiterai effectué une action. Mais mon problème vient du fait que cette action doit se faire uniquement sur ce panel là et pas les autres...
Si quelqu'un a une idée SVP...????
:merci: beaucoup d'avance
31/08/2006, 21h55
Sunchaser
Bonsoir,
J'ai un TStatusBar, avec 4 des 5 panels en Style ' psOwnerDraw '.
Dans le OnMouseMove du StatusBar, je surveille les coordonnées survolées et je change la valeur d'un variable booléenne ( en private ).
Si les coordonnées survolées correspondent a un TPanel particulier, je change la valeur de la variable booléenne et je lance un petit :
Code:

1 2 StatusBar1->Refresh();
Dans le OnDrawPanel, je gère le dessin des panels au cas par cas avec un
Code:

1 2 3 switch (Panel->Index) //etc, etc
et dans la partie du TPanel concerné, en fonction de l'état de la variable, j'applique une Fonte particulière ou non....

En espérant être clair (pas gagné, je sais :mrgreen: ), et t'aider,
@ + ;)
01/09/2006, 15h40
doudoustephane
Citation:
Envoyé par Sunchaser

Bonsoir,
J'ai un TStatusBar, avec 4 des 5 panels en Style ' psOwnerDraw '.
Dans le OnMouseMove du StatusBar, je surveille les coordonnées survolées et je change la valeur d'un variable booléenne ( en private ).
Si les coordonnées survolées correspondent a un TPanel particulier, je change la valeur de la variable booléenne et je lance un petit :

Code:

1 2 StatusBar1->Refresh();

Dans le OnDrawPanel, je gère le dessin des panels au cas par cas avec un

Code:

1 2 3 switch (Panel->Index) //etc, etc

et dans la partie du TPanel concerné, en fonction de l'état de la variable, j'applique une Fonte particulière ou non....

En espérant être clair (pas gagné, je sais :mrgreen: ), et t'aider,
@ + ;)
je pense avoir compris (mais je pourrais tester que demain...:cry: ) pour changer la font mais je ne vois pas comment, à partir de la fonction OnDrawPanel, détecter que l'utilisateur a cliqué et lancé ma fonction...?
et sinon, la propriété font n'existe pas sur les textes des statusbar il me semble, comment faire alors pour lui affecter la font que je souhaite??
:merci: d'avance à toi pour ton aide et aux autres qui m'aideront...

Bonsoir,

Tiendez monseigneur,
Un morceau de mon code,
En espérant qu'il fera votre bonheur...
(rooo, 'tin je fais des rimes !)

Code:

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
void __fastcall TfrmPrincipale::StatusBar1DrawPanel(TStatusBar *StatusBar,
      TStatusPanel *Panel, const TRect &Rect)
{
TCanvas *pCanva = StatusBar->Canvas;
switch (Panel->Index)
{
        case 0:
        pCanva->Brush->Color = frmPrincipale->Color;
        pCanva->FillRect(Rect);
                pCanva->Font->Color = clBlue;
                pCanva->Font->Style = TFontStyles();
                if (IndexPanelSurvol == 0)
                {
                        StatusBar->Cursor = crHandPoint;
                        pCanva->Font->Style = TFontStyles() << fsBold << fsUnderline;
                }
                pCanva->TextRect(Rect, ((Rect.Width() - Panel->Text.Length()) / 4), Rect.Top + 1, Panel->Text);
        break;
        case 1:
        pCanva->Brush->Color = frmPrincipale->Color;
        pCanva->FillRect(Rect);
                pCanva->Font->Color = clBlack;
                pCanva->Font->Style = TFontStyles();
                if (AffMaj == true)
                {
                        pCanva->Font->Color = AColor;
                        pCanva->Font->Style = TFontStyles() << fsBold << fsUnderline;
                }
                pCanva->TextRect(Rect, Rect.Left + 40, Rect.Top + 1, Panel->Text);
        break;
        case 2:
        pCanva->Brush->Color = frmPrincipale->Color;
        pCanva->FillRect(Rect);
                 pCanva->Font->Color = clRed;
                 pCanva->Font->Style = TFontStyles();
                 if (IndexPanelSurvol == 2)
                 {
                        StatusBar->Cursor = crHandPoint;
                        pCanva->Font->Style = TFontStyles() << fsBold << fsUnderline;
                 }
                 pCanva->TextRect(Rect, Rect.Left + 60, Rect.Top + 1, Panel->Text);
        break;
        case 3:
        pCanva->Brush->Color = frmPrincipale->Color;
        pCanva->FillRect(Rect);
        Graphics::TIcon* pIco = new Graphics::TIcon;
        pIco->LoadFromFile(CheminAppli + AnsiString("\\Images\\Setting.ico"));
        pIco->Transparent = true;
        pIco->Height = Rect.Height();
        pIco->Width = Rect.Width();
                 pCanva->Draw(Rect.Left + 15, Rect.Top, pIco);
        delete pIco;
        break;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TfrmPrincipale::StatusBar1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
if ( X < 200 )
{
StatusBar1->Hint = "Clique droit sur cette zone afin de changer le nom d'utilisateur";
        IndexPanelSurvol = 0;//int en private
        StatusBar1->Refresh();
}
else
{
        if ( X > 200 && X < 400 && frmPrincipale->StatusBar1->Panels->Items[1]->Text == "Fiches a enregistrer !")
        {
        StatusBar1->Hint = "Clique droit sur cette zone afin de faire défiler la liste des fiches";
                IndexPanelSurvol = 1;//int en private
        }
        else
        {
                if ( X > 402 && X < 601 )
                {
                StatusBar1->Hint = "Clique droit sur cette zone afin de faire apparaitre la page des RDV";
                        IndexPanelSurvol = 2; //int en private
                        StatusBar1->Refresh();
                }
                else
                {
                        if ( X > 601 )
                        {
                        StatusBar1->Hint = "Clique droit sur cette zone afin de changer le mode de démarrage";
                        }
                }
        }
}
}

En espérant que tout ceci passe sous le BDS 2006 évidemment...

En espérant t'aider,
@ + ;)

ps : tiendez -> du verbe 'tiendre' évidemment...

01/09/2006, 21h23
Sunchaser

Oublié : pour savoir un panel a été cliqué, tu peut observer la valeur de la variable changeant dans le OnMouseMove.
Dans mon petit 'exemple', cette variable est IndexPanelSurvol.
Après, au choix, agir soit dans le OnClick du StatusPanel, ou dans le OnMouseUp...
02/09/2006, 20h42
doudoustephane

ça m'a l'air encore une fois super ton truc. je teste tout de suite après manger et je te dis çca.
:merci:
03/09/2006, 00h12
doudoustephane

wouaou, tu es un génie, ça marche nickel.
super super super...
:merci: encore à toi...