Hücre deseni (zemin) rengini, isteğe bağlı ton ayarıyla 12 Office tema renk yuvasından birine ayarlar. Desen rengi karşılığı:
Interior.SetThemeColor — use it together with a non-solid
Pattern ile, Excel çalışma kitabı temasını yeniden uyguladığında yeniden tonlanan taralı / noktalı dolgular işlenir. v2.61.0'dan beri mevcut (chart backlog wave D phase 4)
Sözdizimi
procedure SetPatternThemeColor(ThemeIdx: Word; Tint: Double);
Parametreler
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 FullColorExt.nTintShade as a Q15 signed integer on the XFExt
record
Açıklamalar
Her çağrı için iki kayıt yayınlanır; böylece hücre hem Excel 2007+'da hem de Excel 2003'te doğru işlenir:
- XF kaydı, desen rengi için en iyi eşleşmeli dizinlenmiş icv değerini alır (eski okuyucu yolu)
- The XFExt $087D record gets a FullColorExt slot for the
fillBg extType ($0005) with xclrType=3 (theme), xclrValue=ThemeIdx, and nTintShade derived from Tint
Reading back via
Interior.PatternColor çözümlenmiş RGB'yi (tema + ton uygulanmış) döndürür; çağıranlar her zaman somut bir LongWord görür
Örnek
Bu örnek, renklerin çalışma kitabı temasını takip etmesi için accent1 / accent2 tema yuvalarını kullanarak çizgili bir uyarı bandı işler
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;
Ayrıca bkz.