تعيّن لون الحدود لكل حافة إلى إحدى فتحات ألوان سمة Office الاثنتي عشرة مع ظل اختياري. الرفيق لسمة
Border.Color. متوفرة في كل محدد حافة (العلوي، السفلي، الأيسر، الأيمن، القطري، بالإضافة إلى المحددات المركبة xlAround و xlInsideVertical و xlInsideHorizontal و xlInsideAll). متوفرة منذ الإصدار v2.61.0؛ اكتمل مسار المحدد المركب في الإصدار v2.63.0 (الموجة D المرحلة 6)
بناء الجملة
procedure SetThemeColor(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
يتم ترميزه في XFExt FullColorExt كعدد صحيح بعلامة Q15 في nTintShade
ملاحظات
نفس الانبعاث ثنائي السلك مثل محددات Interior / Font:
- يحصل سجل XF على icv مفهرس بأفضل تطابق على فتحة الحافة المطابقة للتوافق مع Excel 97-2003
- يحصل سجل XFExt $087D على فتحة FullColorExt لـ extType للحدود المطابقة ($0007 علوي، $0008 سفلي، $0009 أيسر، $000A أيمن، $000B قطري) مع
xclrType=3 و xclrValue=ThemeIdx
تسجل المحددات المركبة فتحة XFExt واحدة لكل حافة مادية في تمريرة حلقة خلية واحدة عبر مساعد تعيين الفتحات الداخلي. يسجل
xlAround {rsTop, rsBottom, rsLeft, rsRight}؛ يسجل
xlInsideVertical {rsLeft, rsRight}؛ يسجل
xlInsideHorizontal {rsTop, rsBottom}؛ يسجل
xlInsideAll الأربعة جميعها. تعيد القراءة من خلال
Border.Color RGB الذي تم حله
يحمل BIFF8 FullColorExt لونا قطريا واحدا فقط، لذلك يشترك xlDiagonalDown و xlDiagonalUp في نفس فتحة XFExt (rsDiag)
مثال
يحدد نطاق تقرير مع accent4 (لون السمة) ويضيف فاصلا داخليا accent5 بلون أفتح بنسبة 25٪
var
Report: IXLSRange;
begin
Report := Workbook.Sheets[1].Range['A1', 'F20'];
Report.Borders[xlAround].SetThemeColor(7, 0.0);
Report.Borders[xlInsideHorizontal].SetThemeColor(8, 0.25);
Workbook.SaveAs('ThemedBorders.xls', xlExcel97);
end;
انظر أيضاً