126 lines
3.4 KiB
Plaintext
126 lines
3.4 KiB
Plaintext
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;
|