LOVE STORY
اهلاً ومرحباً بكــــم فى منتدى قصة الحب

LOVE STORY

افلام عربى - افلام اجنبى - افلام كرتون - العاب - برامج - اغانى- كليبات - اسلاميات
 
zoom inالرئيسيةاليوميةس .و .جبحـثالتسجيلدخول

شاطر | 
 

 اقوى فلاشات زابت

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
shabrawy
منشىءالمنتدى
منشىءالمنتدى
avatar

عدد الرسائل : 343
العمر : 29
الموقع : http://lovestory.iowoi.org
المزاج : habby
تاريخ التسجيل : 13/10/2007

بطاقة الشخصية
مزاجى: سعيد

مُساهمةموضوع: اقوى فلاشات زابت   الثلاثاء أكتوبر 30, 2007 7:09 pm

5- أضف الكود التالي في الحدث OnClick ل: button1:
كود
procedure TForm1.Button1Click(Sender: TObject);
var movie, txt, obj: variant;
i: integer;
filename:string;
begin
filename := getcurrentdir+'\sample.swf';

movie := CreateOLEObject('swfObjs.swfMovie');
movie.SetSize(6400, 3700);

txt := CreateOLEObject('swfObjs.swfObject');
obj := CreateOLEObject('swfObjs.swfObject');

obj.MakeRectangle(0, 0, 6380, 3680);
obj.SetRadialFill(255, 255, 255, 255, 255, 224, 224, 255);
obj.SetRadialFillCenter (5190, 1895);

obj.SetDepth(0);
movie.AddObject(obj);

obj.MakeFont('MyFont');
obj.AddGlyph('Arial', 'Hello,', ord('H'));
obj.AddGlyph('Arial', 'arabteam', ord('B'));

txt.MakeText('HB', obj);
txt.translate(500, 1500);
txt.SetSolidFill(255, 0, 0, 250);
txt.Scale(65536 div 2, 65536 div 2);
movie.AddObject(txt);

for i := 10 to 50 do
begin
movie.GotoFrame(i);
if i >= 10 then movie.RemoveObject(txt);
txt.rotate( (50-i)*65536 * 9);
txt.Scale( (60-i)*6553, (60-i)*6553);
txt.SetSolidFill(255, 0, 0, (i-9)*5);
movie.AddObject(txt);
end;

movie.WriteMovie(filename);

ShockwaveFlash1.Movie := filename;
ShockwaveFlash1.play;

end;


6- أضف الكود التالي في الحدث OnClick ل: button2:
كود
procedure TForm1.Button2Click(Sender: TObject);
begin
ShockwaveFlash1.play;
end;


7- أضف الكود التالي في الحدث OnClick ل: button3:
كود
procedure TForm1.Button3Click(Sender: TObject);
begin
ShockwaveFlash1.Stop;
end;


8- أضف الوحدة comobj إلى uses في الفورم1 وذلك لكي يتعرف الدلفي على الأمر CreateOLEObject.

شكرا لكل من ساهم في هذه الطريقة في الموقع المذكور أعلاه...

وأكرر اعتذاري على التأخير ... لكن المهم أن تستفيدوا من هذه المشاركة...

وأرجوا أن أرى ردودكم وتطبيقاتكم وتحسينات لهذه الطريقة عن قريب...

والسلام عليكم ورحمة الله وبركاته...
http://www.paramegsoft.com/forum/topic19926.html
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://a7medcrazy.blogspot.com
 
اقوى فلاشات زابت
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
LOVE STORY :: 
المنتدى العام
-
انتقل الى: