Type TSDocxInlineShape = Class(TSVbaBase)

public
	Function Init(docx, trun);
	Function Apply();

private
	docx_;
	trun_;
	base_;

public
	// Methods
	Function ConvertToShape();
	Function Delete();
	Function Reset();
	Function Select();

	// Properties
	property AlternativeText read ReadAlternativeText write WriteAlternativeText;
	property Borders read ReadBorders;
	property Chart read ReadChart;
	property Field read ReadField;
	property Fill read ReadFill;
	property Glow read ReadGlow;
	property GroupItems read ReadGroupItems;
	property HasChart read ReadHasChart;
	property HasSmartArt read ReadHasSmartArt;
	property Height read ReadHeight write WriteHeight;
	property HorizontalLineFormat read ReadHorizontalLineFormat;
	property Hyperlink read ReadHyperlink;
	property IsPictureBullet read ReadIsPictureBullet;
	property Line read ReadLine;
	property LinkFormat read ReadLinkFormat;
	property LinkFormat read ReadLinkFormat;
	property LockAspectRatio read ReadLockAspectRatio write WriteLockAspectRatio;
	property OLEFormat read ReadOLEFormat;
	property PictureFormat read ReadPictureFormat;
	property Range read ReadRange;
	property Reflection read ReadReflection;
	property ScaleHeight read ReadScaleHeight write WriteScaleHeight;
	property ScaleWidth read ReadScaleWidth write WriteScaleWidth;
	property Script read ReadScript;
	property Shadow read ReadShadow;
	property SmartArt read ReadSmartArt;
	property SoftEdge read ReadSoftEdge;
	property TextEffect read ReadTextEffect;
	property Title read ReadTitle write WriteTitle;
	property Type read ReadType;
	property Width read ReadWidth write WriteWidth;
	Function WriteWidth(value);
	Function ReadWidth();
	Function ReadType();
	Function WriteTitle(value);
	Function ReadTitle();
	Function ReadTextEffect();
	Function ReadSoftEdge();
	Function ReadSmartArt();
	Function ReadShadow();
	Function ReadScript();
	Function WriteScaleWidth(value);
	Function ReadScaleWidth();
	Function WriteScaleHeight(value);
	Function ReadScaleHeight();
	Function ReadReflection();
	Function ReadRange();
	Function ReadPictureFormat();
	Function ReadOLEFormat();
	Function WriteLockAspectRatio(value);
	Function ReadLockAspectRatio();
	Function ReadLinkFormat();
	Function ReadLine();
	Function ReadIsPictureBullet();
	Function ReadHyperlink();
	Function ReadHorizontalLineFormat();
	Function WriteHeight(value);
	Function ReadHeight();
	Function ReadHasSmartArt();
	Function ReadHasChart();
	Function ReadGroupItems();
	Function ReadGlow();
	Function ReadFill();
	Function ReadField();
	Function ReadChart();
	Function ReadBorders();
	Function WriteAlternativeText(value);
	Function ReadAlternativeText();

End;

// ============== 实现 ================= //
Function TSDocxInlineShape.Init(docx, trun);
Begin
	docx_ := docx;
	trun_ := trun;
	base_ := 12700;
End;

Function TSDocxInlineShape.Apply();
Begin
	trun_.Update();
End;

// Properties
Function TSDocxInlineShape.WriteHeight(value);
Begin
	cy := value * base_;
	trun_.Drawing.WInline.cy := cy;
	trun_.Drawing.WInline.Graphic.GraphicData.Pic.spPr.XFrm.Ext.CY := cy;
End;
Function TSDocxInlineShape.ReadHeight();
Begin
	return trun_.Drawing.WInline.Value("cy") / base_;
End;

Function TSDocxInlineShape.WriteWidth(value);
Begin
	cx := value * base_;
	trun_.Drawing.WInline.cx := cx;
	trun_.Drawing.WInline.Graphic.GraphicData.Pic.spPr.XFrm.Ext.CX := cx;
End;
Function TSDocxInlineShape.ReadWidth();
Begin
	return trun_.Drawing.WInline.Value("cx") / base_;
End;