Nastaví farbu orámovania na okraj jednému z 12 slotov farby témy Office s voliteľným odtieňom. Sprievodca témy pre
Border.Color. Dostupné pre každý selektor okraja (hore, dole, vľavo, vpravo, uhlopriečka, plus zložené selektory xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Dostupné od v2.61.0; cesta zložených selektorov bola dokončená vo v2.63.0 (vlna D fáza 6)
Syntax
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parametre
ThemeIdx — slot témy od 0
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — úprava svetlejšia/tmavšia podľa špecifikácie v rozsahu -1,0 .. +1,0
Zakódovaná do XFExt FullColorExt ako celé číslo Q15 so znamienkom v nTintShade
Poznámky
Rovnaká dvojitá emisná metóda ako nastavovače Interior / Font:
- Záznam XF dostane indexovaný icv s najlepšou zhodou na zodpovedajúcom okrajovom slote pre kompatibilitu s Excelom 97-2003
- Záznam XFExt $087D dostane slot FullColorExt pre zodpovedajúci border extType ($0007 horný, $0008 dolný, $0009 ľavý, $000A pravý, $000B diagonálny) s
xclrType=3 a xclrValue=ThemeIdx
Zložené selektory registrujú jeden slot XFExt na fyzický okraj v jedinom prechode slučky bunky cez interného pomocníka sady slotov.
xlAround registruje
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registruje
{rsLeft, rsRight};
xlInsideHorizontal registruje
{rsTop, rsBottom};
xlInsideAll registruje všetky štyri. Spätné čítanie cez
Border.Color vracia vyriešené RGB
BIFF8 FullColorExt nesie iba jednu farbu uhlopriečky, takže xlDiagonalDown a xlDiagonalUp zdieľajú rovnaký slot XFExt (rsDiag)
Príklad
Obklopí pás správy farbou accent4 (farba témy) a pridá vnútorný oddeľovač accent5 s odtieňom 25 % svetlejší
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;
Pozri tiež