Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 30.09.2012, 20:12   #1
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
Счастье Исправить код

Привет. Хочу чтобы вы помогли мне исправить такой код:
Код:
procedure TForm6.Panel1DblClick(Sender: TObject);
begin
if xVideo_ChannelPlay(stream)=false then exit;  //если воспроизведение не идет то выходим
if xVideo_ChannelStop(stream)=true then exit;   //если активна стоп то выходим
if xVideo_ChannelPause(stream)=true then exit;  //если активна пауза то выходим
if FullScreen=false then
begin
//скрываем листбоксы
ListBox1.Visible:=false;
ListBox2.Visible:=false;
//скрываем кнопки для управления плейлистом
SpeedButton1.Visible:=false;
SpeedButton2.Visible:=false;
SpeedButton3.Visible:=false;
SpeedButton4.Visible:=false;
//скрываем кнопки для управления видеоплеером
BitBtn1.Visible:=false;
BitBtn2.Visible:=false;
BitBtn3.Visible:=false;
BitBtn4.Visible:=false;
BitBtn5.Visible:=false;
//скрываем комбобокс, трекбар, скроллбар и статус бар
ComboBox1.Visible:=false;
Trackbar1.Visible:=false;
StatusBar1.Visible:=false;
//скрываем лебелы
Label3.Visible:=false;
Label4.Visible:=false;
//меняем цвет шрифта у лебелов
Label1.Font.Color:=clGreen;
Label2.Font.Color:=clGreen;
//меняем доступность popupmenu
N6.Enabled:=false;
//меняем размеры формы
Form6.BorderStyle:=bsNone;
Form6.FormStyle:=fsstayOnTop;
Form6.WindowState:=wsMaximized;
//делаем панель
Panel1.Align:=alClient;
xVideo_ChannelSetWindow(stream,screen.Width,screen.Height);
FullScreen:=true;
end
else
exit;

end;
И выход из него:
Код:
procedure TForm6.WMKeyDown(var Msg: TWMKeyDown);
begin
if Msg.CharCode=VK_ESCAPE then
begin
if FullScreen=true then
begin
//возвращаем обратно форму
Form6.BorderStyle:=bsSizeable;
Form6.FormStyle:=fsNormal;
Form6.WindowState:=wsNormal;
//возвращаем размеры панели
Panel1.Align:=alNone;
Panel1.Height:=745;
Panel1.Width:=873;
//изменяем канфигурации воспроизведения
xVideo_ChannelSetWindow(stream,Panel1.Height,Panel1.Width);
//показываем все кнопки
BitBtn1.Visible:=true;
BitBtn2.Visible:=true;
BitBtn3.Visible:=true;
BitBtn4.Visible:=true;
BitBtn5.Visible:=true;
SpeedButton1.Visible:=true;
SpeedButton2.Visible:=true;
SpeedButton3.Visible:=true;
SpeedButton4.Visible:=true;
//показывем лебалы и меняем их цвет шрифта
Label1.Font.Color:=clWindowText;
Label2.Font.Color:=clWindowText;
Label3.Visible:=true;
Label4.Visible:=true;
//показываем скроллбар и трекбар
ScrollBar1.Visible:=true;
TrackBar1.Visible:=true;
//показывем комбобокс и листбоксы
ComboBox1.Visible:=true;
ListBox1.Visible:=true;
ListBox2.Visible:=true;
//показываем статусбар
StatusBar1.Visible:=true;
//меняем значение переменой
FullScreen:=false;
N6.Enabled:=true;
end;
end;
end;
Не пойму где имено тут недочет. Проблема в том, что код то правильный, а при использование нечего не происходит.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Старый 30.09.2012, 22:42   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,455
По умолчанию

Код дал, а в чем проблема - сами угадайте. Если код правильный, то и проблем нет.

P.S. Как вы в таком бардаке ещё разбираетесь? Пора учится, делать, Человеко-Понятные Переменные

Последний раз редактировалось Человек_Борща; 30.09.2012 в 22:44.
Человек_Борща вне форума Ответить с цитированием
Старый 01.10.2012, 19:26   #3
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
Код дал, а в чем проблема - сами угадайте. Если код правильный, то и проблем нет.

P.S. Как вы в таком бардаке ещё разбираетесь? Пора учится, делать, Человеко-Понятные Переменные
коменты почитайте
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Старый 01.10.2012, 19:47   #4
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,455
По умолчанию

Почитал. Нет ничего про ошибку.
Человек_Борща вне форума Ответить с цитированием
Старый 02.10.2012, 11:01   #5
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
Почитал. Нет ничего про ошибку.
В коде, по компиляции, нет. Но есть какая-то ошибка которую я пропустил и она делает так что у меня нечего не происходит.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Старый 02.10.2012, 11:06   #6
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,455
По умолчанию

Ваш код - всего-то присвоение свойств компонентам. Там нет ошибок.
Может все-таки скажете что за проблема?
P.S. Вы продолжаете думать что все телепаты а вы пуп земли? Удачи...
Человек_Борща вне форума Ответить с цитированием
Старый 02.10.2012, 12:37   #7
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

Как известно, программа всегда работает в точности так, как ее написал программист. Правда, не всегда так, как он хотел написать.
Пока мы не знаем, чего именно Вы хотите от приведенного куска кода, мы не можем Вам ничего посоветовать - программа работает именно так, как написана.
Вот если бы Вы указали, чего именно Вы ожидаете от работы программы, тогда, возможно, и появился бы предм5ет для обсуждения.
s-andriano вне форума Ответить с цитированием
Старый 06.11.2012, 21:01   #8
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию

Тему давно уже пора закрыть. Проблему сам решил.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме от 7000 рублей в месяц



Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
исправить код seed92 Помощь студентам 0 21.02.2011 16:02
нужно исправить код Alt_Shift Общие вопросы C/C++ 4 14.11.2010 16:16
Как исправить код? kolyan123 Помощь студентам 1 29.10.2009 19:23
Исправить код DirtyBASS Помощь студентам 2 22.09.2009 09:20
Исправить код IndividBezLica Помощь студентам 0 02.06.2009 08:41


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Скидки на курсы GeekBrains 40%, выбирайте программу для себя