Полупрозрачность - как? - Общие вопросы Delphi - Страница 2

Dunpeal · 09.08.2007, 17:08

Если поможет - у Form есть такое свойство как AlphaBlendValue нормальное значение вроде 250, если вызвать Form как текст (правая клавиша на форме, View as Text) и приписать туда

AlphaBlend = True
AlphaBlendValue = 190

то Form и все элументы на ней станут полупрозрачными...

ElenaA · 10.08.2007, 09:32

Код
tb.Canvas.Brush.Style:=bsClear;
tb.Canvas.TextOut(100,100,Edit1.Tex t);
я уже пробовала. Не идет. На картинке рисуется прямоугольник непрозрачный, который фон затирает, а на нем уже текст...
А мне надо, чтоб был только текст поверх картинки.

Alex21 · 10.08.2007, 09:56

Код в студию

Stilet · 10.08.2007, 10:04

Цитата:

Сообщение от ElenaA

Код
tb.Canvas.Brush.Style:=bsClear;
tb.Canvas.TextOut(100,100,Edit1.Tex t);
я уже пробовала. Не идет. На картинке рисуется прямоугольник непрозрачный, который фон затирает, а на нем уже текст...
А мне надо, чтоб был только текст поверх картинки.

Ты пробовала свой код? Попробуй мой ибо у меня все Ок.

10.08.2007, 09:56	#13
Alex21 With best regards Участник клуба Регистрация: 20.04.2007 Сообщений: 1,448	Код в студию Life is too short, play more... Как правильно задавать вопросы

09.08.2007, 17:08	#11
Dunpeal Пользователь Регистрация: 16.11.2006 Сообщений: 28	Если поможет - у Form есть такое свойство как AlphaBlendValue нормальное значение вроде 250, если вызвать Form как текст (правая клавиша на форме, View as Text) и приписать туда AlphaBlend = True AlphaBlendValue = 190 то Form и все элументы на ней станут полупрозрачными...

10.08.2007, 09:32	#12
ElenaA Пользователь Регистрация: 02.07.2007 Сообщений: 19	Код tb.Canvas.Brush.Style:=bsClear; tb.Canvas.TextOut(100,100,Edit1.Tex t); я уже пробовала. Не идет. На картинке рисуется прямоугольник непрозрачный, который фон затирает, а на нем уже текст... А мне надо, чтоб был только текст поверх картинки.