57 lines
1.6 KiB
Plaintext
57 lines
1.6 KiB
Plaintext
Type TSDocxShading = Class
|
||
|
||
public
|
||
Function Create(application, pr);
|
||
|
||
private
|
||
application_;
|
||
pr_; // xxPr对象，比如Cell: tr.tcPr，或Paragraph: p.pPr
|
||
|
||
public
|
||
property Application read ReadApplication;
|
||
property BackgroundPatternColor read ReadBackgroundPatternColor write WriteBackgroundPatternColor;
|
||
property BackgroundPatternColorIndex read ReadBackgroundPatternColorIndex write WriteBackgroundPatternColorIndex;
|
||
property Creator read ReadCreator;
|
||
property ForegroundPatternColor read ReadForegroundPatternColor write WriteForegroundPatternColor;
|
||
property ForegroundPatternColorIndex read ReadForegroundPatternColorIndex write WriteForegroundPatternColorIndex;
|
||
property Parent read ReadParent;
|
||
property Texture read ReadTexture write WriteTexture;
|
||
Function WriteTexture(texture);
|
||
Function ReadTexture();
|
||
Function ReadParent();
|
||
Function WriteForegroundPatternColorIndex();
|
||
Function ReadForegroundPatternColorIndex();
|
||
Function WriteForegroundPatternColor();
|
||
Function ReadForegroundPatternColor();
|
||
Function ReadCreator();
|
||
Function WriteBackgroundPatternColorIndex();
|
||
Function ReadBackgroundPatternColorIndex();
|
||
Function WriteBackgroundPatternColor();
|
||
Function ReadBackgroundPatternColor();
|
||
Function ReadApplication();
|
||
|
||
End;
|
||
|
||
|
||
// ============== 实现 ================= //
|
||
Function TSDocxShading.Create(application, pr);
|
||
Begin
|
||
application_ := application;
|
||
pr_ := pr;
|
||
End;
|
||
|
||
// property
|
||
Function TSDocxShading.WriteTexture(texture);
|
||
Begin
|
||
case texture of
|
||
class(TSDocxEnumerations).wdTextureHorizontal():
|
||
begin
|
||
pr_.Shading.Val := "thinHorzStripe";
|
||
pr_.Update();
|
||
end
|
||
end;
|
||
End;
|
||
Function TSDocxShading.ReadTexture();
|
||
Begin
|
||
End;
|