בית
Top.Mail.Ru Yandeks.Metrika
פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למטה

DelphiX_play מצא סניפים דומים


XeN   (2001-12-21 11:21) [0]

מי יודע לעשות אפקט סאונד סטריאו בדלפיקס.



3d[Power]   (2001-12-21 11:29) [1]

הליך זה הוא (c) 3d [כוח] למשחק NFK.

const opt_stereo : boolean = true;
opt_sound : boolean = true;
opt_channelapproach : byte = 10;
opt_reversestereo : boolean = false;

procedure PLAYSOUND(filename : shortstring;x : real);
var PanFactor, PanValue : Double;
begin
if OPT_SOUND = false then exit;
if OPT_STEREO = true then begin
PanFactor := 31.25; // 10000 is the panning range
PanValue := ((round(X) * PanFactor)-10000) / OPT_CHANNELAPPROACH;
if OPT_REVERSESTEREO then PanValue := -panvalue;
end else panvalue := 0;
try
WaveLst.Items.Find(filename).Pan := round(Panvalue);
WaveLst.Items.Find(filename).Play(False);
except
AddMessage("Error playing sound ""+filename+""");
end;
end;

קצר יותר מהשמעה ("שם הקובץ שלך ב- dxwavelist", 320) - במרכז.
קצר יותר מהשמעה ("שם הקובץ שלך ב- dxwavelist", 0) - משמאל.
קצר יותר מהשמעה ("שם הקובץ שלך ב- dxwavelist", 640) - בצד ימין.
אתה יכול להתאים את מידת אפקט הסטריאו :)



עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה





זיכרון: 0.54 MB
זמן: 0.019 c
3-21915
Kaa
2001-12-04 10:28
2002.01.08
איפוס המשתנה MSSQL2000


1-22248
לווייתן
2001-12-17 13:07
2002.01.08
דלפי לועג !!!


1-22040
לתפוס
2001-12-18 18:18
2002.01.08
יישור מבחן ב- TRichEdit


3-21956
סבסטיאנוב איגור
2001-12-05 17:56
2002.01.08
בצע באופן תכנותי את הכיבוי המיידי


1-22103
ProfiUgl
2001-12-19 17:15
2002.01.08
טופס אירוע





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский