Bild aus ImageList in Statusbar anzeigen?

[Sharky]

Hai,

ist es möglich ein Bild aus einer TImageList in einem Pannel einer Statusbar anzeigen zu lassen?

[toms]

Hi,

Das ist möglich:

Delphi-Quellcode:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  if Panel.Index=0 then
       ImageList1.Draw(Statusbar1.Canvas,Rect.Left,Rect.Top,0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StatusBar1.Panels[0].Style := psOwnerDraw; // Oder über Objektinspektor einstellen
end;

PS: unter http://groups.google.com/ hättest du nach TImageList statusbar suchen können,
wo's schon Millionen von PAQs gibt!