eschertypes2.pas

一个经典的读写Excel的控件

const msooptPictureContrast = 264;
const msooptPictureBrightness = 265;
const msooptPictureGamma = 266;
const msooptPictureId = 267;
const msooptPictureDblCrMod = 268;
const msooptPictureFillCrMod = 269;
const msooptPictureLineCrMod = 270;
const msooptPibPrint = 271;
const msooptPibPrintName = 272;
const msooptPibPrintFlags = 273;
const msooptFNoHitTestPicture = 316;
const msooptPictureGray = 317;
const msooptPictureBiLevel = 318;
const msooptPictureActive = 319;
const msooptFillType = 384;
const msooptFillColor = 385;
const msooptFillOpacity = 386;
const msooptFillBackColor = 387;
const msooptFillBackOpacity = 388;
const msooptFillCrMod = 389;
const msooptFillBlip = 390;
const msooptFillBlipName = 391;
const msooptFillBlipFlags = 392;
const msooptFillWidth = 393;
const msooptFillHeight = 394;
const msooptFillAngle = 395;
const msooptFillFocus = 396;
const msooptFillToLeft = 397;
const msooptFillToTop = 398;
const msooptFillToRight = 399;
const msooptFillToBottom = 400;
const msooptFillRectLeft = 401;
const msooptFillRectTop = 402;
const msooptFillRectRight = 403;
const msooptFillRectBottom = 404;
const msooptFillDztype = 405;
const msooptFillShadePreset = 406;
const msooptFillShadeColors = 407;
const msooptFillOriginX = 408;
const msooptFillOriginY = 409;
const msooptFillShapeOriginX = 410;
const msooptFillShapeOriginY = 411;
const msooptFillShadeType = 412;
const msooptFFilled = 443;
const msooptFHitTestFill = 444;
const msooptFillShape = 445;
const msooptFillUseRect = 446;
const msooptFNoFillHitTest = 447;
const msooptLineColor = 448;
const msooptLineOpacity = 449;
const msooptLineBackColor = 450;
const msooptLineCrMod = 451;
const msooptLineType = 452;
const msooptLineFillBlip = 453;
const msooptLineFillBlipName = 454;
const msooptLineFillBlipFlags = 455;
const msooptLineFillWidth = 456;
const msooptLineFillHeight = 457;
const msooptLineFillDztype = 458;
const msooptLineWidth = 459;
const msooptLineMiterLimit = 460;
const msooptLineStyle = 461;
const msooptLineDashing = 462;
const msooptLineDashStyle = 463;
const msooptLineStartArrowhead = 464;
const msooptLineEndArrowhead = 465;
const msooptLineStartArrowWidth = 466;
const msooptLineStartArrowLength = 467;
const msooptLineEndArrowWidth = 468;
const msooptLineEndArrowLength = 469;
const msooptLineJoinStyle = 470;
const msooptLineEndCapStyle = 471;
const msooptFArrowheadsOK = 507;
const msooptLine = 508;
const msooptFHitTestLine = 509;
const msooptLineFillShape = 510;
const msooptFNoLineDrawDash = 511;
const msooptShadowType = 512;
const msooptShadowColor = 513;
const msooptShadowHighlight = 514;
const msooptShadowCrMod = 515;
const msooptShadowOpacity = 516;
const msooptShadowOffsetX = 517;
const msooptShadowOffsetY = 518;
const msooptShadowSecondOffsetX = 519;
const msooptShadowSecondOffsetY = 520;
const msooptShadowScaleXToX = 521;
const msooptShadowScaleYToX = 522;
const msooptShadowScaleXToY = 523;
const msooptShadowScaleYToY = 524;
const msooptShadowPerspectiveX = 525;
const msooptShadowPerspectiveY = 526;
const msooptShadowWeight = 527;
const msooptShadowOriginX = 528;
const msooptShadowOriginY = 529;
const msooptFShadow = 574;
const msooptShadowObscured = 575;
const msooptPerspectiveType = 576;
const msooptPerspectiveOffsetX = 577;
const msooptPerspectiveOffsetY = 578;
const msooptPerspectiveScaleXToX = 579;
const msooptPerspectiveScaleYToX = 580;
const msooptPerspectiveScaleXToY = 581;
const msooptPerspectiveScaleYToY = 582;
const msooptPerspectivePerspectiveX = 583;
const msooptPerspectivePerspectiveY = 584;
const msooptPerspectiveWeight = 585;
const msooptPerspectiveOriginX = 586;
const msooptPerspectiveOriginY = 587;
const msooptFPerspective = 639;
const msooptC3DSpecularAmt = 640;
const msooptC3DDiffuseAmt = 641;
const msooptC3DShininess = 642;
const msooptC3DEdgeThickness = 643;
const msooptC3DExtrudeForward = 644;
const msooptC3DExtrudeBackward = 645;
const msooptC3DExtrudePlane = 646;
const msooptC3DExtrusionColor = 647;
const msooptC3DCrMod = 648;
const msooptF3D = 700;
const msooptFc3DMetallic = 701;
const msooptFc3DUseExtrusionColor = 702;
const msooptFc3DLightFace = 703;
const msooptC3DYRotationAngle = 704;
const msoopt3DXRotationAngle = 705;
const msoopt3DRotationAxisX = 706;
const msooptC3DRotationAxisY = 707;
const msooptC3DRotationAxisZ = 708;
const msooptC3DRotationAngle = 709;
const msooptC3DRotationCenterX = 710;
const msooptC3DRotationCenterY = 711;
const msooptC3DRotationCenterZ = 712;
const msooptC3DRenderMode = 713;
const msooptC3DTolerance = 714;
const msooptC3DXViewpoint = 715;
const msooptC3DYViewpoint = 716;
const msooptC3DZViewpoint = 717;
const msooptC3DOriginX = 718;
const msooptC3DOriginY = 719;
const msooptC3DSkewAngle = 720;
const msooptC3DSkewAmount = 721;
const msooptC3DAmbientIntensity = 722;
const msooptC3DKeyX = 723;
const msooptC3DKeyY = 724;
const msooptC3DKeyZ = 725;
const msooptC3DKeyIntensity = 726;
const msooptC3DFillX = 727;
const msooptC3DFillY = 728;
const msooptC3DFillZ = 729;
const msoopt3DFillIntensity = 730;
const msooptC3DConstrainRotation = 763;
const msooptC3DRotationCenterAuto = 764;
const msooptC3DParallel = 765;
const msooptC3DKeyHarsh = 766;
const msooptC3DFillHarsh = 767;
const msooptHspMaster = 769;
const msooptCxstyle = 771;
const msooptBWMode = 772;
const msooptBWModePureBW = 773;
const msooptBWModeBW = 774;
const msooptFOleIcon = 826;
const msooptFPreferRelativeResize = 827;
const msooptFLockShapeType = 828;
const msooptFDeleteAttachedObject = 830;
const msooptFBackground = 831;
const msooptSpcot = 832;
const msooptDxyCalloutGap = 833;
const msooptSpcoa = 834;
const msooptSpcod = 835;
const msooptDxyCalloutDropSpecified = 836;
const msooptDxyCalloutLengthSpecified = 837;
const msooptFCallout = 889;
const msooptFCalloutAccentBar = 890;
const msooptFCalloutTextBorder = 891;
const msooptFCalloutMinusX = 892;
const msooptFCalloutMinusY = 893;
const msooptFCalloutDropAuto = 894;
const msooptFCalloutLengthSpecified = 895;
const msooptWzName = 896;
const msooptZDescription = 897;
const msooptPihlShape = 898;
const msooptPWrapPolygonVertices = 899;
const msooptDxWrapDistLeft = 900;
const msooptDyWrapDistTop = 901;
const msooptDxWrapDistRight = 902;
const msooptDyWrapDistBottom = 903;
const msooptLidRegroup = 904;
const msooptFEditedWrap = 953;
const msooptFBehindDocument = 954;
const msooptFOnDblClickNotify = 955;
const msooptFIsButton = 956;
const msooptFOneD = 957;
const msooptFHidden = 958;
const msooptFPrint = 959;

const msooptGeoLeft = 320;
const msooptGeoTop = 321;
const msooptGeoRight = 322;
const msooptGeoBottom = 323;
const msooptShapePath = 324;
const msooptPVertices = 325;
const msooptPSegmentInfo = 326;
const msooptAdjustValue = 327;
const msooptAdjust2Value = 328;
const msooptAdjust3Value = 329;
const msooptAdjust4Value = 330;
const msooptAdjust5Value = 331;
const msooptAdjust6Value = 332;
const msooptAdjust7Value = 333;
const msooptAdjust8Value = 334;
const msooptAdjust9Value = 335;
const msooptAdjust10Value = 336;
const msooptFShadowOK = 378;
const msooptF3DOK = 379;
const msooptFLineOK = 380;
const msooptFGtextOK = 381;
const msooptFFillShadeShapeOK = 382;
const msooptFFillOK = 383;

const msoshapeLines        = 0;  // A line of straight segments
const msoshapeLinesClosed  = 1;  // A closed polygonal object
const msoshapeCurves       = 2;  // A line of Bezier curve segments
const msoshapeCurvesClosed = 3;  // A closed shape with curved edges
const msoshapeComplex      = 4;  // pSegmentInfo must be non-empty

const msolineNoEnd = 0;
const msolineArrowEnd = 1;
const msolineArrowStealthEnd = 2;
const msolineArrowDiamondEnd = 3;
const msolineArrowOvalEnd = 4;
const msolineArrowOpenEnd = 5;

const msofillSolid = 0;            // Fill with a solid color
const msofillPattern = 1;          // Fill with a pattern (bitmap)
const msofillTexture = 2;          // A texture (pattern with its own color map)
const msofillPicture = 3;          // Center a picture in the shape
const msofillShade = 4;            // Shade from start to end points
const msofillShadeCenter = 5;      // Shade from bounding rectangle to end point
const msofillShadeShape = 6;       // Shade from shape outline to end point
const msofillShadeScale = 7;       // Similar to msofillShade, but the fillAngle
                                   // is additionally scaled by the aspect ratio of
                                   // the shape. If shape is square, it is the
                                   // same as msofillShade.
const msofillShadeTitle = 8;       // special type - shade to title ---  for PP
const msofillBackground = 9;       // Use the background fill color/pattern


type PMSOHeader = ^TMSOHeader;
     TMSOHeader = packed record
     VerInst: word;
     FBT: word;
     Length: longword;
     end;

type  TMSOBlipType = (msoblipERROR,msoblipUNKNOWN,msoblipWMF,msoblipEMF,msoblipPICT,msoblipJPEG,msoblipPNG,msoblipDIB);
const TMSOBlipTypeStr: array[0..7] of string = ('ERROR','UNKNOWN','WMF','EMF','PICT','JPEG','PNG','BMP');

type PMSOBSEMetafile = ^TMSOBSEMetafile;
     TMSOBSEMetafile = packed record
     CacheSize: integer;
     Rect: TRect;
     PtSize: TPoint;
     Size: integer;
     Compressed: byte;
     Filter: byte;
     end;

type PMSOFileReGroupItem = ^TMSOFileReGroupItem;
     TMSOFileReGroupItem = packed record
     fridNew: word;
     fridOld: word;
     end;

// ******* MSO Records *******

type PMSORecBSE = ^TMSORecBSE;
     TMSORecBSE = packed record
     WinType: TMSOBlipType;
     MacType: TMSOBlipType;
     BlipId: array[0..15] of byte;
     Tag: word;
     Size: longword;
     RefCount: longword;
     DelayOffset: longword;
     Usage: byte;
     NameLen: byte;
     Unused: word;
     end;

type PMSORecCHILDANCHOR = ^TMSORecCHILDANCHOR;
     TMSORecCHILDANCHOR = packed record
     X1,Y1,X2,Y2: longword;
     end;

type PMSORecCLIENTANCHOR = ^TMSORecCLIENTANCHOR;
     TMSORecCLIENTANCHOR = packed record
     Options: word;
     Col1: word;
     Col1Offset: word;
     Row1: word;
     Row1Offset: word;
     Col2: word;
     Col2Offset: word;
     Row2: word;
     Row2Offset: word;
     end;

type PDGGRecFIDCL = ^TDGGRecFIDCL;
     TDGGRecFIDCL = packed record
     DgId: longword;
     SpIdUsed: longword;
     end;

type PMSORecDG = ^TMSORecDG;
     TMSORecDG = packed record
     ShapeCount_: longword;
     CurSpId: longword;
     end;

type PMSORecDGG = ^TMSORecDGG;
     TMSORecDGG = packed record
     MaxSpId: longword;
     IdClusterCount: longword;
     SavedShapes: longword;
     SavedDrawings: longword;
     end;

type PMSORecOPTValue = ^TMSORecOPTValue;
     TMSORecOPTValue = packed record
     Options: word;
     Value: longword;
     end;

type PMSORecSP = ^TMSORecSP;
     TMSORecSP = packed record
     SpId: longword;
     Options: longword;
     end;

type PMSORecSPGR = ^TMSORecSPGR;
     TMSORecSPGR = packed record
     X1,Y1,X2,Y2: longword;
     end;

implementation

end.