Исправить код

[саша40]

Привет. Хочу чтобы вы помогли мне исправить такой код:

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;

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

[Человек_Борща]

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

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

[саша40]

Сообщение от Человек_Борща

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

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

коменты почитайте

[Человек_Борща]

Почитал. Нет ничего про ошибку.

[саша40]

Сообщение от Человек_Борща

Почитал. Нет ничего про ошибку.

В коде, по компиляции, нет. Но есть какая-то ошибка которую я пропустил и она делает так что у меня нечего не происходит.

[Человек_Борща]

Ваш код - всего-то присвоение свойств компонентам. Там нет ошибок.
Может все-таки скажете что за проблема?
P.S. Вы продолжаете думать что все телепаты а вы пуп земли? Удачи...

[s-andriano]

Как известно, программа всегда работает в точности так, как ее написал программист. Правда, не всегда так, как он хотел написать.
Пока мы не знаем, чего именно Вы хотите от приведенного куска кода, мы не можем Вам ничего посоветовать - программа работает именно так, как написана.
Вот если бы Вы указали, чего именно Вы ожидаете от работы программы, тогда, возможно, и появился бы предм5ет для обсуждения.

[саша40]

Тему давно уже пора закрыть. Проблему сам решил.