текст поверх изображения
Модератор: Модераторы
текст поверх изображения
пробовал не получилось кто подскажет каким способом на форму залить изображение почти на всю площадь(думаю с помощью TImage) а потом поверх вывести некий многострочный текст (пробовал через TImage.Picture.Bitmap.Canvas.TextOut не вышло) , т.е получается текст не просто на цветном фоне а на фоне (подложке) картинке , кто как делал?, может есть какой готовый компонент для лазаря?
У формы есть свой Canvas на котором можно изобразить картинку. А текст поверу - с помощью обычных Label'ов, только свойство Transparent в True поставить.
Vadim писал(а):У формы есть свой Canvas на котором можно изобразить картинку. А текст поверу - с помощью обычных Label'ов, только свойство Transparent в True поставить.
извини за невежество а как на Canvas закинуть картинку можешь дать пример чтобы он грузил произвольный jpg и отображал с пропорциональной растяжкой по центру (надеюсь это не сильно сложный код )) )
Как раз тут на форуме уже это где-то обсуждалось. Не хотите воспользоваться поиском?
Vadim писал(а):Как раз тут на форуме уже это где-то обсуждалось. Не хотите воспользоваться поиском?
Или устал или не те слова в поиске пиши чет все не то
Добавлено спустя 17 минут 9 секунд:
Vadim писал(а):У формы есть свой Canvas на котором можно изобразить картинку. А текст поверу - с помощью обычных Label'ов, только свойство Transparent в True поставить.
хорошо пробую вот так но форма чет этим рисунком не заполняется как была серебро так и осталась , где я мог ошибится?
procedure TForm1.FormCreate(Sender: TObject);
var Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:\1.bmp');
Canvas.Brush.Bitmap:=Bitmap;
end;
grigoreo
Код: Выделить всё
...
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:\1.bmp');
Form.Canvas.Draw(0, 0, BitMap);
...