freepascal.ru

а вот над этим я пока думаю

coyot.rush писал(а):

а вот над этим я пока думаю

Вводить все равно придется, к примеру для просмотра тв кнопки play,stop не надо

согласен, хотя немного не так, как предлагаете Вы ...

coyot.rush писал(а):Можно ли twindowwidget работать как с картинкой, просто хочется потом заняться алгоритмами сглаживания видео, естественно про то что это получается медленно я знаю, просто ради любопытства

procedure tmainfo.openspacer(b : string);
begin
  s_1.visible := false;
  s_2.visible := false;
  s_3.visible := false;
  s_4.visible := false;
  (findcomponent('s_'+b) as tspacer).visible := true;
end;

function tmplayer.checkplayer : boolean;
begin
 if fileexists(fmplayer) 
 and (extractfilename(fmplayer) = 
    {$ifdef mswindows}'mplayer.exe'{$endif}
    {$ifdef linux}'mplayer'{$endif} )
    then begin
          result := true;
          debug('*** CHECK PLAYER: mplayer found : ' + fmplayer);
        end
   else begin 
          result := false;
          debug('*** CHECK PLAYER: mplayer not found');
        end;
end;

Особенности
1.Среда разработки MSE-GUI, что позволит запустить ее на любом рабочем столе
2.минимализм.
3.основной движок - mplayer.

Операционная система : Linux
Платформа : X11
Язык интерфейса : Русский
Лицензия : GPL ver.2

coyot.rush писал(а):Посмотрел проект есть несколько замечаний
1) Заменить Tspacer на TTabWidget потому что
а) избавит от ручного управления табами

Код: Выделить всё

procedure tmainfo.openspacer(b : string);
begin
  s_1.visible := false;
  s_2.visible := false;
  s_3.visible := false;
  s_4.visible := false;
  (findcomponent('s_'+b) as tspacer).visible := true;
end;

б) устранит проблему при просмотре тв, появляются артефакты
в) Надписи в меню программы не будут наползать друг на друга (Проигрыватель...)

coyot.rush писал(а):2) установить минимальное значение для главной формы
3) Использовать tskincontroller для создания единообразного интерфейса

coyot.rush писал(а):4) Вынести путь к mplayer в ini файл и временно убрать проверку на имя файла

coyot.rush писал(а):Предложение по системе плагинов .
1) Создать именованный пайп (имя должно быть заранее оговорено) и с помощью него считывать список
2) Второй пайп можно использовать для внешнего управления (например ставить на паузу при получение электронной почты )

coyot.rush писал(а):Только Linux ?

daesher писал(а):Мой "велосипед" - http://pas-tuner.email.su

А вот зачем убирать проверку на имя файла? Поясните свою мысль

Система плагинов будет полностью изменена. Как раз над этим сейчас и работаем. Забавно должно получиться

Но пока остался один нерешаемый вопрос, который уже начал раздражать - как корректно поставить на паузу mplayer при просмотре он-лайн ресурсов в случае нехватки кеша (cache not filling)?

Pause(id:integer): boolean;
begin
Result:=False;
 if kill(id,SIGSTOP{SIGTSTP})=0 then Result:=True;
end;


function Play(id:integer): boolean;
begin
 Result:=False;
 if kill(id,SIGCONT)=0 then Result:=True;
end;

coyot.rush писал(а):PS: Данный хак как не странно работает
Сигналы в UNIX http://ru.wikipedia.org/wiki/%D0%A1%D0%B8%D0%B3%D0%BD%D0%B0%D0%BB%D1%8B_%28UNIX%29