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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
(******************************************************************************
*
* Copyright (c) 1994-2000 Palm, Inc. or its subsidiaries.
* All rights reserved.
*
* File: List.h
*
* Release: Palm OS SDK 4.0 (63220)
*
* Description:
* This file defines list structures and routines.
*
* History:
* November 3, 1994 Created by Roger Flores
* Name Date Description
* ---- ---- -----------
* bob 2/9/99 fixed const stuff
*
*****************************************************************************)
unit list;
interface
uses palmos, coretraps, rect, font, window, control;
const
noListSelection = -1;
//-------------------------------------------------------------------
// List structures
//-------------------------------------------------------------------
type
ListAttrType = record
{$ifdef ALLOW_ACCESS_TO_INTERNALS_OF_LISTS} // These fields will not be available in the next OS release!
Bits: UInt16;
{
UInt16 usable :1; // set if part of ui
UInt16 enabled :1; // set if interactable (not grayed out)
UInt16 visible :1; // set if drawn
UInt16 poppedUp :1; // set if choices displayed in popup win.
UInt16 hasScrollBar:1; // set if the list has a scroll bar
UInt16 search :1; // set if incremental search is enabled
UInt16 reserved :2;
}
{$endif}
end;
ListAttrTag = ^ListAttrType;
// Load data callback routine prototype
type
ListDrawDataFuncType = procedure (itemNum: Int16; bounds: RectanglePtr; var itemsText: PChar);
ListDrawDataFuncPtr = ListDrawDataFuncType;
type
ListType = record
{$ifdef ALLOW_ACCESS_TO_INTERNALS_OF_LISTS} // These fields will not be available in the next OS release!
id: UInt16;
bounds: RectangleType;
attr: ListAttrType;
itemsText: ^PChar;
numItems: Int16; // number of choices in the list
currentItem: Int16; // currently display choice
topItem: Int16; // top item visible when poped up
font: FontID; // font used to draw list
reserved: UInt8;
popupWin: WinHandle; // used only by popup lists
drawItemsCallback: ListDrawDataFuncPtr; // 0 indicates no function
{$endif}
end;
ListPtr = ^ListType;
//-------------------------------------------------------------------
// List routines
//-------------------------------------------------------------------
procedure LstDrawList(listP: ListPtr); syscall sysTrapLstDrawList;
procedure LstEraseList(listP: ListPtr); syscall sysTrapLstEraseList;
function LstGetSelection(const listP: ListPtr): Int16; syscall sysTrapLstGetSelection;
function LstGetSelectionText(const listP: ListPtr; itemNum: Int16): PChar; syscall sysTrapLstGetSelectionText;
function LstHandleEvent(listP: ListPtr; const eventP: EventPtr): Boolean; syscall sysTrapLstHandleEvent;
procedure LstSetHeight(listP: ListPtr; visibleItems: Int16); syscall sysTrapLstSetHeight;
procedure LstSetPosition(listP: ListPtr; x, y: Coord); syscall sysTrapLstSetPosition;
procedure LstSetSelection(listP: ListPtr; itemNum: Int16); syscall sysTrapLstSetSelection;
procedure LstSetListChoices(listP: ListPtr; var itemsText: PChar; numItems: Int16); syscall sysTrapLstSetListChoices;
procedure LstSetDrawFunction(listP: ListPtr; func: ListDrawDataFuncPtr); syscall sysTrapLstSetDrawFunction;
procedure LstSetTopItem(listP: ListPtr; itemNum: Int16); syscall sysTrapLstSetTopItem;
procedure LstMakeItemVisible(listP: ListPtr; itemNum: Int16); syscall sysTrapLstMakeItemVisible;
function LstGetNumberOfItems(const listP: ListPtr): Int16; syscall sysTrapLstGetNumberOfItems;
function LstPopupList(listP: ListPtr): Int16; syscall sysTrapLstPopupList;
function LstScrollList(listP: ListPtr; direction: WinDirectionType; itemCount: Int16): Boolean; syscall sysTrapLstScrollList;
function LstGetVisibleItems(const listP: ListPtr): Int16; syscall sysTrapLstGetVisibleItems;
function LstNewList(formPP: PointerPtr; id: UInt16; x, y, width, height: Coord;
font: FontID; visibleItems, triggerId: Int16): Err; syscall sysTrapLstNewList;
function LstGetTopItem(const listP: ListPtr): Int16; syscall sysTrapLstGetTopItem;
implementation
end.
|
