Delphi控件源码

开发平台：

Delphi

VrTypes.pas：源码内容

							{*****************************************************}
{                                                     }
{     Varian Component Workshop                       }
{                                                     }
{     Varian Software NL (c) 1996-2000                }
{     All Rights Reserved                             }
{                                                     }
{*****************************************************}
unit VrTypes;
{$I VRLIB.INC}
interface
uses
  Windows, SysUtils;
type
  EVrException = class(Exception);
  TVrVersion = string[4];
  TVrHoursChangeEvent = procedure(Sender: TObject; Hours: Word) of object;
  TVrMinutesChangeEvent = procedure(Sender: TObject; Minutes: Word) of object;
  TVrSecondsChangeEvent = procedure(Sender: TObject; Seconds: Word) of object;
  TVrDrawStyle = (dsOwnerDraw, dsNormal);
  TVrColInt = 1..MaxInt;
  TVrRowInt = 1..MaxInt;
  TVrHoursInt = 0..23;
  TVrMinutesInt = 0..59;
  TVrSecondsInt = 0..59;
  TVrPercentInt = 0..100;
  TVrMaxInt = 1..MaxInt;
  TVrByteInt = 0..255;
  TVrNumGlyphs = 1..4;
  TVrAngle = 0..359;
  TVrTransparentMode = (tmPixel, tmColor);
  TVrTextAngle = 0..359;
  TVrTextAlignment = (vtaLeft, vtaCenter, vtaRight,
    vtaTopLeft, vtaTop, vtaTopRight,
    vtaBottomLeft, vtaBottom, vtaBottomRight);
const
  VrTextAlign: array[TVrTextAlignment] of Integer =
    (DT_LEFT + DT_VCENTER, DT_CENTER + DT_VCENTER, DT_RIGHT + DT_VCENTER,
     DT_TOP + DT_LEFT, DT_TOP + DT_CENTER, DT_TOP + DT_RIGHT,
     DT_BOTTOM + DT_LEFT, DT_BOTTOM + DT_CENTER, DT_BOTTOM + DT_RIGHT);
type
  TVrShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare,
    stEllipse, stCircle);
  TVrImageTextLayout = (ImageLeft, ImageRight, ImageTop, ImageBottom);
  TVrOrientation = (voVertical, voHorizontal);
  TVrTickMarks = (tmNone, tmBoth, tmBottomRight, tmTopLeft);
  TVrProgressStyle = (psBottomLeft, psTopRight);
  TVrScrollDirection = (sdRightToLeft, sdLeftToRight, sdTopToBottom, sdBottomToTop);
implementation
end.

						