מגדיר את צבע גבול הקצה לאחד מ-12 חריצי צבע ערכת הנושא של 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 — כיוונון הבהרה/הכהיה בסגנון-spec בטווח -1.0 .. +1.0
מקודד לתוך FullColorExt של XFExt כמספר שלם חתום 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;
ראה גם