/
vidcur.prg
43 lines (29 loc) · 1.14 KB
/
vidcur.prg
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
/* Rewritten in 2012 by Viktor Szakats (vszakats.net/harbour) and kept in the
public domain.
This is an original work by Glenn Scott and is placed in the public domain.
Rev 1.3 15 Aug 1991 23:03:30 GLENN
Forest Belt proofread/edited/cleaned up doc
Rev 1.2 14 Jun 1991 19:53:12 GLENN
Minor edit to file header
Rev 1.1 14 Jun 1991 17:59:18 GLENN
Documentation change (minor), and checked for compatibility with new
ft_int86().
Rev 1.0 01 Apr 1991 01:02:28 GLENN
Nanforum Toolkit
*/
#include "setcurs.ch"
PROCEDURE ft_SetVCur( nPage, nRow, nCol ) // NOTE: In Harbour video pages are ignored
HB_SYMBOL_UNUSED( nPage )
SetPos( nRow, nCol )
RETURN
FUNCTION ft_GetVCur( nPage ) // NOTE: In Harbour video pages are ignored
LOCAL nTop, nBot
HB_SYMBOL_UNUSED( nPage )
SWITCH SetCursor()
CASE SC_NORMAL ; nTop := 6 ; nBot := 7 ; EXIT
CASE SC_INSERT ; nTop := 4 ; nBot := 7 ; EXIT
CASE SC_SPECIAL1 ; nTop := 0 ; nBot := 7 ; EXIT
CASE SC_SPECIAL2 ; nTop := 0 ; nBot := 3 ; EXIT
OTHERWISE ; nTop := nBot := 0
ENDSWITCH
RETURN { nTop, nBot, Row(), Col() }