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;