Icon in Statusbar

[cruiser]

Delphi-Quellcode:

// il1 = imagelist
// es ist ein Statusbarpanel angelegt und dessen Eigenschaft
// Style ist auf psOwnerDraw gesetzt

procedure TForm1.stat1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
  const Rect: TRect);
begin
  // wir haben evtl. mehrere, also machen wir einen Case-select
  case Panel.Index of
    // Index 0 = erstes Panel
    0: begin
      // image zeichnen
      il1.Draw(StatusBar.Canvas, Rect.Left, Rect.Top, 0);
      // text dazuschreiben
      StatusBar.Canvas.TextOut(Rect.Left + il1.Width + 2 , Rect.Top, Panel.Text);
    end;
  end;
end;

getestet und geht. allerdings gibt es auch für dich eine edit-funktion. du musst nicht nach 10 Minuten pushen.