вывод текста

← →
reticon © (2003-03-15 18:04) [0]

Здравствуйте мастера!

Проблема в следующем:

Имеется компонент TMediaPlayer, который выводит видео на компонент TPanel

MediaPlayer1.Display:=panel1;
MediaPlayer1.DisplayRect:=Rect(0, 0, Form2.Panel1.Width, Form2.Panel1.Height);
MediaPlayer1.Play;

т.е. в полноэкранном режиме.

Вопрос: можно ли как-нибудь вывести текст поверх видео, причем, чтобы фон у этого текста был именно видео, которое проигрывается,
а не фон компонента (например StaticText)?

← →
reticon © (2003-03-17 09:40) [1]

неужели никто не знает, или я не точно поставил вопрос?

← →
Дмитрий К.К. © (2003-03-17 11:12) [2]

Кинь TLabel, у него же имеетси свойство Transparent.

← →
reticon © (2003-03-17 16:07) [3]

стандартные компонеты (TLabel, TStaticText) не подходят, их не видно поверх видео

← →
Kair © (2003-03-22 21:04) [4]

Можно использовать вторую прозрачную форму и на неё кинуть Лабель

← →
reticon © (2003-03-23 15:54) [5]

2Kair

А можно поподробнее?

Это чтобы мешать конечному пользователю наслаждаться видео? ;)
Тогда компонентами, порожденными от TGraphicControl, воспользоваться не получится. Они прорисовываются с использованием контекста устройства Parent"а.
Но можно на Panel1 (в примере) разместить другую панель (а лучше свой компонент, порожденный от TCustomControl), создать Region по контуру текста, и... SetWindowRgn

Добавить в проект ещё одну форму, сделав её прозрачной,
и кинуть на неё лабель. Ну и показать форму.
Сделать форму прозрачной можно, например, так:

with Form2 do
begin
Color:=clBlack;
TransParentColorValue:=clBlack;
TransParentColor:=true;
end;

НО! На одной машине форма может быть прозрачной,
а на другой - нет.
Причины такого поведения формы мне не известны.
(у меня Win2k, Delphi 6)

вывод текста Найти похожие ветки