itypes.pas

iocopm3.04源码,一套很好的工控开发工具

{*******************************************************}
{                                                       }
{       iTypes                                          }
{                                                       }
{       Copyright (c) 1997,2003 Iocomp Software         }
{                                                       }
{*******************************************************}
{$I iInclude.inc}

{$ifdef iVCL}unit  iTypes;{$endif}
{$ifdef iCLX}unit QiTypes;{$endif}

interface

uses
  {$I iIncludeUses.inc}
  {$IFDEF iVCL}Printers; {$ENDIF}
  {$IFDEF iCLX}QPrinters;{$ENDIF}

{$IFDEF LINUX}
const
  VK_PRIOR = 33;
  VK_NEXT  = 34;
  VK_END   = 35;
  VK_HOME  = 36;
  VK_LEFT  = 37;
  VK_UP    = 38;
  VK_RIGHT = 39;
  VK_DOWN  = 40;
{$endif}

const
  iVK_LBUTTON    = 1;
  iVK_RBUTTON    = 2;
  iVK_CANCEL     = 3;
  iVK_MBUTTON    = 4;

  iVK_BACK       = 8;
  iVK_TAB        = 9;

  iVK_CLEAR      = 12;
  iVK_RETURN     = 13;

  iVK_SHIFT      = 16;
  iVK_CONTROL    = 17;
  iVK_MENU       = 18;
  iVK_PAUSE      = 19;
  iVK_CAPITAL    = 20;
  iVK_KANA       = 21;
  iVK_HANGUL     = 21;

  iVK_JUNJA      = 23;
  iVK_FINAL      = 24;
  iVK_HANJA      = 25;
  iVK_KANJI      = 25;

  iVK_ESCAPE     = 27;
  iVK_CONVERT    = 28;
  iVK_NONCONVERT = 29;
  iVK_ACCEPT     = 30;
  iVK_MODECHANGE = 31;
  iVK_SPACE      = 32;
  iVK_PRIOR      = 33;
  iVK_NEXT       = 34;
  iVK_END        = 35;
  iVK_HOME       = 36;
  iVK_LEFT       = 37;
  iVK_UP         = 38;
  iVK_RIGHT      = 39;
  iVK_DOWN       = 40;
  iVK_SELECT     = 41;
  iVK_PRINT      = 42;
  iVK_EXECUTE    = 43;
  iVK_SNAPSHOT   = 44;
  iVK_INSERT     = 45;
  iVK_DELETE     = 46;
  iVK_HELP       = 47;
  iVK_0          = 48;
  iVK_1          = 49;
  iVK_2          = 50;
  iVK_3          = 51;
  iVK_4          = 52;
  iVK_5          = 53;
  iVK_6          = 54;
  iVK_7          = 55;
  iVK_8          = 56;
  iVK_9          = 57;

  iVK_A          = 65;
  iVK_B          = 66;
  iVK_C          = 67;
  iVK_D          = 68;
  iVK_E          = 69;
  iVK_F          = 70;
  iVK_G          = 71;
  iVK_H          = 72;
  iVK_I          = 73;
  iVK_J          = 74;
  iVK_K          = 75;
  iVK_L          = 76;
  iVK_M          = 77;
  iVK_N          = 78;
  iVK_O          = 79;
  iVK_P          = 80;
  iVK_Q          = 81;
  iVK_R          = 82;
  iVK_S          = 83;
  iVK_T          = 84;
  iVK_U          = 85;
  iVK_V          = 86;
  iVK_W          = 87;
  iVK_X          = 88;
  iVK_Y          = 89;
  iVK_Z          = 90;
  iVK_LWIN       = 91;
  iVK_RWIN       = 92;
  iVK_APPS       = 93;
  iVK_NUMPAD0    = 96;
  iVK_NUMPAD1    = 97;
  iVK_NUMPAD2    = 98;
  iVK_NUMPAD3    = 99;
  iVK_NUMPAD4    = 100;
  iVK_NUMPAD5    = 101;
  iVK_NUMPAD6    = 102;
  iVK_NUMPAD7    = 103;
  iVK_NUMPAD8    = 104;
  iVK_NUMPAD9    = 105;
  iVK_MULTIPLY   = 106;
  iVK_ADD        = 107;
  iVK_SEPARATOR  = 108;
  iVK_SUBTRACT   = 109;
  iVK_DECIMAL    = 110;
  iVK_DIVIDE     = 111;
  iVK_F1         = 112;
  iVK_F2         = 113;
  iVK_F3         = 114;
  iVK_F4         = 115;
  iVK_F5         = 116;
  iVK_F6         = 117;
  iVK_F7         = 118;
  iVK_F8         = 119;
  iVK_F9         = 120;
  iVK_F10        = 121;
  iVK_F11        = 122;
  iVK_F12        = 123;
  iVK_F13        = 124;
  iVK_F14        = 125;
  iVK_F15        = 126;
  iVK_F16        = 127;
  iVK_F17        = 128;
  iVK_F18        = 129;
  iVK_F19        = 130;
  iVK_F20        = 131;
  iVK_F21        = 132;
  iVK_F22        = 133;
  iVK_F23        = 134;
  iVK_F24        = 135;

  iVK_NUMLOCK    = 144;
  iVK_SCROLL     = 145;

  iVK_LSHIFT     = 160;
  iVK_RSHIFT     = 161;
  iVK_LCONTROL   = 162;
  iVK_RCONTROL   = 163;
  iVK_LMENU      = 164;
  iVK_RMENU      = 165;

  iVK_OEM_1      = 186;
  iVK_OEM_PLUS   = 187;
  iVK_OEM_COMMA  = 188;
  iVK_OEM_MINUS  = 189;
  iVK_OEM_PERIOD = 190;
  iVK_OEM_2      = 191; // / and ? characters
  iVK_OEM_3      = 192; // ` and ~ Character

  iVK_OEM_4      = 219; // [ and { Character
  iVK_OEM_5      = 220; // \ and | Character
  iVK_OEM_6      = 221; // ] and } Character
  iVK_OEM_7      = 222; // ' and " Character

  iVK_PROCESSKEY = 229;

  iVK_ATTN       = 246;
  iVK_CRSEL      = 247;
  iVK_EXSEL      = 248;
  iVK_EREOF      = 249;
  iVK_PLAY       = 250;
  iVK_ZOOM       = 251;
  iVK_NONAME     = 252;
  iVK_PA1        = 253;
  iVK_OEM_CLEAR  = 254;

  iVK_CTRL_A     = 1;
  iVK_CTRL_V     = 22;
  iVK_CTRL_X     = 24;
  iVK_CTRL_Z     = 26;

  iDMPAPER_LETTER  = 1;  { Letter 8 12 x 11 in}
  iDMPAPER_LEGAL   = 5;  { Legal 8 12 x 14 in }
  iDMPAPER_A3      = 8;  { A3 297 x 420 mm    }
  iDMPAPER_A4      = 9;  { A4 210 x 297 mm    }
  iDMPAPER_A5      = 11; { A5 148 x 210 mm    }


type
  TOnBeforeChangeInteger  = procedure(Sender: TObject; OldValue: Integer; var NewValue: Integer;    var CanChange: Boolean) of object;
  TOnBeforeChangeDouble   = procedure(Sender: TObject; OldValue: Double;  var NewValue: Double;     var CanChange: Boolean) of object;
  TOnBeforeChangeString   = procedure(Sender: TObject; OldValue: String; var NewValue: String;      var CanChange: Boolean) of object;
  TOnCustomizeTickLabel   = procedure(Sender: TObject; Index: Integer; var DisplayText: String)                             of object;
  TOnPositionLimit        = procedure(Sender: TObject; LimitIndex: Integer)                                                 of object;
  TRequestEditEvent       = procedure(Sender: TObject; PropName: String; var CanEdit : Boolean)                             of object;
  TChangePropertyEvent    = procedure(Sender: TObject; PropName: String)                                                    of object;
  TGetDesigningEvent      = procedure(Sender: TObject; var Designing: Boolean)                                              of object;
  TIndexObjectEvent       = procedure(Index: Integer)                                                                       of object;
  TBeforeOPCNewDataEvent  = procedure(Index: Integer; var Data: OleVariant)                                                 of object;
  TOPCDLLNewData          = procedure(Data: OLEVariant; TimeStamp: Double; Quality: Word)                                   of object;
  TOPCDLLObjectUpdate     = procedure(Handle: Integer)                                                                      of object;

  TiOrientation                = (ioVertical, ioHorizontal);
  TiOrientationSide            = (iosBottomRight, iosTopLeft);

  TiFillDirection              = (ifdTopBottom, ifdBottomTop, ifdLeftRight, ifdRightLeft, ifdTopLeftBottomRight, ifdBottomRightTopLeft,
                                  ifdBottomLeftTopRight, ifdTopRightBottomLeft, ifdRectangleOut, ifdRectangleIn, ifdCircleOut, ifdCircleIn);

  TiPlotMarkerStyle            = (ipmsCircle, ipmsSquare, ipmsDiamond, ipmsCross, ipmsPlus, ipmsTriangleUp, ipmsTriangleDown, ipmsTriangleLeft, ipmsTriangleRight, ipmsVerticalLine, ipmsHorizontalLine, ipmsCharacter);
  TiPlotLineStyle              = (iplsSolid, iplsDash, iplsDot, iplsDashDot, iplsDashDotDot);
  TiPlotExportFormat           = (ipefMetaFile, ipefBitmap, ipefJPEG);
  TiPlotUnitReferenceStyle     = (ipurScale, ipurPercent);

  TiRotationAngle              = (ira000, ira090, ira180, ira270);

  TiPointerFillReferenceStyle  = (ipfrsMin, ipfrsMax, ipfrsValue);

  TiIntegerFormatStyle         = (iifsInteger, iifsHex, iifsBinary, iifsOctal);

  TiBevelStyle                 = (ibsNone, ibsRaised, ibsLowered);
  TiLeadingStyle               = (ilsNone, ilsZeros, ilsSpaces);
  TiDrawSection                = (idsNone, idsSection1, idsSection2, idsSection3);

  TiSideAlignment              = (isaBottom, isaTop, isaLeft, isaRight);
  TiAlignmentVertical          = (iavCenter, iavTop,  iavBottom);
  TiAlignmentHorizontal        = (iahCenter, iahLeft, iahRight);
  TiAlignmentSideVertical      = (iasvTop,  iasvBottom);
  TiTitleHorizontalAlignment   = (ithaCenterDisplay, ithaCenterControl);
  TiSwitchIndicatorAlignment   = (isiaBottom, isiaTop);
  TiTickMinorAlignment         = (itmnaInside, itmnaCenter, itmnaOutside);

  TiDirection                  = (idUp, idDown, idRight, idLeft);
  TiCountDirection             = (icdDown, icdUp);

  TiFilterInputStyle           = (ifisNone, ifisAuto);
  TiScaleAlignStyle            = (itasCenter, itasSide);

  TiPrecisionStyle             = (ipsSignificantDigits, ipsFixedDecimalPoints);
  TiAutoScaleStyle             = (iassAutoMinMax, iassFixedMinMax);
  TiRepaintType                = (irtInvalidate, irtBackGround, irtNone);

  TiSliderTrackStyle           = (istsBox, istsLine, istsBevelLowered, istsBevelRasied);
  TiSliderPointerStyle         = (ispsLed, ispsPointer, ispsBar, ispsLightBar, ispsBarColor, ispsBitmap);

  TiLinearGaugePointerStyle    = (ilgpsPointer, ilgpsTriangle, ilgpsTLine, ilgpsColorBar);
  TiAngularGaugePointerStyle   = (iagpsArrowLine, iagpsArrow, iagpsLine, iagpsTriangle);

  TiSwitchSliderIndicatorStyle = (issisDot, issisLine);
  TiSlidingScalePointerStyle   = (isspsDualArrow, isspsArrow, isspsPointer, isspsLine);
  TiSliderMouseControlStyle    = (ismcsSlideOnly, ismcsSlidePage, ismcsGoto);
  TiRotaryMouseControlStyle    = (irmcsRotate, irmcsGoto);

  TiLogLabelStyle              = (illsValue, illsScientific);

  TiMouseControlStyle          = (imcsClickAnyWhere, imcsClickIndicator);


  TiClockHourStyle             = (ichs24, ichs12);

  TiLabelAlignment             = (ilaCenter, ilaJustified);

  TiChannelLineStyle           = (iclsSolid, iclsDash, iclsDot, iclsDashDot, iclsDashDotDot);
  TiChannelDataSatus           = (icdsActual, icdsNull, icdsInterpolated);

  TiTextFlag                   = (itfHLeft, itfHCenter, itfHRight, itfVTop, itfVCenter, itfVBottom, itfWordBreak, itfSingleLine, itfExpandTabs, itfNoClip, itfShowPrefix, itfCalcRect, itfEndEllipsis, itfPathEllipsis, itfWordEllipsis, itfModifyString);
  TiTextFlags                  = set of TiTextFlag;

  TiDrawEdgeStyle              = (idesSunken, idesRaised, idesFlat);

  TiDrawObjectType             = (tidoEllipse, tidoRectangle, tidoLine, tidoText, tidoImage, tidoArc, tidoPolygon);

  TiNameSpaceType              = (instFlat, instHierarchial);
  TiBrowseType                 = (ibtBranch, ibtLeaf, ibtFlat);
  TiNetworkResourceType        = (inrtNetwork, inrtDomain, inrtComputer, inrtRoot, inrtIgnore);

  TiServerData = packed record
    Name        : String;
    VersionType : Integer;
  end;
  TiNetData = packed record
    Assigned      : Boolean;
    ResourceType  : TiNetworkResourceType;
    dwScope       : DWORD;
    dwType        : DWORD;
    dwDisplayType : DWORD;
    dwUsage       : DWORD;
    lpLocalName   : PAnsiChar;
    lpRemoteName  : PAnsiChar;
    lpComment     : PAnsiChar;
    lpProvider    : PAnsiChar;
  end;

  TPointDouble = record
    x: Double;
    y: Double;
  end;

  TiRectDouble = record
    Left   : Double;
    Top    : Double;
    Right  : Double;
    Bottom : Double;
  end;

  PointDoubleDynamicArray  = array of TPointDouble;

  TiTypeKind = TTypeKind;


implementation
end.