Nastaví barvu ohraničení na okraj jednomu z 12 slotů barev motivu Office s volitelným tónem. Doprovodná funkce motivu pro
Border.Color. Dostupná pro každý selektor okraje (horní, dolní, levý, pravý, diagonální a složené selektory xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Dostupná od v2.61.0; cesta složených selektorů byla dokončena ve v2.63.0 (vlna D fáze 6)
Syntaxe
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parametry
ThemeIdx — slot motivu na bázi 0
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — úprava zesvětlení/ztmavení ve stylu specifikace v rozsahu -1.0 .. +1.0
Kódováno do XFExt FullColorExt jako Q15 celé číslo se znaménkem v nTintShade
Poznámky
Stejná emise na dvou drátech jako přepínače Interior / Font:
- Záznam XF dostane nejlepší odpovídající indexovaný icv na odpovídající hranové pozici pro kompatibilitu s Excelem 97-2003
- Záznam XFExt $087D dostane slot FullColorExt pro odpovídající typ rozšíření okraje (extType $0007 nahoře, $0008 dole, $0009 vlevo, $000A vpravo, $000B diagonálně) s
xclrType=3 a xclrValue=ThemeIdx
Složené selektory registrují jeden slot XFExt na každý fyzický okraj v jediném průchodu smyčkou buněk prostřednictvím interní pomocné funkce slot-set.
xlAround registruje
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registruje
{rsLeft, rsRight};
xlInsideHorizontal registruje
{rsTop, rsBottom};
xlInsideAll registruje všechny čtyři. Zpětné čtení prostřednictvím
Border.Color vrací přeloženou hodnotu RGB
BIFF8 FullColorExt nese pouze jednu barvu diagonály, takže xlDiagonalDown a xlDiagonalUp sdílejí stejný slot XFExt (rsDiag)
Příklad
Ohraničí pás sestavy barvou accent4 (barva motivu) a přidá vnitřní oddělovač accent5 s 25% světlejším tónem
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;
Viz také