Her kenar kenarlığı rengini 12 Office tema renk yuvasından birine isteğe bağlı bir tonla ayarlar.
Border.Color'un tema tamamlayıcısı. v2.61.0'dan beri mevcuttur; bileşik seçici yolu v2.63.0'da tamamlandı
Söz dizimi
procedure SetThemeColor(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 FullColorExt'e nTintShade içinde Q15 işaretli tamsayı olarak kodlanır
Açıklamalar
Interior / Font ayarlayıcılarıyla aynı çift kablolu yayım:
- XF kaydı, Excel 97-2003 uyumluluğu için eşleşen kenar yuvasında en iyi eşleşen indeksli icv alır
- XFExt $087D kaydı, eşleşen kenar extType'i ($0007 top, $0008 bottom, $0009 left, $000A right, $000B diagonal) için
xclrType=3 ve xclrValue=ThemeIdx ile bir FullColorExt yuvası alır
Bileşik seçiciler, dahili yuva kümesi yardımcısı aracılığıyla tek bir hücre döngü geçişinde her fiziksel kenar için bir XFExt yuvası kaydeder.
xlAround,
{rsTop, rsBottom, rsLeft, rsRight} kaydeder;
xlInsideVertical,
{rsLeft, rsRight} kaydeder;
xlInsideHorizontal,
{rsTop, rsBottom} kaydeder;
xlInsideAll dördünü de kaydeder.
Border.Color aracılığıyla geri okuma, çözümlenen RGB'yi döndürür
BIFF8 FullColorExt yalnızca tek bir çapraz renk taşır, bu nedenle xlDiagonalDown ve xlDiagonalUp aynı XFExt yuvasını (rsDiag) paylaşır
Ö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