Icon in Statusbar

[Tommy1988]

Kann mir wer sagen wie ich ein Icon in eine StatusBar bekomme?

[Tommy1988]

genauer:

bei klick auf einen button möchte ich das erste icon einer imagelist in die statusbar laden..

ich weis, diesen thread gibts schon, aber da verstehe ich nix weil als wirr warr ist

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

[Luckie]

Zitat von Tommy1988:

ich weis, diesen thread gibts schon, aber da verstehe ich nix weil als wirr warr ist

Wie waäre es im entsprechenden Thread zu posten und nachzufragen?