[مشروع] برنامج مشغل ملفات صوتية - N0player

[merouane]

السلام عليكم و رحمة الله و بركاته
أردت برنامج خفيف لسماع القرآن خاصة يوم الجمعة (صوت مرتفع)
فتذكرت أن هناك برنامج يطور هنا ، فهذه مساهمة مني حتى يتم استعماله و لو في نطاق محدد.
قمت بالعمل على المظهر (skin) للعلم لست مصمم محترف لكن أستعمل ما ينتجه المصممون.
- صورة المظهر النهائية -


الواجهة الأصلية



المظهر المستعمل هو مجاني لذلك لا قيود على استعماله و يمكن روية كيفية إنشائه من هذا الرابط
http://www.photoshoplady.com/tutorial/de...oshop/2646

ليتوافق البرنامج (N0Player) مع المظهر الخارجي قمت ببعض التعديلات منها:
1- كتابة خاصيتين Repeated و Shuffled
2- حذف الأزار و Checkboxs
3- إلغاء بعض الأوامر (لم أرى لها أي فائدة) عبر جعلها "تعليقات" لسهولة العودة إليها من طرف المبرمجين الأصليين.
4- أمور رأيتها معقدة و يوجد حلول أبسط منها (أتكلم من جهتي و لا أحكم على الكود أو كاتبيه)، ربما وضع لأسباب منطقية لم أدركها في مـروري "السلامي" مثل:
لماذا property MinHeight، يمكن التحكم في طول الواجهة بأبسط مما هو مكتوب

كود :

procedure TN0P.SetUpDowValue(Value: boolean); begin fisUpOrDown:=Value; if Value=false then begin ///////////////// Hide Player List ////////////////// [color=Blue] N0P.ClientHeight := 133; [/color] UpDownBtn.Font.Color := $00928576; end else begin ////////////////////// Show Player List ///////////////////// [color=Blue] N0P.ClientHeight :=250;[/color] UpDownBtn.Font.Color := $00FFCAA8; end; end;

- - - - - - - - - -
خاصة هذه العملية ، أليست مكلفة مع أنه يوجد list واحدة فلماذا الحلقة

كود :

for i := 0 to ComponentCount-1 do // This affects only the Player List but neither List bath or history list ! if(( Components[i] is TListBox )And({only Player List!}Components[i].Name='lstName' ))then (Components[i] as TListBox).visible:=Not(Value);

ملاحظة أخرى : Repeat هل هي في البرنامج "الإعادة" أم "المواصلة" لقراءة التالي

ربما لم أذكر كل شيء (لا أريـد السهر حاليا لأنني لم أنم ليلتي )

لكن في العموم لم أحذف ما لم أعوضه أو ما ظننته مهم للمبرمجين الأصليين

في الأخير سينتج ملف تنفيذي ذو حجم 1,27 Mo (استعملت نسخة متوفرة أمامي وهي Delphi 2010)
الملف الأصلي كان حجمه 1,06 Mo

ربما مستقبلا سأحاول نقله إلى lazarus لتجريبه على لينوكس (الأن أقوم بالعبث بملفات PDF و برنامج في رأسي يزعجني فلن أتركه حتى أنهيه.)

في الأخير هذه النسخة مجربة لدي و لابد للمبرمجين الأصليين تنقيح الكود و حذف الزائد الذي تركته عمدا.
ثم نشر البرنامج Beta ليستعمله العالم.
سأترك لكم ترقيم النسخة

مستقبلا تحسين ProgressBar، SpeedButton، نوع خط الزمن لجعله رقمي حديث

أتمنى لكم التوفيق.