Сделать картинку поверх видео.

[Vyacheslav.]

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

Посмотрите эти темы
http://www.programmersforum.ru/showthread.php?t=313060
http://www.programmersforum.ru/showthread.php?t=312840

Спасибо, попробую.

[Vyacheslav.]

Сообщение от Аватар

Прозрачная панель с прозрачным image поверх другой панели с картинкой. Что там будет над панелью с видео сам смотри

В вашем способе картинка становится прозрачной через несколько раз.

[Vyacheslav.]

Почему если хотя бы чуть чуть передвинуть форму - картинка исчезает?

[Aliens_wolfs]

Попробуйте вот этот код

 procedure TForm1.FormCreate(Sender: TObject);
begin
  //Делаем панель вывода изображения прозрачной чтобы не мешала для вывода изображения на форме уже с эффектами
  Windows.SetParent(Panel1.Handle, 0);
  SetWindowLong(Panel1.Handle, GWL_EXSTYLE, WS_EX_LAYERED + WS_EX_TOOLWINDOW);
  if not SetLayeredWindowAttributes(Panel1.Handle, 0, 0, LWA_ALPHA) then
  ShowMessage(SysErrorMessage(GetLastError));

MediaPlayer1.DeviceType:= dtAutoSelect;
MediaPlayer1.FileName := 'D:\MP3\1279614330.avi';
Timer1.Interval:= 1;
MediaPlayer1.Open;
MediaPlayer1.DisplayRect := Panel1.ClientRect;
MediaPlayer1.Play;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
mainDC: HDC;
titleBmp, Bitmap: TBitmap;
begin
MediaPlayer1.Display:=Panel1;
if MediaPlayer1.Mode = mpPlaying then
begin
//Захватываем графический хендел панели
mainDC:= GetDC(MediaPlayer1.Display.Handle);
Bitmap:= TBitmap.Create;
titleBmp:= TBitmap.Create;
try
//Рисуем кадр в Bitmap
Bitmap.Handle:= CreateCompatibleBitmap(mainDC, MediaPlayer1.Display.Width, MediaPlayer1.Display.Height);
BitBlt(Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, mainDC, 0, 0, SRCCOPY);

//открываем рисунок
titleBmp.LoadFromFile('d:\Fone.bmp');
titleBmp.Transparent:= true;

//Рисуем рисунок в кадре смещая его в нижнюю часть окна
Bitmap.Canvas.Draw(0, Bitmap.Height - titleBmp.Height - 10, titleBmp);

//Показываем на форме
Form1.Canvas.Draw(MediaPlayer1.Display.Left, MediaPlayer1.Display.Top, Bitmap);
finally
Bitmap.Free;
titleBmp.Free;
ReleaseDC(MediaPlayer1.Display.Handle, mainDC);
end;
end;
end;

Над эффектами наложения картинки нужно еще поработать

[Аватар]

В вашем способе картинка становится прозрачной через несколько раз

Ну очевидно же, что такой способ с видео не пройдет, разве что по таймеру перерисовывать верхнюю панель )) Зато знаешь теперь как панель прозрачной сделать ))

[Vyacheslav.]

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

Попробуйте вот этот код

Теперь при передвижении картинка не исчезает, но видео отрисовалось в определенном месте, и оттуда не перемещается, я форму могу передвигать куда угодно, но видео вместе с ней не движется.

[Vyacheslav.]

Ошибку выбивает.

[Aliens_wolfs]

Попробуй проект что я залил в посте #14 у меня он нормально работает, наложенную картинку пробую сгладить

[Vyacheslav.]

Так-же, видео на месте, форма движется и отображает определенные участки видео, а видео же должно вместе с ней перемещаться.

[Aliens_wolfs]

Проект скачайте с поста #14 вот ссылка http://www.programmersforum.ru/attac...3&d=1513276495
В нем путь к своим файлом поменяйте.
Сейчас еще кое что доделаю в нем