Unit: lxHandleX
TXLSXHeaderFooterImages is the typed image collection exposed by TXLSXWorksheet.HeaderFooterImages
يدعم كل نوع صفحة صوراً يسرى ووسطى ويمنى في الترويسة والتذييل معاً، أي ثمانية عشر موضع صورة مستقلاً
Declarations
type
TXLSXHeaderFooterPageKind = (
xlsxHFOddPage, xlsxHFEvenPage, xlsxHFFirstPage);
TXLSXHeaderFooterPicturePosition = (
xlsxHFLeftHeader, xlsxHFCenterHeader, xlsxHFRightHeader,
xlsxHFLeftFooter, xlsxHFCenterFooter, xlsxHFRightFooter);
TXLSXHeaderFooterImage = class
property PageKind: TXLSXHeaderFooterPageKind;
property Position: TXLSXHeaderFooterPicturePosition;
property WidthPt, HeightPt: Double;
property MarginLeftPt, MarginTopPt: Double;
property Format: TXLSXImageFormat;
property Data: AnsiString;
property Title: WideString;
end;
TXLSXHeaderFooterImages = class
function Add(APageKind: TXLSXHeaderFooterPageKind;
APosition: TXLSXHeaderFooterPicturePosition): TXLSXHeaderFooterImage; overload;
function AddFromFile(APageKind: TXLSXHeaderFooterPageKind;
APosition: TXLSXHeaderFooterPicturePosition;
const AFileName: WideString): TXLSXHeaderFooterImage;
function Find(APageKind: TXLSXHeaderFooterPageKind;
APosition: TXLSXHeaderFooterPicturePosition): TXLSXHeaderFooterImage;
function Delete(APageKind: TXLSXHeaderFooterPageKind;
APosition: TXLSXHeaderFooterPicturePosition): Boolean; overload;
procedure Clear;
property Count: Integer;
property Items[Index: Integer]: TXLSXHeaderFooterImage; default;
end;
Behaviour
Add reuses the selected slot and inserts the required &G field into the matching header or footer section- Even-page and first-page images automatically enable
DifferentOddEven and DifferentFirst
AddFromFile accepts PNG, JPEG, GIF, BMP, EMF, and WMF payloads- عملا الفتح والحفظ يحافظان على بايتات الصورة وتنسيقها وعنوانها وأبعادها بالنقاط وهوامشها بالنقاط ورسم VML المملوك للعلاقة
- تبقى رسومات صور الترويسة والتذييل مستقلة عن رسومات تعليقات ورقة العمل في نفس الورقة
Delete and Clear تزيل كود حقل الصورة المطابق مع إبقاء نص الترويسة والتذييل غير المرتبط سليماً
Example
var
Image: TXLSXHeaderFooterImage;
begin
Image := Sheet.HeaderFooterImages.AddFromFile(
xlsxHFOddPage, xlsxHFLeftHeader, 'logo.png');
Image.WidthPt := 86;
Image.HeightPt := 42;
Sheet.HeaderFooterImages.AddFromFile(
xlsxHFEvenPage, xlsxHFCenterFooter, 'confidential.png');
end;
See also