Тут новогодню песню на Delphi коришь написал :)

← →
Style (2003-03-03 14:32) [0]

program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
лес.елочка.age := лес.елочка.age+1;
if зима or лето then
begin
лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;

метель.filename:="D:\Music\NSYNC - Bye Bye Bye.mp3";
метель.open;
sleep(1000);
метель.play;

мороз.укутать(лес.елочка);
GetMessage(H, лес.елочка.handle, 0, 0);
if h.uint = wm_замерзла then
dead := true;
end;

лес.заяц.create;
лес.заяц.трусливый := true;
лес.заяц.color := cl_gray;
x := лес.елочка.left;
y := лес.елочка.top;
While x
Begin
лес.заяц.left := x;
inc(x);
лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );
end;

Winexec("wolf3d.exe /evil",0);

лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile("нарядная.jpg");
For i:=1 to SizeOf(Праздник.елочка.радость) do
Прадзник.Дети.Настроение + Праздник.елочка.радость;
End.

← →
Delirium^.Tremens © (2003-03-03 14:34) [1]

Ну и как он себе представляет это петь?

← →
Думкин © (2003-03-03 14:34) [2]

Этому корешу лет сто наверное, и борода длиииннная , длииииннная.
Так?

← →
SergeN (2003-03-03 14:37) [3]

> y := лес.елочка.top;
>

> лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );
>

Это что, зайцы по ёлкам лазают?

← →
Zhenka © (2003-03-03 14:45) [4]

>>>метель.filename:="D:\Music\NSYNC - Bye Bye Bye.mp3";
а если я твою песенку буду слушать на своем компе, и Метель.файлнейм у нас несовподёт!!!!
Используй Хотябы GetDir!!!
Я всегда избавляюсь от статических привязок.

и где извините меня
Бог1.мир1.Креэйт;???
а Лес:=Рандом(1000* Ёлочка);
итд

← →
zx © (2003-03-03 14:49) [5]

: )
уже весна пришла!
Праздник.елочка.free;

← →
Johnmen © (2003-03-03 14:55) [6]

Не перевелись еще на земле Русской плагиаторы !

← →
SergeN (2003-03-03 14:58) [7]

Позвольте подправить

For i:=1 to SizeOf(Праздник.елочка.радость) do
Begin
Вечеринка:=Праздник.Дети.Настроение + Праздник.елочка.радость;
if Вечеринка=c_радости_полные_штаны then Песенка.terminate;
end;

← →
han_malign © (2003-03-03 14:59) [8]

причем весной и осенью елочка получается какого-то неопредленного цвета (clWindowText? - черная? - это не елочка - это Феникс какой-то)

← →
SergeN (2003-03-03 15:10) [9]

> Позвольте подправить
>
> For i:=1 to SizeOf(Праздник.елочка.радость) do
> Begin
> Вечеринка:=Праздник.Дети.Настроение + Праздник.елочка.радость;
> if Вечеринка=c_радости_полные_штаны then Песенка.terminate;
> end;

Да, и ещё можно добавить в цикл Песенка.ProcessMessages, а то какой то завис получается :))

← →
Style (2003-03-03 15:19) [10]

Ну а может и не друг.. написал всеравно прикольно Ж))))

← →
Style (2003-03-03 15:22) [11]

А раньше мы с кореше на Делфи по мылу общались что-бы нихто не догодался :))

← →
Style (2003-03-03 15:26) [12]

Давайте найдем реального Автора этой Телеги и выскажем ему свои пожелания по поводу переделки текста (или кода как там правильнее) :)))

← →
SergeN (2003-03-03 15:29) [13]

Автор_этой_телеги.ShowModal;

← →
Style (2003-03-03 15:31) [14]

:)))
Безполезно он даже не TCONTROL

if Автор_этой_телеги.ShowModal = mrOK then Beep;

← →
Style (2003-03-03 15:34) [16]

>> zx
Тут спикер давным давно полетел Дети на радостях на елку повесили :))

Тут новогодню песню на Delphi коришь написал :) Найти похожие ветки