50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
Type TSDocxShading = Class(TSVbaBase)
|
||
Uses TSDocxEnumerations;
|
||
|
||
public
|
||
Function Init(pr);
|
||
|
||
private
|
||
pr_; // xxPr对象，比如Cell: tr.tcPr，或Paragraph: p.pPr
|
||
|
||
public
|
||
property BackgroundPatternColor read ReadBackgroundPatternColor write WriteBackgroundPatternColor;
|
||
property BackgroundPatternColorIndex read ReadBackgroundPatternColorIndex write WriteBackgroundPatternColorIndex;
|
||
property ForegroundPatternColor read ReadForegroundPatternColor write WriteForegroundPatternColor;
|
||
property ForegroundPatternColorIndex read ReadForegroundPatternColorIndex write WriteForegroundPatternColorIndex;
|
||
property Texture read ReadTexture write WriteTexture;
|
||
Function WriteTexture(texture);
|
||
Function ReadTexture();
|
||
Function WriteForegroundPatternColorIndex();
|
||
Function ReadForegroundPatternColorIndex();
|
||
Function WriteForegroundPatternColor();
|
||
Function ReadForegroundPatternColor();
|
||
Function WriteBackgroundPatternColorIndex();
|
||
Function ReadBackgroundPatternColorIndex();
|
||
Function WriteBackgroundPatternColor();
|
||
Function ReadBackgroundPatternColor();
|
||
|
||
End;
|
||
|
||
|
||
// ============== 实现 ================= //
|
||
Function TSDocxShading.Init(pr);
|
||
Begin
|
||
pr_ := pr;
|
||
End;
|
||
|
||
// property
|
||
Function TSDocxShading.WriteTexture(texture);
|
||
Begin
|
||
case texture of
|
||
TSDocxEnumerations.wdTextureHorizontal():
|
||
begin
|
||
pr_.Shading.Val := "thinHorzStripe";
|
||
pr_.Update();
|
||
end
|
||
end;
|
||
End;
|
||
Function TSDocxShading.ReadTexture();
|
||
Begin
|
||
End;
|