Discussion :

[say]

Bonjour,
vous aurez compris que je veux mettre une image ds ma barre de statut.
je suis parti du code trouvé dans le forum Delphi.
mais ça donne rien;

Code :

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

1
2
if(Panel == StatusBar->Panels->Items[0] ) // cas ou on veut dessiner sur le panel 1 uniqument
    ImageList->Draw(StatusBar->Canvas, Rect.Left, Rect.top, 0); // dessine sur le canvas du statusbar1 dans le rect du panel 1 l'image d'index 0 de l'imageList1

Quelqu'un a-t-il déjà fait ça?

merci d'avance

[Djob]

bah ..J'ai testé ton code , il marche bien ....

A tout hasard ,as tu bien pensé à mettre la propriété Style du Premier Panel à psOwnerDraw ?

[say]

et ben non!!!
désolé

merci

[say]

j'y reviens un petit coup...
j'ai l'impression que je ne peux pas à la fois placer une icone et du text dans le même panel.

Quelqu'un peut-il me le confirmer ou m'orienter?

merci d'avance

[Djob]

ben... comme tu es en mode psOwnerDraw,
je pense qu'il faut que tu dessines aussi ton texte sur le canvas:

par ex:

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
void __fastcall TForm2::StatusBarDrawPanel(TStatusBar *StatusBar,
      TStatusPanel *Panel, const TRect &Rect)
{
 if(Panel == StatusBar->Panels->Items[0] ){ // cas ou on veut dessiner sur le panel 1 uniqument
 
    String Texte = StatusBar->Panels->Items[0]->Text;
 
    int X  = Rect.Left;
    int Y  = Rect.top +Rect.Height()/2 - (ImageList->Height/2);
    ImageList->Draw(StatusBar->Canvas, X, Y, 0) ;
    StatusBar->Canvas->Brush->Style=bsClear;
    X  = Rect.Left+ImageList->Width+4;
    Y  = (Rect.Top+Rect.Height()/2)-(Canvas->TextHeight(Texte)/2);
 
    StatusBar->Canvas->TextOutA(X,Y,Texte);  //<-----
 }
}

si ça peut t'aider..

[say]

ah ben ça pour m'aider, ça m'aide.
Désolé, je connais pas Canvas. Merci beaucoup