текст поверх изображения

[grigoreo]

пробовал не получилось кто подскажет каким способом на форму залить изображение почти на всю площадь(думаю с помощью TImage) а потом поверх вывести некий многострочный текст (пробовал через TImage.Picture.Bitmap.Canvas.TextOut не вышло) , т.е получается текст не просто на цветном фоне а на фоне (подложке) картинке , кто как делал?, может есть какой готовый компонент для лазаря?

[Vadim]

У формы есть свой Canvas на котором можно изобразить картинку. А текст поверу - с помощью обычных Label'ов, только свойство Transparent в True поставить.

[grigoreo]

У формы есть свой Canvas на котором можно изобразить картинку. А текст поверу - с помощью обычных Label'ов, только свойство Transparent в True поставить.

извини за невежество а как на Canvas закинуть картинку можешь дать пример чтобы он грузил произвольный jpg и отображал с пропорциональной растяжкой по центру (надеюсь это не сильно сложный код )) )

[Vadim]

Как раз тут на форуме уже это где-то обсуждалось. Не хотите воспользоваться поиском?

[grigoreo]

Как раз тут на форуме уже это где-то обсуждалось. Не хотите воспользоваться поиском?

Или устал или не те слова в поиске пиши чет все не то

Добавлено спустя 17 минут 9 секунд:

У формы есть свой 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;

[Vadim]

grigoreo

Код: Выделить всё

...
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:\1.bmp');
Form.Canvas.Draw(0, 0, BitMap);
...

[SAK]

Рисовать надо не в OnCreate, а в OnPaint. Или добавить на форму TImage.