ตั้งค่าสีเส้นขอบต่อขอบเป็นหนึ่งใน 12 ช่องสีธีม Office พร้อม tint ที่ไม่บังคับ เป็นคู่ธีมของ
Border.Color มีอยู่ในทุกตัวเลือกขอบ (บน ล่าง ซ้าย ขวา เส้นทแยงมุม รวมถึงตัวเลือกแบบประกอบ xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll) มีตั้งแต่ v2.61.0; เส้นทางตัวเลือกแบบประกอบเสร็จสมบูรณ์ใน v2.63.0 (wave D phase 6)
ไวยากรณ์
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
พารามิเตอร์
ThemeIdx — ช่องธีมแบบ 0-based
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — การปรับค่าสว่างขึ้น/เข้มขึ้นตามสเปคในช่วง -1.0 .. +1.0
เข้ารหัสลงใน XFExt FullColorExt เป็นจำนวนเต็มมีเครื่องหมาย Q15 ใน nTintShade
หมายเหตุ
การปล่อยสัญญาณคู่เหมือนกับตัวตั้งค่า Interior / Font:
- ระเบียน XF จะได้ค่า icv แบบ indexed ที่ตรงที่สุดบนช่องขอบที่ตรงกัน เพื่อความเข้ากันได้กับ Excel 97-2003
- ระเบียน XFExt $087D จะได้ช่อง FullColorExt สำหรับ extType ของเส้นขอบที่ตรงกัน ($0007 ด้านบน, $0008 ด้านล่าง, $0009 ซ้าย, $000A ขวา, $000B ทแยง) พร้อม
xclrType=3 และ xclrValue=ThemeIdx
ตัวเลือกแบบประกอบลงทะเบียนช่อง XFExt หนึ่งช่องต่อขอบจริงในการวนซ้ำเซลล์เดียวผ่านตัวช่วยชุดช่องภายใน
xlAround ลงทะเบียน
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical ลงทะเบียน
{rsLeft, rsRight};
xlInsideHorizontal ลงทะเบียน
{rsTop, rsBottom};
xlInsideAll ลงทะเบียนทั้งสี่ด้าน การอ่านกลับผ่าน
Border.Color จะคืนค่า RGB ที่แก้ไขแล้ว
BIFF8 FullColorExt รองรับสีเส้นทแยงมุมเดียว ดังนั้น xlDiagonalDown และ xlDiagonalUp จึงใช้ช่อง XFExt เดียวกัน (rsDiag)
ตัวอย่าง
กำหนดโครงร่างแถวรายงานด้วย accent4 (สีธีม) และเพิ่มตัวแยก accent5 ภายในพร้อม tint สว่างขึ้น 25%
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;
ดูเพิ่มเติม