Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c