Bild in StatusBar

[oki]

Panel kreieren, OwnerDraw setzen, im Ereignis OnDraw Bild aus einer ImageListe auf Canvas zeichnen.

Mußte leider kurz machen, schau Montag wieder rein.

Hab doch noch schnell eigenen Code gefunden

Delphi-Quellcode:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
var Index : Integer;
begin
  with StatusBar1.Canvas do begin
    IF Panel = Statusbar1.Panels[1] then begin
      IF FCommActiv then Index := 4 else Index := 9;
    end;
    IF Panel = Statusbar1.Panels[2] then begin
      IF FDispActiv then Index := 1 else Index := 6;
    end;
    IF Panel = Statusbar1.Panels[3] then begin
      IF FKonfActiv then Index := 2 else Index := 7;
    end;
    IF Panel = Statusbar1.Panels[4] then begin
      IF FServActiv or FServIPActive then Index := 0 else Index := 5;
    end;
    ImageList1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top, Index);
  end;
end;

Den Schmuß mit if usw. ist eigener kram und muß Dich nicht kümmern. Der entscheidende Teil ist
ImageList1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top, Index); gruß oki