Текущий архив: 2003.02.03;
Скачать: 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 вся ветка
Текущий архив: 2003.02.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.02 c
