← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/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:
fpcsrc/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.