Stelt de randkleur per rand in op één van de 12 Office-themakleursloten met een optionele tint. Themacompanion van
Border.Color. Beschikbaar op elke randselector (boven, onder, links, rechts, diagonaal, plus de samengestelde selectors xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Beschikbaar sinds v2.61.0; het pad voor samengestelde selectors was af in v2.63.0 (wave D fase 6)
Syntaxis
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parameters
ThemeIdx — 0-based theme slot
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — aanpassing lichter/donkerder in spec-stijl, in het bereik -1.0 .. +1.0
Encoded into the XFExt FullColorExt as a Q15 signed integer in nTintShade
Opmerkingen
Dezelfde dubbele wegschrijfwijze als de Interior- en Font-setters:
- Het XF-record krijgt op het bijbehorende randslot een best-match geïndexeerde icv voor Excel 97-2003-compatibiliteit
- Het XFExt $087D -record krijgt een FullColorExt-slot voor de bijbehorende rand-extType ($0007 boven, $0008 onder, $0009 links, $000A rechts, $000B diagonaal) met
xclrType=3 en xclrValue=ThemeIdx
Samengestelde selectors registreren één XFExt-slot per fysieke rand in één cel-loop-pass via de interne slot-set-helper.
xlAround registreert
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registreert
{rsLeft, rsRight};
xlInsideHorizontal registreert
{rsTop, rsBottom};
xlInsideAll registreert alle vier. Teruglezen via
Border.Color geeft de herleide RGB terug
BIFF8 FullColorExt only carries a single diagonal color, so xlDiagonalDown and xlDiagonalUp share the same XFExt slot (rsDiag)
Voorbeeld
tekent een rapportband om met accent4 (themakleur) en voegt een binnenste accent5-scheiding toe met een 25% lichtere tint
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;
Zie ook