Discussion :

[petitprince]

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.....

[petitprince]

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

[slimjoe]

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

[petitprince]

pardon pour le code.....

Code :

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

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 !!