Discussion :

[Amenofis]

Salut,

tu es sur que le statusbar gère les .ico ??

essayes avec des .bmp

@+

[anapurna]

salut


oui il en est cetain mais il a fait une bourde de debutant
c'est le texterect qui redessinne sur le canvas
deux solution soit tu deplace ton texterect
soit tu redefini le rectangle de ton ecriture

pour ma part je pense que cela devrais suffir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 with StatusBar.Canvas do
  begin
    Brush.Color := clBtnFace;
    Pen.Color := clBtnFace;
    Rectangle(Rect);
    if Ico <> nil then
    begin
      TextRect(Rect, X+ Ico.Width+1, Y, Text);
      StatusBar.Canvas.Draw(X, Y,Ico);
    end
    else
     TextRect(Rect, X, Y, Text);

@+ Phil

[sjrd]

Vos solutions ne fonctionnent pas , mais j'ai continué à chercher et j'ai trouvé :

J'ai supprimé le redessin du rectangle (apparemment il fait ça tout seul) mais par contre, avant le dessin de l'icône, j'ai affecté bsClear au style du brush, et ça fonctionne.

Merci quand même.

[anapurna]

salut

c'est assez drole parce que j'ai fai le test avant de te repondre et cela marche parfaitement chez moi ?

@+ Phil

[sjrd]

Ah OK, je pige le problème maintenant .
Ouais c'est vrai, anapurna, désolé .