| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в StatusBar вывести иконку? [D5]

kserg@ukr.net ©   (2002-02-11 11:45:00) 

Если можно - поясните в примере.
Спасибо

---

Виктор Щербаков   (2002-02-11 13:56:00) [1]

Вместо DrawIconEx
используй ImageList.Draw

---

Ura   (2002-02-11 13:28:00) [2]

ImageList.Add(BMP.Picture.Bitmap, nil);

---

kserg@ukr.net   (2002-02-11 13:09:00) [3]

>Виктор Щербаков
Уважаемый, извини за дотошность - просто это всё для незнакомо
и сам я буду вникать долго и нудно...
А как подставить икону, имеющейся в ImageList?

---

Виктор Щербаков   (2002-02-11 12:47:00) [4]

...
var MyIcon: TIcon;

...
procedure TForm1.FormCreate(Sender: TObject);
begin
MyIcon := TIcon.Create;
MyIcon.LoadFromFile("C:\MyIcon.ico");
end;

и подставляй...

---

kserg@ukr.net   (2002-02-11 12:40:00) [5]

>Виктор Щербаков Спасибо.
Хочу уточнить Application.Icon это икона приложения - не так ли?
А как свою икону "подставить"?

---

Виктор Щербаков   (2002-02-11 12:01:00) [6]

Создаешь на статусбаре новую панель.
Ставишь ей свойство Style в psOwnerDraw.
Для события статусбара OnDrawPanel пишешь примерно такой обработчик:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if Panel.Index = 0 then
begin
DrawIconEx(StatusBar1.Canvas.Handle, 2, 2, Application.Icon.Handle, 16, 16, 0, 0, DI_NORMAL);
end;
end;

---

Наверх