Delphi控件源码

开发平台：

Delphi

mmcursor.inc：源码内容

							
{$IFDEF WIN32}
{$R MMCURSOR.D32}
{$ELSE}
{$R MMCURSOR.D16}
{$ENDIF}
const                              
        NumCursors      =       31;
        crsBase         =       2000;
        crsHand1        =       crsBase+1;
        crsHand2        =       crsBase+2;
        crsHand3        =       crsBase+3;
        crsHand4        =       crsBase+4;
        crsHand5        =       crsBase+5;
        crsVSplit       =       crsBase+6;
	crsHSplit       =       crsBase+7;
	crsMove	        =	crsBase+8;
	crsZoom1	=	crsBase+9;
	crsZoom2	=	crsBase+10;
	crsMark1	=	crsBase+11;
        crsSample	=	crsBase+12;
        crsArrHand	=	crsBase+13;
        crsArrMove	=	crsBase+14;
        crsArrSizeV	=	crsBase+15;
        crsArrSizeH	=	crsBase+16;
        crsArrStop	=	crsBase+17;
        crsArrFade	=	crsBase+18;
        crsArrCrossFade	=	crsBase+19;
        crsArrFadeIn    =       crsBase+20;
        crsArrFadeOut   =       crsBase+21;
        crsArrSelect    =	crsBase+22;
        crsPen	        =	crsBase+23;
        crsPenFade	=	crsBase+24;
        crsPenCrossFade =	crsBase+25;
        crsPenStop      =	crsBase+26;
        crsPenDelete    =	crsBase+27;
        crsPenHand	=	crsBase+28;
        crsPenCurve	=	crsBase+29;
        crsPenSelect    =       crsBase+30;
	crsTrans	=	crsBase+31;

						