Kenar başına kenarlık rengini, isteğe bağlı ton ile 12 Office tema renk yuvasından birine ayarlar. Tema karşılığı:
Border.Color. Her kenar seçicide mevcuttur (üst, alt, sol, sağ, çapraz, artı bileşik seçiciler xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). v2.61.0'dan beri mevcut; bileşik seçici yolu v2.63.0'da tamamlandı (wave D phase 6)
Sözdizimi
procedure SetThemeColor(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 the XFExt FullColorExt as a Q15 signed integer in nTintShade
Açıklamalar
Same dual-wire emission as the Interior / Font setters:
- XF kaydı, eşleşen kenar yuvasında Excel 97-2003 uyumluluğu için en iyi eşleşmeli dizinlenmiş icv değerini alır
- XFExt $087D kaydı, eşleşen kenarlık extType'ı için bir FullColorExt yuvası alır ($0007 üst, $0008 alt, $0009 sol, $000A sağ, $000B çapraz) ve
xclrType=3 and xclrValue=ThemeIdx
Bileşik seçiciler, dahili yuva ayarlama yardımcısı üzerinden tek bir hücre döngüsü geçişinde her fiziksel kenar için bir XFExt yuvası kaydeder.
xlAround registers
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registers
{rsLeft, rsRight};
xlInsideHorizontal registers
{rsTop, rsBottom};
xlInsideAll registers all four. Read-back through
Border.Color returns the resolved RGB
BIFF8 FullColorExt only carries a single diagonal color, so xlDiagonalDown and xlDiagonalUp share the same XFExt slot (rsDiag)
Örnek
Bu örnek, bir rapor bandını accent4 (tema rengi) ile çerçeveler ve %25 daha açık tonlu bir iç accent5 ayırıcı ekler
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;
Ayrıca bkz.