Nastaví farbu vzoru bunky (pozadie) na jeden z 12 slotov farby témy Office s voliteľnou úpravou odtieňa. Toto je sprievodca farby vzoru pre
Interior.SetThemeColor — použite ho spolu s nevyplneným
Pattern na vykreslenie šrafovaných alebo bodkovaných výplní, ktoré sa znova odtienia pri aplikovaní témy zošita Excelom. Dostupné od v2.61.0 (vlna D fáza 4 nevybavenej grafu)
Syntax
procedure SetPatternThemeColor(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 FullColorExt.nTintShade ako celé číslo Q15 so znamienkom na zázname XFExt
Poznámky
Pre každé volanie sú emitované dva drôty, aby bunka vykresľovala správne v Exceli 2007+ aj v Exceli 2003:
- Záznam XF dostane indexovaný icv s najlepšou zhodou pre farbu vzoru (staršia cesta čítačky)
- Záznam XFExt $087D dostane slot FullColorExt pre extType
fillBg ($0005) s xclrType=3 (téma), xclrValue=ThemeIdx a nTintShade odvodeným z Tint
Spätné čítanie cez
Interior.PatternColor vracia vyriešené RGB (téma + odtieň aplikovaný), takže volajúci vždy vidia konkrétny LongWord
Príklad
Vykreslí pruhovaný varovný pás pomocou slotov témy accent1 / accent2, aby farby sledovali tému zošita
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;
Pozri tiež