Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 4 484

/ вопрос открыт /

Здравствуйте, эксперты!
мне нужно нарисовать на TLabel картинку поверх текста. никак не выходит. Просто нет картинки и все, хотя с виду все штатно. И из файла пробовал грузить и из ИмиджЛиста и координаты менял - ничего.

Приложение:
  1. bmp := TBitmap.Create;
  2. bmp.LoadFromFile(CurApplicationPath+'add_green.bmp');
  3. Message2Label.Caption := 'Press to store channel';
  4. Message2Label.Canvas.Draw(Message2Label.Left + 3,Message2Label.Top + 3, bmp);
  5. bmp.Free;


AlexMPEI Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: AlexMPEI (статус: 1-ый класс)
Вопрос отправлен: 3 августа 2010, 16:18
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, AlexMPEI!
Используйте TStaticText - это аналог TLabel, но он имеет handle.
TLabel это неоконный элемент, его рисует форма. Поэтому нарисовать на нем то можно, но не до следующей перерисовки.

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 3 августа 2010, 16:24


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 3 августа 2010, 22:45; участников в обсуждении: 4.
AlexMPEI

AlexMPEI (статус: 1-ый класс), 3 августа 2010, 16:39 [#1]:

у TStaticText вообще нет Canvas. Как на нем рисовать?
Вадим К

Вадим К (статус: Академик), 3 августа 2010, 16:51 [#2]:

Вот здесь https://forums.embarcadero.com/thread.jspa?threadID=26271 есть объяснение, как обойти эту особенность и получить Canvas.
Галочка "подтверждения прочтения" - вселенское зло.
Ерёмин А.А.

Ерёмин А.А. (статус: *Администратор), 3 августа 2010, 17:24 [#3]:

Да и вообще рисовать на таких компонентах — глупо. Они предназначены для вывода текста.
min@y™

min@y™ (статус: Доктор наук), 3 августа 2010, 22:45 [#4]:

Мож хватит заниматься ерундой? Почему не выводить и картинку и текст прямо на канвас куданить в TPaintBox, а?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:28
Выполнено за 0.02 сек.