Imposta il colore del motivo (sfondo) della cella su uno dei 12 slot colore tema Office con una regolazione di tinta opzionale. Complemento tema di
Interior.PatternColor. Disponibile dalla v2.61.0 (backlog grafico onda D fase 5)
Sintassi
procedure SetPatternThemeColor(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
Vengono emessi due wire per ogni chiamata in modo che la cella venga visualizzata correttamente sia in Excel 2007+ che in Excel 2003:
- Il record XF riceve un icv indicizzato best-match per il colore del pattern (percorso legacy del reader)
- Il record XFExt $087D riceve uno slot FullColorExt per l'extType
fillBg ($0005) con xclrType=3 (tema), xclrValue=ThemeIdx e nTintShade derivato da Tint
La rilettura tramite
Interior.PatternColor restituisce il valore RGB risolto tramite la tavolozza tema BIFF della cartella di lavoro
Esempio
Rende una banda di avviso striata usando gli slot tema accent1 / accent2 in modo che i colori seguano il tema della cartella di lavoro
var
Stripes: IXLSRange;
begin
Stripes := Workbook.Sheets[1].Range['B2', 'B10'];
Stripes.Interior.Pattern := xlPatternGray25;
Stripes.Interior.SetThemeColor(4, 0.4); // fill foreground (accent1, lighter)
Stripes.Interior.SetPatternThemeColor(5, - 0.25); // pattern color (accent2, darker)
Workbook.SaveAs('PatternThemeFills.xls', xlExcel97);
end;
Vedere anche