Delphi控件源码

开发平台：

Delphi

VrConst.pas：源码内容

							{*****************************************************}
{                                                     }
{     Varian Component Workshop                       }
{                                                     }
{     Varian Software NL (c) 1996-2000                }
{     All Rights Reserved                             }
{                                                     }
{*****************************************************}
unit VrConst;
{$I VRLIB.INC}
interface
uses
  Forms, Windows, Graphics, VrTypes;
const
  VrLibVersion = '3.34';
  ResColorLow = clGray;
  ResColorHigh = clSilver;
  VrCursorHandPoint = 99;
  SC_DRAGMOVE = $F012;
implementation
{$R VRCURSORS.D32}
initialization
  Screen.Cursors[VrCursorHandPoint] := LoadCursor(hInstance, 'VRCURSORHANDPOINT');
end.
 

						