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

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

StatusBar-Image [D7, WinXP]

Fill ©   (2003-01-24 21:43:00) 

Подскажите, как отобразить или поместить Image в StatusBar. Спасибо.

---

Чих-пых   (2003-01-25 03:34:00) [1]

Ага. Вот пример:

procedure TMainForm.StatusBarDrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if Panel.ID = 0 then
begin
ImageList1.Draw(StatusBar.Canvas, Rect.Left, Rect.Top, StatusBar.Tag);
end;
end;

Рисует картинку из ImageList1 за номером StatusBar.Tag на панеле номер 1.

---

Chizh   (2003-01-24 23:49:00) [2]

Сто пудов!

---

Pat   (2003-01-24 23:44:00) [3]

А можно OnDrawPanel

---

Chizh   (2003-01-24 22:41:00) [4]

А можно просто поместить пикчуру поверх ТаскБара, в свойстве Text которого спереди добавить несколько пробелов, чтобы картинка не закрывала текст в ТаскБаре... Во всяком случае это был мой выход из положения.

---

Stager   (2003-01-24 22:24:00) [5]

Стандартный StatusBarне предназначен для помещения на него объекта TImage, равно как и любого другого. Для решения Вашей проблемы есть три пути:

1. Рисовать изображение вручную, используя свойство Canvas компонента TStatusBar.

2. Скачать компонент StatusBar, поддерживающий создание не только текстовых секций, например - dfsStatusBar.

3. Написать свой компонент, наследуемый от TCustomStatusBar, в котором предусмотреть показ картинок.

C уважением, Алексей.

---

Наверх