← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to packages/extra/palmunits/scrollbar.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/palmunits/scrollbar.pp
1
 
(******************************************************************************
2
 
 *
3
 
 * Copyright (c) 1996-2000 Palm, Inc. or its subsidiaries.
4
 
 * All rights reserved.
5
 
 *
6
 
 * File: ScrollBar.h
7
 
 *
8
 
 * Release: Palm OS SDK 4.0 (63220)
9
 
 *
10
 
 * Description:
11
 
 *   This file defines scroll bar structures and routines.
12
 
 *
13
 
 * History:
14
 
 *    Feb 6, 1996 Created by Art Lamb
15
 
 *
16
 
 *****************************************************************************)
17
 
 
18
 
unit scrollbar;
19
 
 
20
 
interface
21
 
 
22
 
uses palmos, coretraps, control;
23
 
 
24
 
type
25
 
  ScrollBarRegionType = Enum;
26
 
 
27
 
const
28
 
  sclUpArrow = 0;
29
 
  sclDownArrow = Succ(sclUpArrow);
30
 
  sclUpPage = Succ(sclDownArrow);
31
 
  sclDownPage = Succ(sclUpPage);
32
 
  sclCar = Succ(sclDownPage);
33
 
 
34
 
type
35
 
  ScrollBarAttrType = record
36
 
  {$ifdef ALLOW_ACCESS_TO_INTERNALS_OF_SCROLLBARS} // These fields will not be available in the next OS release!
37
 
    Bits: UInt16;
38
 
{
39
 
    UInt16 usable       :1; // Set if part of ui
40
 
    UInt16 visible      :1; // Set if drawn, used internally
41
 
    UInt16 hilighted    :1; // Set if region is hilighted
42
 
    UInt16 shown        :1; // Set if drawn and maxValue > minValue
43
 
    UInt16 activeRegion :4; // ScrollBarRegionType
44
 
    UInt16 reserved     :8; // Reserved for future use
45
 
}
46
 
  {$endif}
47
 
  end;
48
 
  ScrollBarAttrTag = ScrollBarAttrType;
49
 
 
50
 
  ScrollBarType = record
51
 
  {$ifdef ALLOW_ACCESS_TO_INTERNALS_OF_SCROLLBARS} // These fields will not be available in the next OS release!
52
 
    bounds: RectangleType;
53
 
    id: UInt16;
54
 
    attr: ScrollBarAttrType;
55
 
    value: Int16;
56
 
    minValue: Int16;
57
 
    maxValue: Int16;
58
 
    pageSize: Int16;
59
 
    penPosInCar: Int16;
60
 
    savePos: Int16;
61
 
  {$endif}
62
 
  end;
63
 
 
64
 
  ScrollBarPtr = ^ScrollBarType;
65
 
 
66
 
procedure SclGetScrollBar(const bar: ScrollBarPtr; var valueP, minP, maxP, pageSizeP: Int16); syscall sysTrapSclGetScrollBar;
67
 
 
68
 
procedure SclSetScrollBar(bar: ScrollBarPtr; value: Int16; const min, max, pageSize: Int16); syscall sysTrapSclSetScrollBar;
69
 
 
70
 
procedure SclDrawScrollBar(bar: ScrollBarPtr); syscall sysTrapSclDrawScrollBar;
71
 
 
72
 
function SclHandleEvent(bar: ScrollBarPtr; const event: EventPtr): Boolean; syscall sysTrapSclHandleEvent;
73
 
 
74
 
implementation
75
 
 
76
 
end.
 
 
b'\\ No newline at end of file'