Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Ваши программы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 22.02.2009, 21:32
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
Лампочка Отлично!

Программа отличная. Автор молодец!

Несколько замечаний:

1. При попытке открыть *.flv файл выводит сообщение об ошибке
"Не удаётся воспроизвести файл. Формат не поддерживается. ($80040265)

2. При попытке прокрутить некоторые DVD фильмы ( *.VOB ) выводит сообщение об ошибке
"Division by zero"

Предложения по доработке:

1. При двойном щелчке левой кнопкой мыши на иконке восстанавливать окно программы ( а то лень жать правой а потом выбирать пункт меню "восстановить" )

2. Стоит добавить возможность скрывать иконки на рабочем столе, чтобы можно было нормально смотреть видео.
Делается это легко:
Код:
// скрыть
ShowWindow(GetWindow(FindWindow('ProgMan', nil), GW_CHILD), SW_HIDE);
// показать
ShowWindow(GetWindow(FindWindow('ProgMan', nil), GW_CHILD), SW_SHOW)

3. Сделать прилипание формы к краям экрана ( В D7 делается с помощь свойств формы ScreenSnap и SnapBuffer )
__________________
Велик и могуч наш Object Pascal !
ICQ: 357-591-887

Последний раз редактировалось Rokuell, 22.02.2009 в 21:45.
Ответить с цитированием
  #2  
Старый 25.02.2009, 02:12
Аватар для uberchel
uberchel uberchel вне форума
Прохожий
 
Регистрация: 25.02.2009
Сообщения: 18
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от qwak
Привет всем! У меня появилось время (каникулы) и я на писал вторую версию программы для замены картинки рабочего стола на видеофайл. В новой версии исправлено очень многое, многое добавлено. Баг в программе мною на данный момент обнаружен всего один. Он указан в Readme файле в одном архиве с программой. Пишите сюда ваши отзывы и предложения, указывайте на ошибки - постараюсь всё исправить. Ваши отзывы для меня очень важны! Данную версию я писал под себя, т.к. коментариев было мало. Это моя первая программа. Программу тестировал только на XP. Жду ваших коментариев с нетерпением!

Скачать старую версию можно тут: http://files.mail.ru/SC2MP9
Скачать новую - тут : http://files.mail.ru/5GIA6X

И ещё вопрос задам сразу... программа поддерживает очень много разных типов видеофайлов: *.drc;*.dsm;*.dsv;*.dsa;*.dss;*.vob;*.ifo;*.d2v;*. flv;*.fli;*.flc;*.flic;*.ivf;*.mkv;*.mpg;*.mpeg;*. mpe;*.m1v;*.m2v;*.mpv2;*.mp2v;*.dat;*.ts;*.tp;*.tp r;*.pva;*.pss;*.mp4;*.m4v;*.m4p;*.m4b;*.hdmov;*.3g p;*.3gp2;*.ogm;*.divx;*.vp6;*.rmvb;*.mov;*.qt;*.am r;*.3g2;*.3gp2;*.ratdvd;*.rm;*.ram;*.rpm;*.rmm;*.r nx;*.rt;*.rp;*.smi;*.smil;*.roq;*.swf;*.smk;*.bik; *.avi;*.wmv;*.wmp;*.wm;*.asf и др. А теперь вопрос: я ставлю фильтр на опендайлог так: OpenDialog1.Filter:='Все поддерживаемые форматы видео |...'+ следущая строчка '...'; Всего строчек 3. Где-то с середины третей строчки расширения опендайлогом перестают распозноваться. Что делать?
Кто ответа на данный вопрос не знает - просто оставьте свой комментарий о программе.
Пиши так:
OpenDialog1.Filter:= '(All Surrorted files)|*.mp3; *.wav; *.ogg; *.mus; *.bik; *.wma; *.mp4';
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:54.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025