Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];

Вниз

StatusBar-Image   Найти похожие ветки 

← →
Fill   (2003-01-24 21:43) [0]

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

---

← →
Stager   (2003-01-24 22:24) [1]

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

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

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

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

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

---

← →
Chizh   (2003-01-24 22:41) [2]

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

---

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

А можно OnDrawPanel

---

← →
Chizh   (2003-01-24 23:49) [4]

Сто пудов!

---

← →
Чих-пых   (2003-01-25 03:34) [5]

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

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.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.034 c