[SCrat.ORS]

Просто хочу поделиться.
Использован WinAPI, Ddraw, bass
Самая обычная заставка "сквозь вселенную", но с отличительной особенностью - Анаглиф (очки с голубым и красным фильтром).
Если в корень закинуть релакс-трек с именем music.mp3 - он будет воспроизведён вместе с заставкой. Разрешение экрана установлено 800х600.

Компилированная версия - Тут
Исходники - Тут

Если есть желание, - изменяйте по своему вкусу, добовляйте, и т.д. за авторство не беспокоюсь. или просто релаксируйте и наслаждайтесь чем есть.

[NumLock]

fone.bmp не хватает и не плохо бы:

Код:

function WindowProc (hwnd, msg: longWORD; wParam, lParam: Integer): longint; stdcall;
begin
result:=0;
case Msg of
  WM_KEYDOWN: SendMessage(hwnd, WM_CLOSE, 0, 0);

эффект есть

[ined]

Я тоже оценил. Но вот только ГДЕ ВЗЯТЬ ОЧКИ!! )))))))

[NumLock]

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

ГДЕ ВЗЯТЬ ОЧКИ!!

http://dx.com/c/hobbies-toys-899/3d-glasses-832
либо картонные в стереожурналах в книжных магазинах

[ined]

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

http://dx.com/c/hobbies-toys-899/3d-glasses-832
либо картонные в стереожурналах в книжных магазинах

Ну ты прям пошутил)))))

[angvelem]

Очень порадовал сайт ТС , но орфографические ошибки лучше исправить.

[SCrat.ORS]

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

Очень порадовал сайт ТС , но орфографические ошибки лучше исправить.

У меня на сайте ошибочки, или где?

[angvelem]

Именно там. В одном случае слово "Здесь" написано правильно, в другом чарез букву "С".

[SCrat.ORS]

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

fone.bmp не хватает и не плохо бы:

Код:

function WindowProc (hwnd, msg: longWORD; wParam, lParam: Integer): longint; stdcall;
begin
result:=0;
case Msg of
  WM_KEYDOWN: SendMessage(hwnd, WM_CLOSE, 0, 0);

эффект есть

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

[SCrat.ORS]

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

Именно там. В одном случае слово "Здесь" написано правильно, в другом чарез букву "С".

Бывает, сейчас поправлю. Спс

[angvelem]

Для такой программы, я бы отказался от юнита Graphics.

[SCrat.ORS]

Честно говоря, мне было просто лень с графикой думать. Да, можно и отказаться.

[angvelem]

Если я не ошибаюсь (нужно в отладчике глянуть), для Дельфи использование Release нежелательно. Он сам отслеживает все интерфейсы.

[SCrat.ORS]

Я точно не помню, но для чего-то он нужен был для ddraw ... давно код писал этот
Он вроде графический буфер сурфейса очищает, или что-то типа того.

[angvelem]

Впечатления:
1. Как писал NumLock, добавить выход по клавише/мышке.
2. При отсутствии фона крэш программы, пришлось заблокировать.
3. Нужен выбор оконный/полноэкранный.
4. При переключении по Alt-Tab, плывут все размеры и положения других окон.

5. Где-то откапать старые стерео-очки.

P.S. Доработать и на выставку.