vrconst.pas

来自「作工控的好控件」· PAS 代码 · 共 40 行

{*****************************************************}
{                                                     }
{     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.