Ustawia kolor obramowania na krawędź do jednego z 12 slotów kolorów motywu Office z opcjonalnym odcieniem. Towarzysz motywu
Border.Color. Dostępny dla każdego selektora krawędzi (góra, dół, lewa, prawa, ukośna, plus selektory złożone xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Dostępne od v2.61.0; ścieżka selektora złożonego została ukończona w v2.63.0 (faza 6 paczki D)
Składnia
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parametry
ThemeIdx — slot motywu od zera
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — dostosowanie jaśniejszy/ciemniejszy w stylu spec w zakresie -1.0 .. +1.0
Zakodowane w XFExt FullColorExt jako 15-bitowa liczba całkowita ze znakiem w nTintShade
Uwagi
To samo podwójne emisje sygnału co ustawiacze Interior / Font:
- Rekord XF otrzymuje indeksowany icv najlepszego dopasowania w odpowiadającym mu slocie krawędzi dla zgodności z Excelem 97-2003
- Rekord XFExt $087D otrzymuje slot FullColorExt dla odpowiadającego typu rozszerzenia obramowania ($0007 góra, $0008 dół, $0009 lewa, $000A prawa, $000B przekątna) z
xclrType=3 i xclrValue=ThemeIdx
Selektory złożone rejestrują jeden slot XFExt na fizyczną krawędź w jednym przejściu pętli komórek za pomocą wewnętrznego pomocnika zestawu slotów.
xlAround rejestruje
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical rejestruje
{rsLeft, rsRight};
xlInsideHorizontal rejestruje
{rsTop, rsBottom};
xlInsideAll rejestruje wszystkie cztery. Odczyt przez
Border.Color zwraca rozwiązany RGB
BIFF8 FullColorExt zawiera tylko jeden kolor ukośny, więc xlDiagonalDown i xlDiagonalUp współdzielą ten sam slot XFExt (rsDiag)
Przykład
Otacza pasmo raportu kolorem accent4 (kolor motywu) i dodaje wewnętrzny separator accent5 z 25% jaśniejszym odcieniem
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;
Zobacz też