تعين لون نمط الخلية (الخلفية) إلى إحدى فتحات ألوان سمة Office الاثني عشر مع تعديل تظليل اختياري. هذا هو الرفيق للون النمط لـ
Interior.SetThemeColor — استخدمه مع
Pattern غير الصلب لعرض تعبئات التظليل / التنقيط التي يعاد تلوينها عند قيام Excel بإعادة تطبيق سمة المصنف. متوفر منذ الإصدار v2.61.0 (مرحلة التراكم للمخططات D المرحلة 4)
البناء
procedure SetPatternThemeColor(ThemeIdx: Word; Tint: Double);
المعلمات
ThemeIdx — فتحة السمة بأساس 0
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — تعديل تفتيح/تغميق بنمط المواصفات في النطاق -1.0 .. +1.0
مشفر في FullColorExt.nTintShade كعدد صحيح بإشارة Q15 في سجل XFExt
ملاحظات
يتم إصدار سلكين لكل استدعاء بحيث يتم عرض الخلية بشكل صحيح في كل من Excel 2007+ و Excel 2003:
- يحصل سجل XF على فهرس icv الأفضل تطابقًا للون النمط (مسار القارئ القديم)
- يحصل سجل XFExt $087D على فتحة FullColorExt لـ
fillBg extType ($0005) مع xclrType=3 (theme) و xclrValue=ThemeIdx و nTintShade المستمد من Tint
تُرجع القراءة مرة أخرى عبر
Interior.PatternColor قيمة RGB المحلولة (تم تطبيق السمة + التظليل)، بحيث يرى المستدعون دائمًا LongWord محددًا
مثال
يعرض شريط تحذير مخططًا باستخدام فتحات السمة accent1 / accent2 بحيث تتبع الألوان سمة المصنف
var
Stripes: IXLSRange;
begin
Stripes := Workbook.Sheets[1].Range['B2', 'B10'];
Stripes.Interior.Pattern := xlPatternGray25;
Stripes.Interior.SetThemeColor(4, 0.4); // تعبئة المقدمة (accent1، أفتح)
Stripes.Interior.SetPatternThemeColor(5, - 0.25); // لون النمط (accent2، أغمق)
Workbook.SaveAs('PatternThemeFills.xls', xlExcel97);
end;
انظر أيضًا