Скачать: CL | DM;

Как вывести текст поверх 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)

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c