blob: 542c1c4eefdc7e6945243eb46d13abc5ca3f90c4 (
plain)
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
44
45
46
47
48
49
|
{$MACRO ON}
(******************************************************************************
*
* Copyright (c) 1995-2000 Palm, Inc. or its subsidiaries.
* All rights reserved.
*
* File: InsPoint.h
*
* Release: Palm OS SDK 4.0 (63220)
*
* Description:
* This file defines insertion point routines.
*
* History:
* Jan 25, 1995 Created by Art Lamb
*
*****************************************************************************)
unit inspoint;
interface
uses palmos, coretraps, systemmgr;
// Blink interval is half of a second
const
insPtBlinkInterval = sysTicksPerSecond_ div 2;
insPtWidth = 2;
procedure InsPtInitialize; syscall sysTrapInsPtInitialize;
procedure InsPtSetLocation(const x, y: Int16); syscall sysTrapInsPtSetLocation;
procedure InsPtGetLocation(var x, y: Int16); syscall sysTrapInsPtGetLocation;
procedure InsPtEnable(enableIt: Boolean); syscall sysTrapInsPtEnable;
function InsPtEnabled: Boolean; syscall sysTrapInsPtEnabled;
procedure InsPtSetHeight(const height: Int16); syscall sysTrapInsPtSetHeight;
function InsPtGetHeight: Int16; syscall sysTrapInsPtGetHeight;
procedure InsPtCheckBlink; syscall sysTrapInsPtCheckBlink;
implementation
end.
|
