Sætter kantfarven pr. kant til en af de 12 Office-temafarvepladser med valgfri farvetone. Tema-modstykke til
Border.Color. Tilgængelig på alle kantvælgere (top, bund, venstre, højre, diagonal plus de sammensatte vælgere xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Tilgængelig siden v2.61.0; stien til de sammensatte vælgere blev fuldført i v2.63.0 (wave D fase 6)
Syntaks
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parametre
ThemeIdx — 0-based theme slot
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — spec-style lighter/darker adjustment in the range -1.0 .. +1.0
Encoded into the XFExt FullColorExt as a Q15 signed integer in nTintShade
Bemærkninger
Same dual-wire emission as the Interior / Font setters:
- XF-recorden får et bedst matchende indekseret icv på den tilsvarende kantplads af hensyn til Excel 97-2003-kompatibilitet
- XFExt $087D-recorden får en FullColorExt-plads til den tilsvarende kant-extType ($0007 top, $0008 bund, $0009 venstre, $000A højre, $000B diagonal) med
xclrType=3 and xclrValue=ThemeIdx
Sammensatte vælgere registrerer én XFExt-plads pr. fysisk kant i ét gennemløb af cellerne via den interne slot-sæt-hjælper
xlAround registers
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registers
{rsLeft, rsRight};
xlInsideHorizontal registers
{rsTop, rsBottom};
xlInsideAll registers all four. Read-back through
Border.Color returns the resolved RGB
BIFF8 FullColorExt only carries a single diagonal color, so xlDiagonalDown and xlDiagonalUp share the same XFExt slot (rsDiag)
Eksempel
Giver et rapportbånd en kant med accent4 (temafarve) og tilføjer en indre accent5-adskiller med 25 % lysere farvetone
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;
Se også