145 lines
3.6 KiB
Plaintext
145 lines
3.6 KiB
Plaintext
Type TSDocxBorder = Class(TSVbaBase)
|
|
Uses TSDocxEnumerations;
|
|
|
|
public
|
|
Function Init(borders, borderType);
|
|
|
|
private
|
|
border_;
|
|
|
|
public
|
|
property ArtStyle read ReadArtStyle write WriteArtStyle;
|
|
property ArtWidth read ReadArtWidth write WriteArtWidth;
|
|
property Color read ReadColor write WriteColor;
|
|
property ColorIndex read ReadColorIndex write WriteColorIndex;
|
|
property Inside read ReadInside;
|
|
property LineStyle read ReadLineStyle write WriteLineStyle;
|
|
property LineWidth read ReadLineWidth write WriteLineWidth;
|
|
property Visible read ReadVisible write WriteVisible;
|
|
Function WriteVisible();
|
|
Function ReadVisible();
|
|
Function WriteLineWidth();
|
|
Function ReadLineWidth();
|
|
Function WriteLineStyle(value);virtual;
|
|
Function ReadLineStyle();
|
|
Function ReadInside();
|
|
Function WriteColorIndex();
|
|
Function ReadColorIndex();
|
|
Function WriteColor();
|
|
Function ReadColor();
|
|
Function WriteArtWidth();
|
|
Function ReadArtWidth();
|
|
Function WriteArtStyle();
|
|
Function ReadArtStyle();
|
|
|
|
End;
|
|
|
|
|
|
// ============== 实现 ================= //
|
|
Function TSDocxBorder.Init(borders, borderType);
|
|
Begin
|
|
|
|
case borderType of
|
|
TSDocxEnumerations.wdBorderBottom():
|
|
border_ := borders.Bottom;
|
|
TSDocxEnumerations.wdBorderDiagonalDown():
|
|
border_ := borders.tl2br;
|
|
TSDocxEnumerations.wdBorderDiagonalUp():
|
|
border_ := borders.tr2bl;
|
|
TSDocxEnumerations.wdBorderHorizontal():
|
|
border_ := borders.InsideH;
|
|
TSDocxEnumerations.wdBorderLeft():
|
|
border_ := borders.Left;
|
|
TSDocxEnumerations.wdBorderRight():
|
|
border_ := borders.Right;
|
|
TSDocxEnumerations.wdBorderTop():
|
|
border_ := borders.Top;
|
|
TSDocxEnumerations.wdBorderVertical():
|
|
border_ := borders.InsideV;
|
|
end;
|
|
End;
|
|
|
|
// property
|
|
Function TSDocxBorder.WriteLineStyle(value);virtual;
|
|
Begin
|
|
case value of
|
|
TSDocxEnumerations.wdLineStyleDashDot():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleDashDotDot():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleDashDotStroked():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleDashLargeGap():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleDashSmallGap():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleDot():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleDouble():
|
|
border_.Val := "double";
|
|
|
|
TSDocxEnumerations.wdLineStyleDoubleWavy():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleEmboss3D():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleEngrave3D():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleInset():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleNone():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleOutset():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleSingle():
|
|
border_.Val := "single";
|
|
|
|
TSDocxEnumerations.wdLineStyleSingleWavy():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleThickThinLargeGap():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleThickThinMedGap():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleThickThinSmallGap():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleThinThickLargeGap():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleThinThickMedGap():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleThinThickSmallGap():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleThinThickThinLargeGap():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleThinThickThinMedGap():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleThinThickThinSmallGap():
|
|
border_.Val := "nil";
|
|
|
|
TSDocxEnumerations.wdLineStyleTriple():
|
|
border_.Val := "nil";
|
|
|
|
end;
|
|
border_.Update();
|
|
|
|
End;
|