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

Сто пудов!

← →
Чих-пых (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.

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