помогите перевести в pascal!

← →
Карлсон © (2003-01-08 13:18) [0]

есть сишный код:

static void screenQuake(){ const int screenSX = 1024; // это разрешение экрана, для простоты const int screenSY = 768; // делаю фиксированное HDC screenDC = GetDC(0); HDC memoryDC = CreateCompatibleDC(screenDC); HBITMAP bmp = CreateCompatibleBitmap(screenDC, screenSX, screenSY); HBITMAP oldBMP = (HBITMAP)SelectObject(memoryDC, bmp); BitBlt(memoryDC, 0, 0, screenSX, screenSY, screenDC, 0, 0, SRCCOPY); for (int i = 0; i < 60; i++) { int x = (int)((50. * rand()) / RAND_MAX); int y = (int)((50. * rand()) / RAND_MAX); BitBlt(screenDC, x, y, screenSX, screenSY, memoryDC, 0, 0, SRCCOPY); Sleep(30); } SelectObject(memoryDC, oldBMP); DeleteDC(memoryDC); DeleteObject(bmp);}

частично перевел, дальше наступил ступор.
помогите пожалуйста! :)

← →
Карлсон © (2003-01-08 13:19) [1]

если конкретно, то я не понимаю, что следует за for (...

← →
VictorT © (2003-01-08 13:20) [2]

Где ступор наступил?

← →
MBo © (2003-01-08 13:21) [3]

в каком месте ступорит?

← →
MBo © (2003-01-08 13:23) [4]

Randomize;
for i:=0 to 59 do begin
BitBlt(memoryDC, 0, 0, screenSX, screenSY, screenDC, 0, 0, SRCCOPY);
x:=Random(50);
y:=Random(50);
BitBlt(screenDC, x, y, screenSX, screenSY, memoryDC, 0, 0, SRCCOPY);
Sleep(30);
end;

← →
Digitman © (2003-01-08 13:26) [5]

не парься

http://sourceforge.net/forum/forum.php?forum_id=234982

Quake2-код портирован в Делфи

← →
gek © (2003-01-08 13:28) [6]

const int screenSY = 768; // делаю фиксированное
HDC screenDC = GetDC(0);
HDC memoryDC = CreateCompatibleDC(screenDC);
HBITMAP bmp = CreateCompatibleBitmap(screenDC, screenSX, screenSY);
HBITMAP oldBMP = (HBITMAP)SelectObject(memoryDC, bmp);

Эти все дела надо объявить в секции Varпримерно
var
screenSX = 1024; // это разрешение экрана, для простоты
screenSY = 768;

← →
Карлсон © (2003-01-08 13:32) [7]

да я понимаю, что скриниксы\игрики, меморидиси и скриндиси это все в секции Var. с этим проблем не возникло.

спасибо MBo за помошь!

2 Digitman © (08.01.03 13:26)
что-то я не понял, при чем тут квака?

← →
gek © (2003-01-08 13:37) [8]

был неправ
const integer:screenSX = 1024; // это разрешение экрана, для ты
const integer:s= 768; // делаю фиксированное
остальное к сожалению придется делать самому

ну и так далее
Прошу прощения за допущенные раннее ошибки

← →
Digitman © (2003-01-08 13:44) [9]

>Карлсон

Ну у тебя в идент-ре screen Quake() "квака" фигурирует)

Вот я и подумал - а не сходить ли тебе туда за готовыми (синтаксическими и функциональными) решениями ))

← →
Ketmar © (2003-01-08 13:56) [10]

>gek © (08.01.03 13:37)
const integer:screenSX = 1024; // это разрешение экрана, для ты
const integer:s= 768; // делаю фиксированное
это что такое написано?!!

Satanas Nobiscum! 08-Jan-XXXVIII A.S.

← →
Карлсон © (2003-01-08 16:21) [11]

2 Digitman © (08.01.03 13:44)
:)))
вот этот код сдвигает изображение на мониторе.
а вот можно ли сделать эффект типа degauss(не помню точно как пишется, размагничивание вообщем)?

← →
Игорь Шевченко © (2003-01-08 16:45) [12]

Карлсон © (08.01.03 16:21)

> а вот можно ли сделать эффект типа degauss(не помню точно
> как пишется, размагничивание вообщем)?

А можно сделать так, чтобы дество в одном месте перестало играть ? Или, по крайней мере, учиться делать пакости самостоятельно, не спрашивая совета ?

← →
Карлсон © (2003-01-08 17:02) [13]

2 Игорь Шевченко © (08.01.03 16:45)
ну вот почему сразу пакости?!
и у меня детство кстати еще не закончилось :)
и зачем самому придумывать все сначала, если кто-то уже придумал и готов этим поделиться?

Карлсон © (08.01.03 17:02)

А как еще назвать трясение экрана и прочие прелести ? :-)))
Мне трудно поверить в то, что это делается для того, чтобы самому часами смотреть на трясущийся экран :-)))

2 Игорь Шевченко © (08.01.03 17:22)
что-то типа "Прикольная винда" :)))
самому - нет, а вот подшутить над одноклассниками в кабинете информатики - вот это хорошо.
я же не спрашиваю, как отформатировать все и вся и удалить нулевую дорожку ;)

> а вот подшутить над одноклассниками в кабинете информатики
> - вот это хорошо.

по крайней мере, учиться делать пакости самостоятельно, не спрашивая совета

помогите перевести в pascal! Найти похожие ветки