Menetapkan warna border per-tepi ke salah satu dari 12 slot warna tema Office dengan tint opsional. Pendamping tema dari
Border.Color. Tersedia pada setiap selektor tepi. Tersedia sejak v2.61.0; jalur selektor gabungan selesai di v2.63.0 (wave D fase 6)
Sintaks
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parameter
ThemeIdx — slot tema berbasis-0 (0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — penyesuaian lebih terang/gelap bergaya spec dalam rentang -1.0 .. +1.0 Dikodekan ke dalam XFExt FullColorExt sebagai integer bertanda Q15 dalam nTintShade
Keterangan
Emisi dual-wire yang sama seperti setter Interior / Font:
- Record XF mendapat icv terindeks kecocokan terbaik pada slot edge yang cocok untuk kompatibilitas Excel 97-2003
- Record XFExt $087D mendapat slot FullColorExt untuk extType border yang cocok ($0007 atas, $0008 bawah, $0009 kiri, $000A kanan, $000B diagonal) dengan
xclrType=3 dan xclrValue=ThemeIdx
Selektor gabungan mendaftarkan satu slot XFExt per tepi fisik dalam satu kali lintasan perulangan sel melalui helper slot-set internal. Pembacaan kembali melalui
Border.Color mengembalikan RGB yang diselesaikan
BIFF8 FullColorExt hanya membawa satu warna diagonal, sehingga xlDiagonalDown dan xlDiagonalUp berbagi slot XFExt yang sama (rsDiag)
Contoh
Menguraikan band laporan dengan accent4 dan menambahkan pemisah accent5 dalam dengan tint 25% lebih terang
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;
Lihat juga