Imposta il colore del bordo per bordo su uno dei 12 slot colore tema Office con una tinta opzionale. Complemento tema di
Border.Color. Disponibile su ogni selettore di bordo (superiore, inferiore, sinistro, destro, diagonale, più i selettori composti xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Disponibile dalla v2.61.0; il percorso del selettore composto è stato completato nella v2.63.0 (onda D fase 6)
Sintassi
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parametri
ThemeIdx — slot tema in base 0
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — regolazione schiarimento/oscuramento nello stile spec nell'intervallo -1,0 .. +1,0
Codificato nel FullColorExt XFExt come numero intero con segno Q15 in nTintShade
Note
Stessa emissione doppio-wire dei setter Interior / Font:
- Il record XF riceve un icv indicizzato best-match nello slot del bordo corrispondente per la compatibilità con Excel 97-2003
- Il record XFExt $087D riceve uno slot FullColorExt per l'extType del bordo corrispondente ($0007 top, $0008 bottom, $0009 left, $000A right, $000B diagonal) con
xclrType=3 e xclrValue=ThemeIdx
I selettori composti registrano uno slot XFExt per bordo fisico in un unico passaggio a ciclo di celle tramite l'helper di set slot interno.
xlAround registra
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registra
{rsLeft, rsRight};
xlInsideHorizontal registra
{rsTop, rsBottom};
xlInsideAll registra tutti e quattro. La rilettura tramite
Border.Color restituisce il valore RGB risolto
BIFF8 FullColorExt porta solo un singolo colore diagonale, quindi xlDiagonalDown e xlDiagonalUp condividono lo stesso slot XFExt (rsDiag)
Esempio
Delinea una banda di report con accent4 (colore tema) e aggiunge un separatore interno accent5 con una tinta del 25% più chiara
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;
Vedere anche