الألوان الـ (16) الأساسية

Function: Main16Color

الغرض
الحصول على أحد الألوان الستة عشر الأساسية بتحديد رقم اللون.

الصيغة

function Main16Color(Index: Integer): TColor;

الوسائط (Parameters)

الشرح
لقد تم تصميم هذه الدالة لتعمل مثل الدالة QBColor في Visual Basic، و التي تعيد واحداً من الستة عشر لوناً الأساسية و ذلك بتحديد رقم اللون الذي يتراوح بين 0 و 15، كما هو مبين في الجدول التالي:

إذا تم تمرير قيمة أقل من الصفر فإن الدالة تعيد اللون الأسود، أما إذا تم تمرير قيمة أكبر من 15 فإن الدالة تحولها تلقائياً إلى قيمة ضمن النطاق باستعمال الباقي من القسمة على 16.

 أعلى الصفحة