954_____________________________________________ 15



enum TCursor {crMin=Ox7fff-l, crMax=Ox7fff};

property TCursor Cursor



         -
    ,      -
.    ,  Cursor   DragCursor.
           
 .

  Cursor  DragCursor    
,    Screen.   
,   TScreen,      
  (.  4.7.7  4).

     TScreen  :

			
crDefault	  .   crArrow.	crHourGlass			
				I	
					
crNone		"		crDrag	D
crArrow				crNoDrop			
crCross				crHSplit		..*||*.	
crIBeam				crVSplit		"~f~	
crSize			crMultiDrag		'u	I
					a	
crSizeNESW				crSQLWait			
crSizeNS				crNo		^	
crSizeNWSE				crAppStart	&	
crSizeWE				crHelp		w	
crUpArrow		'.' "		crHandPoint		t?	

DesktopFont

,       
 Windows

 TControl



_property bool DesktopFont