Delphi-PRAXiS - Delphi Statusbar + Image?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Statusbar + Image? (https://www.delphipraxis.net/8970-statusbar-image.html)

Micha

16. Sep 2003 08:47

Statusbar + Image?

Hallo zusammen,

ich möchte in einer Statuszeile noch ein kleines Image mit einbinden, wie man es vom InternetExplorer her kennt.

Gibt es eine Möglichkeit dies zu realisieren?

neolithos

16. Sep 2003 08:54

Re: Statusbar + Image?

Mal des Panel doch selber. Setze es auf psOwnerDraw und fülle OnDrawPanel mit Code.

Micha

16. Sep 2003 08:57

Re: Statusbar + Image?

Aja, schon mal gut. Danke.

Kannst du mir dann bitte noch kurz erläutern, wie der Code dafür aussehen soll?!
Brauch ich dann dazu eine Image-Objekt?

neolithos

16. Sep 2003 09:01

Re: Statusbar + Image?

z.B.

Delphi-Quellcode:

			    if Panel := StatusBar.Panels[1] then // richtige Panel

      ImageList1.Draw(StatusBar.Canvas, Rect.Left, Rect.Right, 0);

Der rest ist deine Sache...

Micha

16. Sep 2003 09:14

Re: Statusbar + Image?

Yes, thanks.

Luckie

16. Sep 2003 17:54

Re: Statusbar + Image?

So geht es einfachher:

Delphi-Quellcode:

			hIcon := LoadImage(hInstance, MAKEINTRESOURCE(4), IMAGE_ICON, 16, 16, LR_DEFAULTCOLOR);

SendMessage(hStatusBar, SB_SETICON, 0, hIcon);

Icon aus einer Ressource laden (LoadImage) und mit SB_SETICON einfügen. Der dritte Parameter von Sendmesssage gibt das Panel an, hier das erste.

Alle Zeitangaben in WEZ +1. Es ist jetzt 21:47 Uhr.