Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как вывести текст поверх TImage; [D7, WinXP]

_Nikolay © (2004-11-26 09:54:00)
Как вывести текст поверх TImage. В принципе важно чтобы фон текста не закрывал картинку.

Rif (2004-12-01 11:50:00) [1]
>Fenik (26.11.04 20:33)

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

Fenik (2004-11-26 20:33:00) [2]
> murtix (26.11.04 20:21) [9]

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

> Rif (26.11.04 15:17) [6]

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

murtix (2004-11-26 20:21:00) [3]
Кстати, а есть разница между
Image1.Picture.Bitmap.Canvas.Handle
и
Image1..Canvas.Handle

antonn (2004-11-26 17:51:00) [4]
поместить над имайджем лабел.

Rif (2004-11-26 15:21:00) [5]
пропустил строчку ..

Image1.Picture.Bitmap:=bmp;

Rif (2004-11-26 15:17:00) [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;

_Nikolay (2004-11-26 12:25:00) [7]
Лажа в том, что я делаю ЭТО с jpeg, а не с bmp. =)

_Nikolay (2004-11-26 12:07:00) [8]
Пропадает изображение картинки и все...
Причем в обоих случаях... :(

Centr (2004-11-26 11:46:00) [9]
Image1.Canvas.Brush.Style:=bsClear;
Image1.Canvas.TextOut(10,10,'Test');

_Nikolay (2004-11-26 11:28:00) [10]
Опишите подробнее, в том числе и методы вывода

cae (2004-11-26 10:48:00) [11]
SetBkMode(Image1.Picture.Bitmap.Canvas.Handle, TRANSPARENT);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »