Hücre desen (arka plan) rengini isteğe bağlı ton ayarlamasıyla 12 Office tema renk yuvasından birine ayarlar. Bu,
Interior.PatternColor'un desen-renk eşlikçisidir. v2.61.0'dan beri mevcuttur
Söz dizimi
procedure SetPatternThemeColor(ThemeIdx: Word; Tint: Double);
Parametreler
ThemeIdx — 0 tabanlı tema yuvası
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — -1,0 .. +1,0 aralığında özellik stili aydınlatma/koyulaştırma ayarı. XFExt kaydında FullColorExt.nTintShade'e Q15 işaretli tamsayı olarak kodlanır
Açıklamalar
Hücre hem Excel 2007+ hem de Excel 2003'te doğru görüntülensin diye her çağrı için iki bağlantı yayınlanır
- XF kaydı, desen rengi için en iyi eşleşen indeksli icv alır (eski okuyucu yolu)
- XFExt $087D kaydı,
fillBg extType'i ($0005) için xclrType=3 (tema), xclrValue=ThemeIdx ve Tint'ten türetilen nTintShade ile bir FullColorExt yuvası alır
Interior.PatternColor aracılığıyla geri okuma, çözümlenmiş RGB'yi (tema + ton uygulanmış) döndürür, dolayısıyla arayanlar her zaman somut bir LongWord görür
Örnek
Renkler çalışma kitabı temasını takip etmek için accent1 / accent2 tema yuvalarını kullanan çizgili uyarı bandı oluşturur
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