Задава цвета на шрифта към един от 12 слота за цветове на Office тема с незадължителна корекция на тона. Тематичен спътник на
Font.Color — използвайте го, когато приложението иска да следва тематичната палитра на работната книга вместо да фиксира буквален RGB. Наличен от v2.61.0 (диаграма, изоставане вълна D, фаза 4)
Синтаксис
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Параметри
ThemeIdx — слот на тема с нулева база
(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.SetThemeColor, но записва rsFont слота на XFExt $087D extType ($000D). XF записът на шрифта все още получава най-близко съответстващ индексиран icv, за да видят приближение читателите на Excel 97-2003; Excel 2007+ извлича точния индекс на тема + тон от XFExt FullColorExt слота
Обратното четене чрез
Font.Color връща RGB, разрешен чрез тематичната палитра BIFF на работната книга, така че приложението винаги вижда конкретен LongWord независимо дали оригиналният сетер е бил RGB или базиран на тема
Пример
Маркира одитна колона с accent3 + тон, за да проследява цвета на шрифта спрямо темата на работната книга
Workbook.Sheets[1].Range['D2', 'D50'].Font.SetThemeColor(6, - 0.25);
Workbook.SaveAs('AuditColumn.xls', xlExcel97);
Вижте също