Statusbar + Image

[Störtebeker]

Wie kann ich denn der Statusbar Images andrehen? Finde im OI nämlich keine Option dazu.

Folgendes ist gemeint:

http://docs.huihoo.com/development/d.../statusbar.gif

Thx. schonmal.

[RWarnecke]

Vielleicht so, wie ich hier der Statusbar eine Uhr angedreht habe.

Delphi-Quellcode:

  // Die Uhr in das dritte Panel setzen von der Statusbar
  MainStatusbar.Perform(SB_GETRECT, 2, Integer(@R));
  Clock.Parent := MainStatusbar; //Clock adoptieren
  Clock.Top := r.Top; //Größe der
  Clock.Left := MainForm.Width - 250; //Clock setzen
  Clock.Width := 100; //und an Panel anpassen
  Clock.Height := r.Bottom - r.Top;

Nur statt der Uhr ein ein TImage nehmen.

[Hawkeye219]

Hallo,

wäre in diesem Fall ein Panel mit TStatusPanel.Style = psOwnerDraw nicht einfacher?

Delphi-Quellcode:

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

Gruß Hawkeye

[Luckie]

Noch einfacher: SB_SETICON. Ich habe hier schon mal dazu Cod egepostet, musst du mal suchen: SB_SETICON oder guck mal in meinen Win32-API Tutorials für Delphi.

[Reinhardtinho]

Hi,

ich habe eine zu diesem Thread passende Frage.
Und zwar habe ich mit diesem Code ein Icon in die Statusbar gezeichnet.

Zitat von Hawkeye219:

Hallo,

wäre in diesem Fall ein Panel mit TStatusPanel.Style = psOwnerDraw nicht einfacher?

Delphi-Quellcode:

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

Gruß Hawkeye

Wie kann ich zur Laufzeit das Icon wieder löschen?

So habe ich es bisher:

Delphi-Quellcode:

  
  var
    EmptyArticle : Boolean;

  ...

  if (Panel.Index = 2)then
  begin
    if EmptyArticle then
      ImageList2.Draw(StatusBar.Canvas, Rect.Left, Rect.Top, 7)   
    else ImageList2.Draw(StatusBar.Canvas, Rect.Left, Rect.Top, 8);
  end (* of if *)

An der Position 7 habe ich das Icon was dort gezeichnet werden soll, an der Position 8 habe ich ein leeres Bitmap der Imagelist eingefügt, aber das legt sich wahrscheinlich nur über das andere drüber und man sieht es noch.

Ich habe auch schon mit Index = -1 probiert, aber das hat auch nicht geklappt.


Vielen Dank!

MFG
Lorenz

[s-off]

Hallo,

Du könntest ein Rect in der Farbe der Statusbar drübermalen.

[Reinhardtinho]

Hi,
das habe ich auch schon überlegt, dass ich das irgendwie übermale, allerdings benutze ich eine Skin-Komponente und die StatusBar wird nun dadurch mit einen Farbverlauf gezeichnet.

MFG
Lorenz

[s-off]

Dann erzeuge ein Icon mit besagtem Farbverlauf, füge dieses zu Deiner ImageList hinzu und lege es bei Bedarf über das entsprechende Icon, das Du 'verschwinden' lassen möchtest.

[Reinhardtinho]

So habe ich es gemacht, funktioniert, danke für den Tipp!

MFG
Lorenz