SETMOUSECURSOR

グラフィックス関数：フォーカスのあるウィンドウのマウス・カーソルの形状を設定します。

モジュール：USE DFLIB
            USE DFWIN

形式

oldcursor = SETMOUSECURSOR (newcursor)

newcursor
(入力) INTEGER(4)。Windows HCURSOR 値。多くの既定の形状に対して，LoadCursor(0, shape) は正当な値を得る簡単な方法です。既定の形状は，以下の一覧を参照してください。

値 0 は，カーソルが表示されない現象を引き起こします。

結果

結果の型は INTEGER(4) です。これも HCURSOR 値です。結果は以前のカーソル値です。

SETMOUSECURSOR が呼び出された時にフォーカスを持つウィンドウは，カーソルを指定した値に変更します。一度変更されると，別の SETMOUSECURSOR 呼び出しが行われるまでその形状を使用します。

Standard Graphics アプリケーションでは，装置 5 および 6 (基本画面入出力装置) は常にフォーカスがあるとみなされます。

以下のカーソル形状の既定値が利用可能です。

既定値	カーソル形状
IDC_APPSTARTING	標準矢印カーソルおよび小型砂時計カーソル
IDC_ARROW	標準矢印カーソル
IDC_CROSS	十字カーソル
IDC_BEAM	アイビーム (縦線) カーソル
IDC_ICON	現在は使われません
IDC_NO	禁止カーソル
IDC_SIZE	現在は使われません。IDC_SIZEALL を使います。
IDC_SIZEALL	4 方向矢印カーソル
IDC_SIZENESW	斜め左下がりの両方向矢印カーソル
IDC_SIZENS	上下両方向矢印カーソル
IDC_SIZENWSE	斜め右下がりの両方向矢印カーソル
IDC_SIZEWE	左右両方向矢印カーソルt
IDC_UPARROW	垂直の矢印カーソル
IDC_WAIT	砂時計カーソル

SETMOUSECURSOR で使用される前に，LoadCursor はこれらの値で行われていなければなりません。

互換性

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

例

	! QuickWin アプリケーションでビルドします。
	use dflib
	use dfwin
	integer*4  cursor, oldcursor
	open(8,file='user')

	write(8,*) 'The cursor will now be changed to an hour glass shape'
	write(8,*) 'Hit <return> to see the next change'
	cursor = LoadCursor(0, IDC_WAIT)
	oldcursor = SetMouseCursor(cursor)
	read(8,*)

	write(8,*) 'The cursor will now be changed to a cross-hair shape'
	write(8,*) 'Hit <return> to see the next change'
	cursor = LoadCursor(0, IDC_CROSS)
	oldcursor = SetMouseCursor(cursor)
	read(8,*)

	write(8,*) 'The cursor will now be turned off'
	write(8,*) 'Hit <return> to see the next change'
	oldcursor = SetMouseCursor(0)
	read(8,*)

	write(8,*) 'The cursor will now be turned on'
	write(8,*) 'Hit <return> to see the next change'
	oldcursor = SetMouseCursor(oldcursor)
	read(8,*)
	stop
	end

	! QuickWin または Standard Graphics アプリケーションでビルドします。
	use dflib
	use dfwin

	integer*4  cursor, oldcursor
	write(6,*) 'The cursor will now be changed to an hour glass shape'
	write(6,*) 'Hit <return> to see the next change'
	cursor = LoadCursor(0, IDC_WAIT)
	oldcursor = SetMouseCursor(cursor)
	read(5,*)

	write(6,*) 'The cursor will now be changed to a cross-hair shape'
	write(6,*) 'Hit <return> to see the next change'
	cursor = LoadCursor(0, IDC_CROSS)
	oldcursor = SetMouseCursor(cursor)
	read(5,*)

	write(6,*) 'The cursor will now be turned off'
	write(6,*) 'Hit <return> to see the next change'
	oldcursor = SetMouseCursor(0)
	read(5,*)

	write(6,*) 'The cursor will now be turned on'
	write(6,*) 'Hit <return> to see the next change'
	oldcursor = SetMouseCursor(oldcursor)
	read(5,*)

	stop
	end