Как вывести текст поверх TImage;

← →
_Nikolay (2004-11-26 09:54) [0]

Как вывести текст поверх TImage. В принципе важно чтобы фон текста не закрывал картинку.

← →
cae © (2004-11-26 10:48) [1]

SetBkMode(Image1.Picture.Bitmap.Canvas.Handle, TRANSPARENT);

← →
_Nikolay (2004-11-26 11:28) [2]

Опишите подробнее, в том числе и методы вывода

← →
Centr (2004-11-26 11:46) [3]

Image1.Canvas.Brush.Style:=bsClear;
Image1.Canvas.TextOut(10,10,"Test");

← →
_Nikolay (2004-11-26 12:07) [4]

Пропадает изображение картинки и все...
Причем в обоих случаях... :(

← →
_Nikolay (2004-11-26 12:25) [5]

Лажа в том, что я делаю ЭТО с jpeg, а не с bmp. =)

← →
Rif (2004-11-26 15:17) [6]

Попробуй так ...

var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
jpeg.CompressionQuality := 100; {Default Value}
jpeg.LoadFromFile(FileName);
bmp := TBitmap.Create;
bmp.Assign(jpeg);
SetBkMod(Image1.Picture.Bitmap.Canvas.Handle,TRANSPARENT);
Image1.Canvas.TextOut(0,0,"**************");
bmp.Free
jpeg.Free
end;
end;

← →
Rif (2004-11-26 15:21) [7]

пропустил строчку ..

Image1.Picture.Bitmap:=bmp;

← →
antonn © (2004-11-26 17:51) [8]

поместить над имайджем лабел.

← →
murtix (2004-11-26 20:21) [9]

Кстати, а есть разница между
Image1.Picture.Bitmap.Canvas.Handle
и
Image1..Canvas.Handle

← →
Fenik (2004-11-26 20:33) [10]

> murtix (26.11.04 20:21) [9]

Есть. Image1.Picture.Bitmap может просто не существовать.
Вместо него может быть, например, Icon или JPEGImage.

> Rif (26.11.04 15:17) [6]

Ты этот код проверял?

← →
Rif (2004-12-01 11:50) [11]

>Fenik (26.11.04 20:33)

Да проверял, у меня он стоит в програмке которая выводит календарь на рабочий стол.

Как вывести текст поверх TImage; Найти похожие ветки