image dans la statusbar

Ma question va vous paraitre ridicule, mais comment fait-on pour mettre une image ( ou plutot une icone) dans une status bar: l'aide delphi ne m'a pas apporté grand chose sur ce sujet......
D'avance merci.....

euh ben en fait j'ai trouvé !!!!!!!
Dsl
(merci leo!!!!! pour le MP)

Salut!

2 suggestions :

1. Ça serait bien que tu partages ton code avec les autres. C'est pratique quand on fait une recherche avec "statusbar" et "image" et que l'on trouve une véritable réponse.
2. N'oublie pas le bouton "résolu" en bas ;)

Bon dev!

[EDIT]
Oops! j'ai manqué le [résolu] de peu ;)

pardon pour le code.....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TMainForm.StatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); begin with StatusBar.Canvas do begin Brush.Color := clgreen; FillRect(Rect); Font.Color := clBlack; ImageListStatus.Draw(StatusBar.Canvas,Rect.Left,Rect.Top,Panel.Index); TextOut(Rect.left + 30, Rect.top + 2, 'Panel' + IntToStr(Panel.Index)); end;   end;

---

et bien mettre les panels à psOwnerDraw !!